Quelle cicscall.cbl Sprache: Cobol

       IDENTIFICATION DIVISION.
      PROGRAM-ID.  OSCICS8CIDENTIFICATION       .
      DATE-WRITTEN. 09/17/96.
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 DIVISION.                                              DIVISION.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72

      DATA DIVISION.                                                           DIVISION.                                                                                                                           *  COPY SYGWCOB.
                                                                        .
.
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      ******************************************************************
      * COPY IN THE OS SERVER LIBRARYS
      ******************************************************************
          05  GWL-STATUS-NR           PIC S9(9) COMP.
      ******************************************************************
      *OPEN SERVER WORK VARIBLES FOR OS CALL TO USE ...
      ******************************************************************
      01  WS-GWL-WORK-VARIBLES.
          05                  POINTER
          05  GWL-INIT-HANDLE         POINTER.
          0  PICS9 COMP
          05  GWL-INFPRM-ID           PIC S9(9) COMP.
          05  GWL-INFPRM-TYPE         PIC S90      PIC(9) COMP.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  GWL-INFPRM-DATA-L                 0  GWL-STATUS-NR            ( java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  GWL-INFPRM-MAX-DATA-L   PIC0  PIC S9()COMPjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  GWL-INFPRM-STATUS       PIC S9(9) 5GWL-SETBCD-SCALE S99  VALUE
          0            S9)COMP
          05  GWL-INFPRM-NAME-L S9(9) COMP.
          5GWL-INFPRM-USER-DATA S9)COMP
          05  GWL-INFUDT-USER-TYPE    PIC S9(9) COMP.
          5  GWL-STATUS-NR S9 .MP
          05  GWL-STATUS-DONE         PIC S9(9) COMP.
          05GWL-STATUS-COUNT S99 .
          05  GWL-STATUS-COMM S9.
          05  GWL-COMM-STATE          PIC0            S9COMP
          05            05  GWL-TRAN-LEN      (9) COMP
          05  GWL-STATUS-SUBCODE5      PIC(9) .
          0  GWL-NUMPRM-PARMSPICS9(         0  GWL-MSG-LEN S9
          05            GWL-SETBCD-SCALE         S9 COMPVALUE
          5  GWL-SETPRM-ID           PICS9COMP
          05  GWL-SETPRM-TYPE         PIC S9(9) COMP.
         0  GWL-SETPRM-DATA-L
          0  GWL-SETPRM-USER-DATA          5  I                        S9) COMP+.
          0  GWL-CONVRT-SCALE           05SNA-CONN-NAME X(8 SPACES.
          05  GWL-SETBCD-SCALEPICS99 COMPVALUE
          05  GWL-INFBCD-LENGTH       PIC S9(9) COMP.                             0            S99COMP
                    PIC9.
          05  GWL-RETURN-ROWS         PIC S9(          0           PIC(09) COMPVALUEjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  SNA-CONN-NAMEPIC X(8)  VALUE SPACES
          05                  0               S9)COMP + java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
05            PICS9COMP
          0
          05  GWL-MSG-LEN S9(9) COMP.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  GWL-REQUEST-TYP         PIC          5 COLUMN-NUMBER          PIC S9(09) COMP VALUE +0.
          05 GWL-RPC-NAME X(0) VALUESPACES3WS-INPUT-DATAX100   SPACES
          05          PIC(9)COMPjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          05  I                       PIC S9    PIC
          05  J                       PIC(4) COMP VALUE +0.

      01.
          05 COLUMN-NUMBER          PIC S9(09) COMP VALUE +0.
          05 HOST-TYPE
          05HOST-LEN(09) COMPVALUE.
          05 COLUMN-LEN             PIC S9(09) COMP VALUE +0.
0         S9COMP +0.
                                                                        0MSG-NR (9) COMPVALUE9.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      01  WS-MSG-WORK-VARS.
                ******************************************************************
                                                                              * MESSAGES                                                       *
      0FILLER  X(1)
      01
          03  WS-INPUT-DATA           PIC          5WS-MSG-FUNC  X(0.
          03  WS-INPUT-REDEFINE REDEFINES WS-INPUT-DATA.
              05  WS-INPUT-TABLE          05  FILLER                      X(0)          0  WS-OUTPUT-REDEFINEREDEFINES.
                  10  WS-INPUT-CHAR    PIC   99


      01  WS-OUTPUT-DATA-HDR          5                    PIC(9VALUE
          03  WS-OUTPUT-DATA           PIC X(50)   VALUE SPACES.
          03  WS-OUTPUT-REDEFINE REDEFINES WS-OUTPUT-DATA.
              05  WS-OUTPUT-TABLE OCCURS 50 TIMES.                            ******************************************************************
                  10  WS-OUTPUT-CHAR    PIC X.
                                                                        5WK-INFO-TBL-NAME      PIC(0)
      01  WS-OUTPUT-COL-NAME          PIC X(13)
          VALUE 'OUTPUT_COLUMN'.
                                                                              **************************************************************
      ******************************************************************
      * MESSAGES                                                       *
      ******************************************************************

      0  .
          05  FILLER                    PIC  X(1              VALUERC.
              VALUE              VALUE'SUBCODEERROR ='
          05  WS-MSG-FUNC               PIC  X(10).
          05  FILLER                    PIC
              VALUE 'RC='.
          05  WS-MSG-RC                 PIC  9(9).
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
              VALUE01  WORK-SRVIN-INFO
          05  MSG-SUBC05 WK-INFO-TBL-NAME  X(30.
0                  X()VALUE.


      1WORK-SRVIN-INFO
          05  WK-INFO-TBL-ID        PIC S9(8) COMP.
          05  WK-INFO-TBL-NAME      PIC  X(30).
      * PASSED BETWEEN THIS PROGRAM.
                                                                              **************************************************************

      LINKAGE SECTION.
      **************************************************************
      * THE LINKAGE SECTION DEFINES MASKS FOR DATA AREAS THAT ARE
      * PASSED BETWEEN THIS PROGRAM.
      **************************************************************

            ******************************************************


      PROCEDURE DIVISION.

      000           00PROCESS-INPUT
                                                                        PERFORM0-ROCESS-OUTPUT 300-.
           10-INITIALIZE1-.
                                                                         91-   91-
          PERFORM 200-PROCESS-INPUT         THRU 200-EXIT.

          PERFORM 30          '' USING GWL-PROC,

          PERFORM 900-ALL-DONE              THRU 900-EXIT.

          GOBACK.

      000-EXIT.
          EXIT.
                                                                              *==> ESTABLISH GATEWAY ENVIRONMENT <===*
      100-INITIALIZE.
                                                                        IF NOT = TDS-OK
      ******************************************************
      * INTIALIZED THE TDS CONNECTION AND RECEIVE THE
      * RPC PARM........
      ******************************************************

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

, GWL-RC GWL-INIT-HANDLE
          IF GWL-RC NOT = TDS-OK THEN
             PERFORM910ERR-PROCESS 910-EXIT
          END-IF

      *==> ACCEPT CLIENT REQUEST <===*

          CALL 'TDACCEPT , GWL-RPC-NAME, InvalidNumber
                                SNA-CONN-NAME.
          IF GWL-RC              MOVE         TO WS-MSG-RC
            PERFORM1ERR-PROCESS  THRU1-
          END-IF.

      *==> TO MAKE SURE WE WERE STARTED BY RPC REQUEST... <===*

PROC        GWL-RC
                                GWL-REQUEST-TYP, GWL-RPC-NAME,
GWL-COMM-STATE
          IF GWL-RC          NOT = TDS-OK    OR
             GWL-REQUEST-TYP =
             THEN
                MOVE
                MOVE''     TO WS-MSG-FUNC
                PERFORM 90- THRU2-EXIT
                PERFORM 910-ERR-PROCESS  THRU 9EXIT.


      100-EXIT.
          EXIT.



      200-PROCESS-INPUT
      ****************************************************************
      * RECEIVE THE INPUT PARAMETER INTO HOST VARIBLE
      ****************************************************************

      *---> Find out how many parms are being passed <---*
                                                                        30PROCESS-OUTPUT
                * BREAK UP THE 10K INPUT FIELDS INTO A 50 BYTE COLUMN AND SEND

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

          IF GWL-NUMPRM-PARMS not = +1 THEN
             MOVE 'Invalid Number of Parameters'
                                 TO
             MOVE GWL-RC           LENGTH  WS-OUTPUT-COL-NAME COLUMN-NAME-LEN
             MOVE' java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
             PERFORM 920-SEND-MESSAGE THRU 920-EXIT
              910-ERR-PROCESS 910-EXIT
          END-IFjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72

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

IF +
             CALL 'TDRCVPRM' USING GWL-PROC, GWL-RC,
                                   GWL-NUMPRM-PARMS,
                                   WS-INPUT-DATA,
                                ,
                                   WS-INPUT-LEN,

             IF              IFGWL-RC = TDS-OK
                MOVE GWL-RC         TO WS-MSG-RC
                MOVE 'TDRCVPRM'     TO WS-MSG-FUNC
                PERFORM 92                 910-ERR-PROCESS 91-EXIT
                          END-IF
             END-IF
          END-IF.
      200-EXIT.
          EXIT.
      300-PROCESS-OUTPUT.
      ****************************************************************
      * BREAK UP THE 10K INPUT FIELDS INTO A 50 BYTE COLUMN AND SEND
      ****************************************************************

          MOVE +1                                TO COLUMN-NUMBER.
          MOVE LENGTHPERFORM-     THRU3
.
MOVE OF       TO.
          CALL'' USING                 WS-OUTPUT-DATA
                                GWL-RC,                                ,
                                          IF   ZERO
                                ,
                                ,
                                WS-OUTPUT-DATA
                                TDS-ZERO,
                                ,
                                TDSCHAR
                                ,
WS-OUTPUT-COL-NAMEjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
                                COLUMN-NAME-LEN.

          IF GWL-RC NOT
             MOVE GWL-RC         TO WS-MSG-RC
              ''     TO
             PERFORM 9            PERFORM THRU0  92-
             PERFORM 910-ERR-PROCESS.java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          END-IF.


           VARYING  1BY   >GWL-ACTUAL-LEN
=+
             MOVE()TO()java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
             IF       * CLOSE CONNECTION TO CLIENT AND RETURN TO CICS...               *
             THEN
                PERFORM 310-SEND-ROW     THRU 310-EXIT
                MOVE ZERO                TO   J
                MOVE SPACES              TO   WS-OUTPUT-DATA
             END-IF
.
          IF J > ZERO
             THEN PERFORM 310-SEND-ROW     THRU 310-EXIT.

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

          CALL 'TDSNDROW' USING GWL-PROCGWL-RC
          IF GWL-RC          CALL'TDSNDROW USING GWL-PROC, GWL-RC
          THEN
             MOVE GWL-RC         TO WS-MSG-RC          .
               WS-MSG-FUNC
             PERFORM 920-SEND-MESSAGE THRU 920-      * PERFORM ALL-DONE IN A ERROR STATE                              *
             PERFORM 91-ERR-PROCESS  THRU-XIT
                        910-ERR-PROCESS 910-EXIT

      310-EXIT.
          EXIT.
          EJECT
      900-ALL-DONE.
      ******************************************************************
      * CLOSE CONNECTION TO CLIENT AND RETURN TO CICS...               *
      ******************************************************************

          CALL      ******************************************************************
GWL-RETURN-ROWS, TDS-ENDRPC
          IF GWL-RC NOT                                 GWL-STATUS-COUNT
             PERFORM 980-CICS-DUMP                                ,
             PERFORM 990-CICS-RETURN  THRU 99
             PERFORM980-CICS-DUMP    THRU 980-
java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
          CALL 'TDFREE' USING GWL-PROC, GWL-RC.
          PERFORM 990-CICS-RETURN     THRU 990-EXIT.

      0EXIT
          EXIT.
                                                                        CICS-RETURN99-XIT.
      910-ERR-PROCESS.
      ******************************************************************
      * PERFORM ALL-DONE IN A ERROR STATE                              *
      ******************************************************************

          MOVE ZERO             TO  GWL-RETURN-ROWS.
          MOVE TDS-DONE-ERROR   TO  WRK-DONE-STATUS.
          PERFORM 900-ALL-DONE  THRU 900-EXIT.

      0EXIT
          EXIT.

9-.                                                 , GWL-MSG-LEN
      ******************************************************************
      * SEND ERROR MESSAGE DOWN TO CLIENT                              *
      ******************************************************************
          CALL 'TDSTATUS' USING GWL-PROC, GWL-RC, GWL-STATUS-NR,
                                GWL-STATUS-DONE, GWL-STATUS-COUNT,
                                ,
                                ,
                                GWL-STATUS-SUBCODE.

      *==> ENSURE THAT WE ARE IN THE CORRECT STATE TO SEND A MESSAGE <=*
          IF GWL-RC NOT = TDS-OK THEN                                ,
             PERFORM8-ICS-DUMP 980-EXIT
             PERFORM9-      990-EXIT
          .

          IF          IFGWL-RC = TDS-OKTHEN
             CALL 'TDCANCEL' USING             PERFORM90       THRU 980EXITjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72

                                                                              ******************************************************************
      * RETURN TO CICS...                                              *
          MOVE LENGTH OF WS-MSG   TO GWL-MSG-LEN.
          CALL 'TDSNDMSG' USING GWL-PROC, GWL-RC, TDS-ERROR-MSG,
                               MSG-NRTDS-ERROR-SEVTDS-ZERO
                               TDS-ZERO, EIBTRNID
                               ,GWL-MSG-LENjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72

      920-EXIT.
          EXIT.
                                                                        MSG-NR, TDS-ERROR-SEV TDS-ZERO
      980-CICS-DUMP.
      ******************************************************************
      * CAUSE A CICS TRANSACTION DUMP USUALLY BECAUSE SOMETHING IS BAD *
      ******************************************************************
          EXEC CICS
               DUMP DUMPCODE('SY8C') NOHANDLE
          END-EXEC.

      980-EXIT.
          EXIT      * CAUSE A CICS TRANSACTION DUMP USUALLY BECAUSE SOMETHING IS BAD *

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

          EXEC CICS
               RETURN
                    EXIT

      990-EXIT.
          EXIT.

quality98%

¤ Dauer der Verarbeitung: 0.17 Sekunden ¤

*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.