HP NonStop Pathway/iTS Programming Manual page 647

Error Handling Example Program
Example 14-1. Handling Errors (page 2 of 26)
05 WS-ERROR.
10 OBJECT-TYPE
10 OBJECT-FLAG
88 OBJECT-HAS-NO-NAME
88 OBJECT-HAS-NAME
10 NAME-TKN
10 INFO
05 WS-DECODE.
10 PARAMETER
10 OBJECT-FLAG
88 OBJECT-HAS-NO-NAME
88 OBJECT-HAS-NAME
10 OBJECT-TYPE-NAME
10 OBJECT-NAME-COUNT
10 OBJECT-NAME-TABLE.
15 OBJECT-NAME-1
15 OBJECT-NUMBER
15 OBJECT-NAME-2
15 OBJECT-NAME-3
10 OBJECT-NAMES REDEFINES OBJECT-NAME-TABLE.
15 OBJECT-NAME
10 REQ-NAME-TKN
10 NAME-TKN
05 WS-PRINT.
10 INDENT
10 COUNTER
10 IMAGE
05 WS-NUMOUT.
10 BASE
10 WIDTH
10 NAME
/
EXTENDED-STORAGE SECTION.
01 WS-TABLE-LIMITS.
05 MAX-COMMANDS
05 MAX-OBJECTS
05 MAX-TNMS
/
01 WS-COMMAND-NAME-TABLE.
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
05 FILLER
NonStop Pathway/iTS Management Programming Manual—426749-002
NATIVE-2 VALUE -1.
PIC S9(4) COMP VALUE
VALUE
VALUE
NATIVE-4.
NATIVE-2 VALUE -1.
NATIVE-2 VALUE -1.
PIC S9(4) COMP VALUE
VALUE
VALUE
PIC X(15) VALUE SPACES.
PIC S9(4).
PIC X(32).
REDEFINES OBJECT-NAME-1
PIC S9(5).
PIC X(32).
PIC X(32).
PIC X(32) OCCURS 3 TIMES.
NATIVE-4.
NATIVE-4.
PIC S9(4).
PIC S9(4).
PIC X(70) VALUE SPACES.
PIC S9(4) COMP VALUE 8.
PIC S9(4) COMP VALUE 6.
PIC X(6) VALUE SPACES.
PIC S9(4) COMP VALUE 20.
PIC S9(4) COMP VALUE 21.
PIC S9(4) COMP VALUE 136.
PIC X(15) VALUE "GET VERSION".
PIC X(15) VALUE "ABORT".
PIC X(15) VALUE "ADD".
PIC X(15) VALUE "ALTER".
PIC X(15) VALUE "CONTROL".
PIC X(15) VALUE "DELETE".
PIC X(15) VALUE "FREEZE".
PIC X(15) VALUE "FREEZESTATUS".
PIC X(15) VALUE "INFO".
PIC X(15) VALUE "INSPECT".
PIC X(15) VALUE "REFRESHCODE".
PIC X(15) VALUE "RESUME".
PIC X(15) VALUE "START".
PIC X(15) VALUE "STATS".
PIC X(15) VALUE "STATUS".
PIC X(15) VALUE "STOP".
PIC X(15) VALUE "SUSPEND".
PIC X(15) VALUE "SWITCH".
PIC X(15) VALUE "TELL".
PIC X(15) VALUE "THAW".
PIC X(15) VALUE "SHUTDOWN2".
14- 3
0.
0.
1.
0.
0.
1.