Quelle  largest.cob

       identification division.
       program-id. largest.
      *  aus Wirth, systematisches Programmieren p. 83 
       author. "JD".
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       78 m   pic 9(4) value 1.
       78 n   pic 9(4) value 10.
       77 s   pic 9(4)V9(4).
       77 j   pic 9(4).
       77 k   pic 9(4).
       linkage section.
       77 x   pic 9(4)V9(4) occurs n.
       77 r   pic 9(4).
       procedure division using x r.
      * find largest value in x
         move m to j
         perform varying k from m+1 by 1 until k>=n
           if x(k) > x(j) then move k to j
         end-perform.
         move j to r.
        end-program largest.