HP NonStop Pathway/iTS Programming Manual page 662

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