identification division.
       program-id. krypt.
       author. "JD".
       date-written. 22.3.2006.
       date-compiled.
       data division.
       working-storage section.
       77 feld    pic X.
         88 suba   value "A".
         88 subb   value "B".
         88 subc   value "C".
       procedure division.
      * call a
         set suba to true.
         call feld using feld
      * call b
         set subb to true.
         call feld using feld
      * call c
         set subc to true.
         call feld using feld
        end-program krypt.