Quelle  max.cob

      *---------------------------------------------------
      * maximum from 3 values  Andreas Spillner/HS-Bremen
      * Softwaretechnik Trends Band 44 Heft 4
      *---------------------------------------------------
       Identification Division.
       Program-Id. Max.
       Author.NN.
       Data Division.
       Linkage Section.
         77 x           pic 9(4).
         77 y           pic 9(4).
         77 z           pic 9(4).
         77 max         pic 9(4).
       Procedure Division using x, y, z returning max.
      * Beispiel mit Fehler
          move 0 to max
        if x>z then
           move x to max;
        if x>z then
           move x to max;
        if x>z then
           move x to max;
      * max wird zurückgegeben
       End-Program Max.