Quelle  Kowalk-p234.cbl   Sprache: Cobol

       identification division.
       program-id. kw234.
      * aus Kowalk - Korrekte Software
      * p. 234
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 i       pic 9(4).
       77 j       pic 9(4).
       77 te      pic 9(4).
       77 hilf    pic 9(4).
       77 rechilf  pic 9(4).
       linkage section.
       77 a      pic 9(4). 
       77 rec    pic 9(4) occurs 100.
       77 rkey   pic 9(4) occurs 100.
       77 n      pic 9(4).
       procedure division using n returning a.
         perform varying i from 2 until i>n
           move rec(i) to rechilf
           move rkey(i) to hilf
           compute te=i -1
           perform varying j from i by -1
           until j>2 or rkey(te)>hilf
             move rec(te) to rec(j)
             compute te=j -1
             move rechilf to rec(j)
             move rechilf to rec(1)
           end-perform
         end-perform
        end-program kw234.