Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual—426749-002
14-5
05 FILLER PIC X(12) VALUE "SCTERM".
05 FILLER PIC 9 VALUE 1.
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".
Example 14-1. Handling Errors (page 4 of 26)