Quelle  maxelement.cob

       identification division.
       program-id. maxel.
      *  aus Verify07, sample von Siemens
      *  "verification of PLC"
       author. "JD".
       date-written. 11.9.2005.
       date-compiled.
       data division.
       working-storage section.
       77 i   pic 9(4).
       77 m   pic 9(4).
       linkage section.
       77 x   pic 9(4)V9(4) occurs 100.
       77 r   pic 9(4).
       procedure division using x returning r.
      * find largest value in x
         move 0 to i m
         perform until i>length of x
           if x(i) > m then move x(i) to m
         end-perform.
         move m to r.
        end-program maxel.