HP NonStop Pathway/iTS User Manual

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

HP NonStop Pathway/iTS Specifications

General

Brand	HP
Model	NonStop Pathway/iTS
Category	Software
Language	English