TS/MP 2.5 Management Programming Manual

05 FILLER PIC X(23) VALUE "STATS-TCP1".
05 FILLER PIC X(23) VALUE "STATS-TCP2".
05 FILLER PIC X(23) VALUE "STATS-TERM1".
05 FILLER PIC X(23) VALUE "STATS-TERM2".
05 FILLER PIC X(23) VALUE "STATUS-LM".
05 FILLER PIC X(23) VALUE "STATUS-PATHWAY".
05 FILLER PIC X(23) VALUE "STATUS-PM".
05 FILLER PIC X(23) VALUE "STATUS-PMREQUESTER".
05 FILLER PIC X(23) VALUE "STATUS-SC".
05 FILLER PIC X(23) VALUE "STATUS-SCPROCESS".
05 FILLER PIC X(23) VALUE "STATUS-TCP".
05 FILLER PIC X(23) VALUE "STATUS-TCPLINK".
05 FILLER PIC X(23) VALUE "STATUS-TERMDETAIL".
05 FILLER PIC X(23) VALUE "STATUS-TERMFREEZE".
05 FILLER PIC X(23) VALUE "TCLPROGFNAME".
05 FILLER PIC X(23) VALUE "TCPLINKNAME".
05 FILLER PIC X(23) VALUE "TCPNAME".
05 FILLER PIC X(23) VALUE "TCPSCNAME".
05 FILLER PIC X(23) VALUE "TCPTERMNAME".
05 FILLER PIC X(23) VALUE "TELLNAME".
05 FILLER PIC X(23) VALUE "TELLNUM".
05 FILLER PIC X(23) VALUE "TERMINATIONSTATUS".
05 FILLER PIC X(23) VALUE "TERMNAME".
05 FILLER PIC X(23) VALUE "TIMEOUTVALUE".
05 FILLER PIC X(23) VALUE "TRAP".
05 FILLER PIC X(23) VALUE "UNKNOWNNAME".
05 FILLER PIC X(23) VALUE "UNSOLCOUNT".
05 FILLER PIC X(23) VALUE "UNSOLREJECTEDERROR".
05 FILLER PIC X(23) VALUE "USERID".
05 FILLER PIC X(23) VALUE "ERRCOMMAND".
05 FILLER PIC X(23) VALUE "STARTPROG".
05 FILLER PIC X(23) VALUE "DEFINEERROR".
05 FILLER PIC X(23) VALUE "ERRINFO2".
05 FILLER PIC X(23) VALUE "DEF-SCDEFINE".
05 FILLER PIC X(23) VALUE "REQSCDEFINENAME".
05 FILLER PIC X(23) VALUE "SCDEFINENAME".
05 FILLER PIC X(23) VALUE "SEL-SCDEFINE".
05 FILLER PIC X(23) VALUE "QUAL-TERM".
05 FILLER PIC X(23) VALUE "QUAL-TCP".
05 FILLER PIC X(23) VALUE "BUFFERLENGTH".
05 FILLER PIC X(23) VALUE "PAR-SHUTDOWN".
05 FILLER PIC X(23) VALUE "ZMODE".
05 FILLER PIC X(23) VALUE "PAR-START-PATHWAY2".
05 FILLER PIC X(23) VALUE SPACES.
05 FILLER PIC X(23) VALUE "DEF-SCPROGRAMOSS".
05 FILLER PIC X(23) VALUE "DEF-SCCWD".
05 FILLER PIC X(23) VALUE "DEF-SCSTDERR".
05 FILLER PIC X(23) VALUE "DEF-SCSTDIN".
05 FILLER PIC X(23) VALUE "DEF-SCSTDOUT".
05 FILLER PIC X(23) VALUE "DEF-SCENV".
05 FILLER PIC X(23) VALUE "DEF-SCARGLIST".
05 FILLER PIC X(23) VALUE "QUAL-SC".
05 FILLER PIC X(23) VALUE "OSSERRNO".
05 FILLER PIC X(23) VALUE "TPCERROR".
05 FILLER PIC X(23) VALUE "TPCDETAIL".
05 FILLER PIC X(23) VALUE "PAR-INFO".
01 WS-TNM-NAMES REDEFINES WS-TNM-NAME-TABLE.
05 TNM-ENTRY PIC X(23) OCCURS 162 TIMES.
/
01 WS-SPI-ERROR-NAME-TABLE.
05 FILLER PIC X(19) VALUE "EXTRATOKEN".
05 FILLER PIC S9(4) VALUE 4001.
05 FILLER PIC X(19) VALUE "INVALIDTOKEN".
05 FILLER PIC S9(4) VALUE 4002.
05 FILLER PIC X(19) VALUE "WRONGTOKEN".
05 FILLER PIC S9(4) VALUE 4003.
05 FILLER PIC X(19) VALUE "MISSINGTOKEN".
05 FILLER PIC S9(4) VALUE 4004.
05 FILLER PIC X(19) VALUE "INVALIDFIELD".
05 FILLER PIC S9(4) VALUE 4005.
05 FILLER PIC X(19) VALUE "MISSINGFIELD".
354 Error Handling Example Program