Identification Division.
       Program-Id. Maxi.
       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).
       77  c   Pic S9(8).
       Procedure Division using a, b, c.
         Move a To mx.
         If b > mx  then
           Move b to mx.
         If c > mx then
           Move c to mx.
         Display "MAX(" a "," b "," c ")=" mx.
       End-Program Maxi.