Manualshelf

TS/MP 2.5 Management Programming Manual

ManualsBrandsHP ManualsServerHP Integrity NonStop J-Series
341342343344345346347348349350
Example 9 Handling Errors
IDENTIFICATION DIVISION.
PROGRAM-ID. PATHWAY-SPI-ERROR.
?CONSULT COBOLEX0
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MISCELLANEOUS.
05 WS-SS-RESULT NATIVE-2 VALUE -1.
05 WS-SPI-RESULT NATIVE-2 VALUE -1.
05 WS-FIRST-OCCURRENCE PIC S9(4) COMP VALUE 1.
05 WS-REQUEST.
10 COMMAND NATIVE-2 VALUE -1.
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 REQ-NAME-TKN NATIVE-4.
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".
350 Error Handling Example Program