Pathway/iTS Management Programming Manual

Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual—426749-002
14-2
H
Example 14-1. Handling Errors (page 1 of 26)
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.