Quelle  cicstub.cob

       identification division.
       program-id. exp.
       author. "Original from Hopcroft/Motwani/Ullman Cobol from JD".
       date-written. 25.10.2004.
       date-compiled.
       data division.
       working-storage section.
       77 ans pic 9(4).
       77 j pic 9(4).
       linkage section.
       77 DFHEIBLK      pic 9(4).
       77  DFHCOMMAREA   pic 9(4).
       77 res pic 9(4).
       PROCEDURE DIVISION USING DFHEIBLK DFHCOMMAREA.

      ******
      *  First part: set up the pointers and structures, perform
      *  sanity checks and the call the decode/encode functions.
      ******
      *  Just return if no commarea because there's nowhere to work.
      ******

           IF EIBCALEN = 0
              EXEC CICS RETURN END-EXEC
           END-IF

      ******
      *  Set up addressability to the commarea.
      ******

           EXEC CICS
                ADDRESS COMMAREA(conv-pointer)
           END-EXEC.

           SET ADDRESS OF CONVERTER-PARMS TO conv-pointer.

      ******
      *  Validate the commarea eyecatcher.
      ******

           IF (CONVERTER-EYECATCHER NOT = DECODE-EYECATCHER-INIT)
           AND (CONVERTER-EYECATCHER NOT = ENCODE-EYECATCHER-INIT)
               MOVE URP-INVALID TO CONVERTER-RESPONSE
               MOVE URP-CORRUPT-CLIENT-DATA TO CONVERTER-REASON

               EXEC CICS
                    RETURN
               END-EXEC
           END-IF
      * computes i to the power of n
         move 1 to ans.
         perform varying j from 1 by 1 until j >n
           multiply ans by j giving ans
         end-perform.
         move ans to res.
        end-program exp.