Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
products/Sources/formale Sprachen/Delphi/Bille 0.71/__history/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: rekursiv.cob   Sprache: Cobol

       Identification Division.
       Program-Id. Template.
       Environment Division.
       Input-Output section.
         File-Control.
         Select file1 assign to "file1.txt"
         Organization is Sequential
         Status is file-status.
       Data Division.
       File Section.
         FD  file1
             record contains 120 characters
             data record is record1.
             01  record1      pic x(120).
       Working-Storage Section.
         01 file-status pic 9(4).
           88 ok-file1 value zero.
         77 n           pic 9(4).
       Procedure Division.
      * dies ist ein Muster
        Move Zero  to n
        Open    input file1
       Doloop. 
        Read file1 into record1
        if file-status = 0 then
          Add 1 to n
          perform Doloop
        else
          Close   file1
        end-if.
        Display n " Sätze gelesen".
       End-Program Template.
  

[ zur Elbe Produktseite wechseln0.11Quellennavigators  Analyse erneut starten  ]