TS/MP 2.5 Management Programming Manual

05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
05 FILLER PIC X(12) VALUE "TCP".
05 FILLER PIC 9 VALUE 1.
05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
05 FILLER PIC X(12) VALUE "TCPLINK".
05 FILLER PIC 9 VALUE 1.
05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
05 FILLER PIC X(12) VALUE "TCPSC".
05 FILLER PIC 9 VALUE 1.
05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
05 FILLER PIC X(12) VALUE "TCPTERM".
05 FILLER PIC 9 VALUE 1.
05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
05 FILLER PIC X(12) VALUE "TELL".
05 FILLER PIC 9 VALUE 1.
05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
05 FILLER PIC X(12) VALUE "TERM".
05 FILLER PIC 9 VALUE 1.
05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
05 FILLER PIC X(12) VALUE "SCDEFINE".
05 FILLER PIC 9 VALUE 1.
05 FILLER NATIVE-4.
05 FILLER NATIVE-4.
01 WS-OBJECT-TYPE-NAMES REDEFINES WS-OBJECT-TYPE-NAME-TABLE.
05 OBJECT-ENTRY OCCURS 22 TIMES.
10 OBJECT-TYPE-NAME PIC X(12).
10 OBJECT-FLAG PIC 9.
10 REQ-NAME-TKN NATIVE-4.
10 NAME-TKN NATIVE-4.
/
01 WS-TNM-NAME-TABLE.
05 FILLER PIC X(23) VALUE "DEF-PATHCTL".
05 FILLER PIC X(23) VALUE "DEF-PATHWAY".
05 FILLER PIC X(23) VALUE "DEF-PROG".
05 FILLER PIC X(23) VALUE "DEF-PROGTERM".
05 FILLER PIC X(23) VALUE "DEF-SC".
05 FILLER PIC X(23) VALUE "DEF-SCASSIGN".
05 FILLER PIC X(23) VALUE "DEF-SCPARAM".
05 FILLER PIC X(23) VALUE "DEF-SCPROCESS".
05 FILLER PIC X(23) VALUE "DEF-SCSTARTUP".
05 FILLER PIC X(23) VALUE "DEF-TCP".
05 FILLER PIC X(23) VALUE "DEF-TELL".
05 FILLER PIC X(23) VALUE "DEF-TERM".
05 FILLER PIC X(23) VALUE "DESCRIPTOR".
05 FILLER PIC X(23) VALUE "DEVICESUBTYPE".
05 FILLER PIC X(23) VALUE "DUMPERROR".
05 FILLER PIC X(23) VALUE "EADDR".
05 FILLER PIC X(23) VALUE "EID".
05 FILLER PIC X(23) VALUE "ERRINFO".
05 FILLER PIC X(23) VALUE "ERROBJECTTYPE".
05 FILLER PIC X(23) VALUE "ERROR".
05 FILLER PIC X(23) VALUE "EVENTCLASS".
05 FILLER PIC X(23) VALUE "FIELDLENGTH".
05 FILLER PIC X(23) VALUE "FIELDOFFSET".
05 FILLER PIC X(23) VALUE "FNAME".
05 FILLER PIC X(23) VALUE "INSTRUCTION".
05 FILLER PIC X(23) VALUE "IOPROTOCOL".
05 FILLER PIC X(23) VALUE "LADDR".
05 FILLER PIC X(23) VALUE "LMNAME".
05 FILLER PIC X(23) VALUE "MAXINPUTMSGS".
05 FILLER PIC X(23) VALUE "MESSAGELENGTH".
05 FILLER PIC X(23) VALUE "NESTEDMSGNUMBER".
05 FILLER PIC X(23) VALUE "NEWPROCERROR".
05 FILLER PIC X(23) VALUE "PADDR".
05 FILLER PIC X(23) VALUE "PAR-CONTROL-PM".
352 Error Handling Example Program