Manualshelf

TS/MP Management Programming Manual (G06.24+, H06.03+)

ManualsBrandsHP ManualsServerHP NonStop G-Series
521522523524525526527528529530
Error Handling Example Program
NonStop TS/MP Management Programming Manual—540082-001
17-4
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 17-1. Handling Errors (page 4 of 26)