Quelle  zeta.cob

       identification division.
       program-id. zeta.
      * aus Jones&Jones,
      * Elementary Number Theory
      * p 164
       author. "JD".
       date-written. 5.2.2009.
       date-compiled.
       data division.
       working-storage section.
        77 i   pic S9(4).
        77 j   pic S9(4).
        77 d   pic S9(4).
       linkage section.
        77 s   pic 9(4).
        77 n0  pic 9(4)..
        77 z   pic S9(4)V9(4).
       procedure division using s n0 returning z.
         move 0 to z.
         perform varying i from 1 until i>n0
           move 1 to d
           perform varying j from 1 until j>s
             multiply i by d
           end-perform
           compute z=z+1/d
           end-perform
      *     now zeta=sum(1,n0,1/n**s)     
        end program zeta.