Quelle  manhattan2.cob   Sprache: Cobol

       identification division.
       program-id. manhattan2.
      * aus Dirk Hoffmann,
      * Software-Qualität
      * Kapitel 4, Springer 2008
       author. "JD".
       date-written. 28.1.2009.
       date-compiled.
       data division.
       linkage section.
        77 a   pic S9(4).
        77 b   pic S9(4).
        77 y   pic S9(4).
       procedure division using a b returning y.
         if a<0 then
           move -a to a.
         if b<0 then
           compute y = a - b
           stop run.
         add a b giving y.
        end program manhattan2.