Quelle  Ebb-p171s.cob   Sprache: Cobol

       identification division.
       program-id. ep171s.
      * aus Ebbinghaus/Flum/Thomas
      * Math. Logik p. 171
      * string version
       author. Jens.
       date-written. 6.2.2011.
       date-compiled.
       data division.
       working-storage  section.
         77 ll pic 9(4).
       linkage section.
         77 r0 pic x(400).
       procedure division returning r0.
         if r0 = "" then goto l6 end-if
         perform subone.
         if r0 = "" then goto l5 end-if
         perform subone.
         if r0 = "" then goto l6 end-if
       l5. 
         perform addone.
       l6.  
         display "fertig"
         stop run.
      *    
      *   subroutines 
      *    
       subone.
         move function length(r0) to ll
         subtract 1 from ll
         move r0(1:ll) to r0.
       addone.
         string r0 "|" into r0.
        end-program ep171s.