Quelle cicscall.cbl Sprache: Cobol

DIVISION
      PROGRAM-ID      PROGRAM-ID  .
      DATE-WRITTEN. 09/1.
      DATE-COMPILED.      .                                                          ******************************************************************      **
      ******************************************************************
      **
      **       (c) 1995 by Sybase, Inc. All Rights Reserved
      **
      ******************************************************************
                                                                              ******************************************************************
      ******************************************************************
      ** PROGRAM:    OSCICS8C  TRAN:SY8C....
      **
      ** THIS PROGRAM IS A THE OPEN SERVER VERSION OF RSP8C.  RECEIVES
      ** A TEXT INPUT STRING(10,000 BYTES) AND RETURNS IT IN A 50 BYTE
      ** COLUMN ONE ROW AT A TIME...
      ** Example: exec sy8c 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
      ******************************************************************

ENVIRONMENT
      *OPEN SERVER WORK VARIBLES FOR OS CALL TO USE ...
       1  .

      WORKING-STORAGE SECTION                  PIC S9.

      ******************************************************************
      * COPY IN THE OS SERVER LIBRARYS
      ******************************************************************
      *  COPY SYGWCOB.
      ******************************************************************
      *OPEN SERVER WORK VARIBLES FOR OS CALL TO USE ...
      ******************************************************************
      01  WS-GWL-WORK-VARIBLES
05  GWL-INFPRM-NAME          X(30).
          05  GWL-INIT-HANDLE         POINTER.
          05        WORKING-STORAGESECTION
          05  GWL-INFPRM-ID
          05  GWL-INFPRM-TYPE         PIC S9(9) COMP.
          05  GWL-INFPRM-DATA-L       PIC S9(9) COMP.
               PIC(9) COMP
          0                     PICS99 COMPjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
05           PICX(3)                        GWL-PROC.
         PIC5                   (java.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 72
          05  0          PIC(9) .
      PIC(9) .
5           PICPIC()COMP
                   PIC(.
          05            05  GWL-SETPRM-DATA-L(9)COMP
         S9
          05  GWL-COMM-STATE          PIC        PIC() 2.
          05  GWL-STATUS-RETURN-CODE5GWL-INFPRM-NAME( .
          05  GWL-STATUS-SUBCODE       PICjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  GWL-NUMPRM-PARMS                       PIC(8  VALUE(C java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  GWL-RCVPRM-DATA-L       PIC         PIC(9) COMP.
( .
                    5GWL-ACTUAL-LENS99 .
0       PIC(9 .
          0GWL-SETPRM-USER-DATA S9COMP
          05  GWL-CONVRT-SCALE        PIC5         S9             PIC.
          05        ( VALUE
          00GWL-SETPRM-ID (9) .java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          PIC(5       PIC(9)COMP
                    5GWL-SETPRM-USER-DATAPIC)  + java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
  PIC  SPACES
          05  SNA-SUBC                PIC S9         ()  0.
WRK-DONE-STATUS( .

          05  GWL-TRAN-LEN            PIC          05GWL-INFBCD-SCALE S9(9 COMPjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
               PIC .
          05  GWL-REQUEST-TYPHOST-LENS9()  +0
                     PICVALUE.
          05  GWL-COMM-STATE          PICSNA-SUBCPIC(09)COMP+.
          05  I
          5GWL-ACTUAL-LEN (9) .
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      01  DESCRIPTION-FIELDS             PIC
0          PIC S91                PIC(COMP +100.
          05 HOST-TYPE5GWL-RPC-NAME            PIC3) VALUE SPACESPIC .
          05 HOST-LEN               PIC S9(09) COMP VALUE 0 OCCURS.
          05 COLUMN-LEN             PIC J S9VALUE
          05 COLUMN-NAME-LEN        PIC S9(09) COMP
                                                                                        S90
      01                    0  WS-OUTPUT-CHARPIC5COLUMN-NAME-LENS90)COMP.
          0                    PICS9  +999

      01  WS-INPUT-LENjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      01  WS-INPUT-DATA-HDR
          03  WS-INPUT-DATA           PIC
          03  WS-INPUT-REDEFINE REDEFINES WS-INPUT-DATA.
                    ******************************************************************
                  10  WS-INPUT-CHAR    PIC X.

java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      01  WS-OUTPUT-DATA-HDR.
          03  WS-OUTPUT-DATA           PIC X(50)   VALUE SPACES.
3
              05  WS-OUTPUT-TABLE OCCURS RC
                  10  WS-OUTPUT-CHAR    PIC X.

      01  WS-OUTPUT-COL-NAME          PIC
          VALUE 'OUTPUT_COLUMN'.0               PIC5  SPACES

      ******************************************************************
      * MESSAGES                                                       *
      ******************************************************************

      01  .
          05  FILLER      LINKAGE.
              VALUE 'ERROR IN OS CALL '.
          05                 PIC  X(10).
          05  FILLER                    PIC  X(04)
'RC='
          05  WS-MSG-RCPIC9.
          05  FILLER                    PIC  X(18)
    .
          05  MSG-SUBC                         DIVISION.
          05  WS-MSG-TEXT               00-.
                                                                                   100-INITIALIZETHRU.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  FILLER                    PIC  X(18)
      .java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          5        PIC(8)COMP
          5      PIC)
                    5WS-MSG-TEXTPIC50 VALUE SPACES

java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
0  .
      **************************************************************
      * THE LINKAGE SECTION DEFINES MASKS FOR DATA AREAS THAT ARE
      * PASSED BETWEEN THIS PROGRAM.
      **************************************************************

      01  DFHCOMMAREA                PIC  X(1).


      PROCEDURE      * INTIALIZED THE TDS CONNECTION AND RECEIVE THE                         **************************************************************

      000-MAIN-PROCESSING.

          PERFORM 1           '' USING, , .

PERFORM2-         THRU

           30-        THRUEXIT

          PERFORM 900-ALL-DONE              THRU 900-                                SNA-CONN-NAME, SNA-SUBC.

          GOBACK.

      000-EXIT.


10-NITIALIZE

      ******************************************************
      * INTIALIZED THE TDS CONNECTION AND RECEIVE THE
      * RPC PARM........
      000-EXIT.

      *==> ESTABLISH GATEWAY ENVIRONMENT <===*

          CALL 'TDINIT' USING          .
           GWL-RC THEN
             PERFORM EXIT
          END-IF.

      * RPC PARM........
      ******************************************************
.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
                                SNA-CONN-NAME, SNA-SUBC      ****************************************************************
          IF GWL-RC NOT = TDS-OK EIBLK,.
             PERFORM 910-ERR-PROCESS
          END-IF 9-  THRU
                                                                        TDNUMPRM GWL-PROC.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      *==> TO MAKE SURE WE WERE STARTED BY RPC REQUEST... <===*

           ' GWL-PROC, GWL-RC
GWL-REQUEST-TYPMOVE
                                GWL-COMM-STATE.
          IF GWL-RC          NOT = TDS-OK    OR
GWL-REQUEST-TYPTDS-RPC-EVENT
             THEN
                MOVE GWL-RC         ,,
                MOVE ' .
                PERFORM 920-SEND-MESSAGE THRU 920-EXIT
                PERFORM 910-ERR-PROCESS  THRU 910-EXIT
          END-IF.           GWL-NUMPRM-PARMS + THEN
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      100-EXIT.
          .
                                                                        ,
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
                                                                          NOT TDS-OKjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      200-PROCESS-INPUTMOVE'
      ****************************************************************
      * RECEIVE THE INPUT PARAMETER INTO HOST VARIBLE
      ****************************************************************
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      *---> Find out how many parms are being passed <---*

          CALL 'TDNUMPRM' USING GWL-PROC.

      *---> More than one pump back a message        <---*

          IF GWL-NUMPRM-PARMS not       ****************************************************************
             MOVE 'Invalid Number ****************************************************************
TO
             MOVE GWL-RCMOVETO.
             MOVE
             PERFORM 920-SEND-MESSAGE THRU 920-EXIT
PERFORM
          END-IF

      *---> Get that parm into into the host varible <---*

          IF                                       ,
             CALL 'TDRCVPRM' USING GWL-PROC           GWL-NUMPRM-PARMS= + THEN
                                   ,
                                   WS-INPUT-DATA,
                                   TDSLONGVARCHAR,
                                   WS-INPUT-LEN,
                                   GWL-ACTUAL-LENGWL-ACTUAL-LEN
  NOT THEN
                MOVE GWL-RC         TO WS-MSG-RC  NOT THEN
TDRCVPRM
                PERFORM TDESCRIBWS-MSG-FUNC
PERFORM  THRU1
END-IF
          .
      200-EXIT.
          EXIT.                                                         END-IFjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      300-PROCESS-OUTPUT.
      ****************************************************************
      * BREAK UP THE 10K INPUT FIELDS INTO A 50 BYTE COLUMN AND SEND
      ****************************************************************
                                                                            1
           J java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
THEN
                                                    COLUMN-LEN.
HOFCOLUMN-LEN
           LENGTHWS-OUTPUT-COL-NAME COLUMN-NAME-LEN
                                GWL-RC TDESCRIB SPACES
COLUMN-NUMBER
                                TDSCHAR,END-PERFORM
                                HOST-LEN,
                                WS-OUTPUT-DATA,
                                TDS-ZEROHOST-LEN
                                TDS-FALSE.                                                         ,
                                TDSCHAR,                                ,
                                                                ,
                                WS-OUTPUT-COL-NAME,
                                COLUMN-NAME-LEN.                        java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72

          IF GWL-RC NOT =
             MOVE GWL-RC         TO WS-MSG-RC
             MOVEMOVETDESCRIB WS-MSG-FUNC
PERFORMTHRU
             PERFORM  THRU
          END-IF.


          java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
             COMPUTE J = VARYING BYI
                       EJECTCOMPUTE    1
             IF J = 50
             THEN
      ******************************************************************
                MOVE
                MOVE SPACES              TO   WS-OUTPUT-DATA
             END-IF
          END-PERFORM.
          IF J > ZERO
              PERFORM1     THRU

      300-EXIT.
          EXIT.
      310-SEND-ROW.
      ****************************************************************
      * SEND ROW OF DATA TO CLIENT....
      *****************************************************************

'GWL-PROC java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          IF GWL-RC NOT = TDS-OK

             MOVE      90-RR-PROCESS
             MOVE 'TDSNDROW'     TOMOVE'TDSNDROW'     TO
             PERFORM 920-SEND-MESSAGE THRU              PERFORM1ERR-PROCESS 910-XITjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
PERFORM  THRU
          END-IF

      310     910EXIT
          EXIT.
          EJECT
      900-ALL-DONE      * CLOSE CONNECTION TO CLIENT AND RETURN TO CICS...               *-.
      ******************************************************************
      * CLOSE CONNECTION TO CLIENT AND RETURN TO CICS...               *
      ******************************************************************
G, ,
                                          ,
                                GWL-RETURN-ROWS, TDS-ZERO, TDS-ENDRPC.
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
CICS-DUMPEXIT

          END-IF.

          CALL 'TDFREE' USING90-.
9     THRU

      900-EXIT.
             TDCANCEL

      910-ERR-PROCESS.
      ******************************************************************
      * PERFORM ALL-DONE IN A ERROR STATE                              *
      ******************************************************************
                                                                        ,, 9-.
          MOVE ZERO             TO  GWL-RETURN-ROWS.
          MOVETDS-ZERO, ,
          PERFORM      20SEND-MESSAGEWS-MSG

      0.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          EXIT.
                                                                        ,
      920-SEND-MESSAGE
      ******************************************************************
      * CAUSE A CICS TRANSACTION DUMP USUALLY BECAUSE SOMETHING IS BAD *
      ******************************************************************
                     CICS
                                GWL-STATUS-DONE, GWL-STATUS-COUNT      *==> ENSURE THAT WE ARE IN THE CORRECT STATE TO SEND A MESSAGE <=*
GWL-STATUS-COMM
                                ,
                                GWL-STATUS-SUBCODE. 98-       THRU
                                                                         90CICS-RETURNTHRU
      *==> ENSURE THAT WE ARE IN THE CORRECT STATE TO SEND A MESSAGE <=*
  NOT
8-THRU
             PERFORM 990-CICS-RETURN     THRU 990-EXIT


          IF GWL-STATUS-COMM = TDS-RECEIVE THEN
             CALL'' USINGGWL-PROC.

java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          MOVE LENGTH OF EIBTRNID TO GWL-TRAN-LEN.
          MOVE LENGTH OF WS-MSG   TO GWL-MSG-LEN.
          CALL 'TDSNDMSG' USING GWL-PROC, GWL-RC, TDS-ERROR-MSG
                               ,,
                               TDS-ZERO, EIBTRNID, GWL-TRAN-LEN,
                               WS-MSG, GWL-MSG-LEN.
                                                                              * CAUSE A CICS TRANSACTION DUMP USUALLY BECAUSE SOMETHING IS BAD *
      920-EXIT.
          EXIT.

      980-CICS-DUMP.
      ******************************************************************
      * CAUSE A CICS TRANSACTION DUMP USUALLY BECAUSE SOMETHING IS BAD *
      ******************************************************************
          EXEC CICS
               DUMP DUMPCODE      ******************************************************************
          END-EXEC

      980-EXIT.
          .java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72

      990-CICS-RETURN.
      ******************************************************************
      * RETURN TO CICS...                                              *
      ******************************************************************

          EXEC CICS
               RETURN
          END-EXEC.

      990-EXIT.
          EXIT.

quality98%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.17Angebot ¤

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.