Quelle  reaching_definitions.cob

       identification division.
       program-id. readef.
      * sample from the Absint web site
      * in the Verisoft project
       author. Jens.
       date-written. 6.11.2004.
       date-compiled.
       data division.
       working-storage section.
       77 x     pic 9(4).
       77 y     pic 9(4).
       procedure division.
         move 5 to x
         move 1 to y
         perform until x <= 1
           multiply x by y
           subtract 1 from x
         end-perform.
      *   add 3 to y
         display "x="x" y="y.
        end-program readef.