Quelle  max.cob.bak   Sprache: unbekannt

      *------------------------------------------
      * maximum from 3 values
      * Softwaretechnik Trends Band 44 Heft 4
      *------------------------------------------
       Identification Division.
       Program-Id. Max.
       Author. Andreas Spillner/HS-Bremen.
       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.