Pathway/iTS Management Programming Manual

Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual—426749-002
14-18
05 FILLER PIC X(20) VALUE "CODEAREATHRASHING".
05 FILLER PIC S9(4) VALUE 3235.
05 FILLER PIC X(20) VALUE "FILEERRORFATAL".
05 FILLER PIC S9(4) VALUE 3237.
05 FILLER PIC X(20) VALUE "BADPUREFPARAM".
05 FILLER PIC S9(4) VALUE 3238.
05 FILLER PIC X(20) VALUE "BADLIBVERSION".
05 FILLER PIC S9(4) VALUE 3239.
05 FILLER PIC X(20) VALUE "TOOMANYINPUTMSGS".
05 FILLER PIC S9(4) VALUE 3240.
05 FILLER PIC X(20) VALUE "UNSOLREJECTED".
05 FILLER PIC S9(4) VALUE 3241.
05 FILLER PIC X(20) VALUE "VARUNSOLREJECTED".
05 FILLER PIC S9(4) VALUE 3242.
05 FILLER PIC X(20) VALUE "BADOSVERSION".
05 FILLER PIC S9(4) VALUE 3243.
01 WS-TCP-ERROR-NAMES REDEFINES WS-TCP-ERROR-NAME-TABLE.
05 ERROR-ENTRY OCCURS 159 TIMES
ASCENDING KEY IS ERROR-NUMBER OF
WS-TCP-ERROR-NAMES
INDEXED BY TCP-ERROR-INDEX.
10 ERROR-NAME PIC X(20).
10 ERROR-NUMBER PIC S9(4).
/
COPY CONSTANTS IN "$SYSTEM.ZSPIDEF.ZSPICOB".
COPY CONSTANTS IN "$SYSTEM.ZSPIDEF.ZPWYCOB".
COPY ZSPI-DDL-PARM-ERR IN "$SYSTEM.ZSPIDEF.ZSPICOB".
01 OBJECT-NAME-AREA PIC X(2).
COPY ZPWY-DDL-LMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-LMNAME BY
==ZPWY-DDL-LMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-PMREQUESTERNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-PMREQUESTERNAME BY
==ZPWY-DDL-PMREQUESTERNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-PROGNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-PROGNAME BY
==ZPWY-DDL-PROGNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-PROGTERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-PROGTERMNAME BY
==ZPWY-DDL-PROGTERMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCNAME BY
==ZPWY-DDL-SCNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCASSIGNNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCASSIGNNAME BY
==ZPWY-DDL-SCASSIGNNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCLMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCLMNAME BY
==ZPWY-DDL-SCLMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCPARAMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCPARAMNAME BY
==ZPWY-DDL-SCPARAMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCPROCESSNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCPROCESSNAME BY
==ZPWY-DDL-SCPROCESSNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCSTARTUPNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCSTARTUPNAME BY
==ZPWY-DDL-SCSTARTUPNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-SCTCPNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCTCPNAME BY
==ZPWY-DDL-SCTCPNAME REDEFINES OBJECT-NAME-AREA==.
Example 14-1. Handling Errors (page 17 of 26)