Quelle  Berg-max2.cob   Sprache: Cobol

       Identification Division.
       Program-Id. Max2.
       Environment Division.
       Input-Output Section.
       Data Division.
       Working-Storage Section.
       77  mx  Pic S9(8).
       Linkage Section.
       77  a   Pic S9(8).
       77  b   Pic S9(8).
       Procedure Division using a, b.
         If a > b  then
           Move a to mx
         else 
           Move b to mx.
         Display "MAX(" a "," b ")=" mx.
       End-Program Max2.