TS/MP 2.5 Management Programming Manual

05 FILLER PIC X(20) VALUE "BUTAKEOVER".
05 FILLER PIC S9(4) VALUE 3218.
05 FILLER PIC X(20) VALUE "DUMPTAKEN".
05 FILLER PIC S9(4) VALUE 3219.
05 FILLER PIC X(20) VALUE "INSPECTNOTENABLED".
05 FILLER PIC S9(4) VALUE 3220.
05 FILLER PIC X(20) VALUE "INSPECTMAXTERM".
05 FILLER PIC S9(4) VALUE 3221.
05 FILLER PIC X(20) VALUE "INSPECTMAXBKPT".
05 FILLER PIC S9(4) VALUE 3222.
05 FILLER PIC X(20) VALUE "INSPECTATBKPT".
05 FILLER PIC S9(4) VALUE 3223.
05 FILLER PIC X(20) VALUE "INSPECTIO".
05 FILLER PIC S9(4) VALUE 3224.
05 FILLER PIC X(20) VALUE "INSPECTBADTERM".
05 FILLER PIC S9(4) VALUE 3225.
05 FILLER PIC X(20) VALUE "PMTCPFNS".
05 FILLER PIC S9(4) VALUE 3226.
05 FILLER PIC X(20) VALUE "BADPMNAME".
05 FILLER PIC S9(4) VALUE 3227.
05 FILLER PIC X(20) VALUE "BADSYSNAME".
05 FILLER PIC S9(4) VALUE 3228.
05 FILLER PIC X(20) VALUE "SYSNOTDEFINED".
05 FILLER PIC S9(4) VALUE 3229.
05 FILLER PIC X(20) VALUE "MAXPM".
05 FILLER PIC S9(4) VALUE 3230.
05 FILLER PIC X(20) VALUE "PMIO".
05 FILLER PIC S9(4) VALUE 3231.
05 FILLER PIC X(20) VALUE "TERMDATATOOBIG".
05 FILLER PIC S9(4) VALUE 3232.
05 FILLER PIC X(20) VALUE "SPUNKNOWN".
05 FILLER PIC S9(4) VALUE 3233.
05 FILLER PIC X(20) VALUE "BADSYSTYPE".
05 FILLER PIC S9(4) VALUE 3234.
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
363