Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: cicstub.cob Sprache: Cobol

Original von: verschiedene^©

       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.

¤ Dauer der Verarbeitung: 0.0 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.