cbl apost
       cbl list
       cbl define(COUNT=100)
       >>define COUNT as parameter
       Identification division.
       Program-id. TestDEF.
       Environment division.
       Data division.
       Working-storage section.
       >>define COUNT as COUNT + 10 override
      * to assume replacing of COUNT ...
       replace ==COUNT== by ==100==.
       01  ARRAY.
           05  ITEM pic X(1)
               occurs COUNT.
       01  I  PIC S9(4) binary
       >>if COUNT = 110
               value 110
       >>else
               value 0
       >>end-if
               .
       Procedure division.
       Main.
           move all '!' to ARRAY
           perform varying I from 1 by 1 until I > COUNT
             display 'I=' I ', ITEM(' I ')=' ITEM (I)
           end-perform
           .
       Bye.
           Goback
           .
       End program TestDEF.