Quellcode-Bibliothek rekursiv.cob

       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.