Quelle  fileavg.cob

       identification division.
       program-id. fileavg.
      *  aus Wirth, systematisches Programmieren p. 73 
       author. "JD".
       date-written. 25.10.2004.
       date-compiled.
       environment division.
       input-output section.
       file-control.
         select f assign to file-f
         status f-status.
       data division.
       file section.
        fd f
        record contains 120 characters
        data record is f-record
        label record is omitted.
        01 f-record.
          05 i pic x(8).
       working-storage section.
        77 m pic 9(4).
        77 n pic 9(4).
        77 s pic 9(4).
        77 f-status pic S9(4) comp.
       procedure division.
      * computes x / y
         move 0 to m n.
         open input f
         perform until f-status <= 0
           read f into f-record
           add 1 to n
           add i to m
         end-perform.
         close f
         divide n into m
         move 0 to s
         open input f
         perform until f-status <= 0
           read f into f-record
           add 1 to n
           add i to m
         end-perform.
         compute s = function sqrt(n)
      * sqrt(a/n) ???  
         display "s=" s.
        end-program fileavg.