Quelle  divzero.cob

       identification division.
       program-id. divzero.
       author. "JD".
       date-written. 25.10.2004.
       date-compiled.
       data division.
       working-storage section.
       77 k pic 9(4).
       77 i pic 9(4).
       77 j pic 9(4).
       77 d pic 9(4).
       procedure division.
      * computes something
         move 0 to i j.
         accept k.
         perform until i >= k
           add 1 to i
           add 3 to j
         end-perform.
      *  here at i=-19 occurs an error   
         compute d=5/(i - j)
         display d.
        end-program divzero.