cbl apost
       cbl inline
       Identification division.
       Program-id. TestInln.
      *
      * Test impact inlining sur TraceMaster / DumpMaster
      *
       Environment division.
       Data division.
       Working-storage section.
       01  CARTE   pic x(80).
       01  MesDonnees usage packed-decimal.
           02  I1 pic S9(5).
           02  I2 pic S9(5).
           02  I3 pic S9(5).
       Procedure division.
       Main.
           accept CARTE
           compute I1 = function numval(CARTE)
           accept CARTE
           compute I2 = function numval(CARTE)
      *
           perform add-I1-to-I2-giving-I3
           display I1 ' + ' I2 ' = ' I3
      *
           move I3 to I1
           accept CARTE
           compute I2 = function numval(CARTE)
           perform add-I1-to-I2-giving-I3
           display I1 ' + ' I2 ' = ' I3
           .
       Bye.
           goback
           .
       add-I1-to-I2-giving-I3.
           compute I3 = I1 + I2
           .
       End program TestInln.