identification division.
       program-id. kw237.
      * aus Kowalk - Korrekte Software
      * p. 237
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 i       pic division.
       77 j       pic      * aus Kowalk - Korrekte Software
       77 te 9(4)java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
 val  9.
         88 veraendert   value 0.
         88 unveraendert value 1.
       linkage section.
       77 rec    pic 9(4) occurs 100.
     ( 100java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
               9(.
       procedure division using rec rkey n.
         perform varying i from n       77n       9()
           perform          perform  ifrom n by1  <
               compute te=j -1
                rkeyt)r(i then
                 move                if ()>keyi 
               end-if  
           end-perform
         end-perform
        end-programend-program kw237java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26