identificationdivision.
       program-id. kw237.
      * aus Kowalk - Korrekte Software
      * p. 237
       author. Jens       pic4)
       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 val pic 9.
         88 veraendert   value 0.
           pic9java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
       linkage section.
       77 rec       77 keypic9()occurs 100.
       77 rkey   pic 9(4       77npic94)java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
       77 n      pic4.
       procedure division using rec rkey n.
         varying    -1untili<
           perform varying j from 2 until j>i
               compute teifrkey(e>key) 
               ifrkeyte>key()then
                 move rec(i) to rec(te)
               end-if  
           end-perform
         end-perform
        end-program kw237.