SSL foo2.cob

       identification division.
       program-id. foo.
      * aus Dirk Hoffmann,
      * Software-Qualität
      * p340ff, Springer 2008
       author. "JD".
       date-written. 28.1.2009.
       date-compiled.
       data division.
       working-storage section.
        77 y pic S9(4).
        77 z pic S9(4).
        linkage section.
        77 x pic S9(2).
        77 r pic S9(4).
       procedure division using x returning r.
         if x<0 then
           move 2 to y
         else
           move 1 to y.
         if function mod(x,2)=1 then
           move 2 to z
         else
           move 1 to z.
         add y z giving r.  
        end program foo.