![HP NonStop Pathway/iTS Скачать руководство пользователя страница 668](http://html.mh-extra.com/html/hp/nonstop-pathway-its/nonstop-pathway-its_programming-manual_165147668.webp)
Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual— 426749-002
14 -24
/
1000-DISPLAY-ERROR-OBJTYPE.
* Get the ERROBJECTTYPE token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-TKN-ERROBJECTTYPE,
OBJECT-TYPE OF WS-ERROR,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-TYPE OF WS-ERROR TO PARAMETER OF WS-DECODE
PERFORM 1400-DECODE-OBJECT-TYPE
DISPLAY " ERROR OBJECT: "
OBJECT-TYPE-NAME OF WS-DECODE
MOVE OBJECT-FLAG OF WS-DECODE TO OBJECT-FLAG OF WS-ERROR
MOVE NAME-TKN OF WS-DECODE TO NAME-TKN OF WS-ERROR
.
/
1100-DISPLAY-ERROR-OBJNAME.
IF OBJECT-HAS-NAME OF WS-ERROR
* Get the ERR<object>NAME token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
NAME-TKN OF WS-ERROR,
OBJECT-NAME-AREA,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
IF WS-SS-RESULT NOT = ZSPI-ERR-MISTKN
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
* Decode the error object name:
MOVE OBJECT-TYPE OF WS-ERROR TO PARAMETER OF WS-DECODE
MOVE SPACES TO OBJECT-NAME-1 OF WS-DECODE
OBJECT-NAME-2 OF WS-DECODE
OBJECT-NAME-3 OF WS-DECODE
PERFORM 1500-DECODE-OBJECT-NAME
* Print the error object name:
MOVE 1 TO INDENT OF WS-PRINT
MOVE SPACES TO IMAGE OF WS-PRINT
STRING " ERROR OBJECT NAME: " DELIMITED BY SIZE
INTO IMAGE OF WS-PRINT
WITH POINTER INDENT OF WS-PRINT
END-STRING
PERFORM 1600-DISPLAY-OBJECT-NAME
END-IF
END-IF
.
1200-DISPLAY-ERROR-INFO.
* Get the (optional) ERRINFO token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-TKN-ERRINFO,
INFO OF WS-ERROR,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
IF WS-SS-RESULT IS ZERO THEN
IF INFO OF WS-ERROR IS NOT ZERO THEN
DISPLAY " ERROR INFO: " INFO OF WS-ERROR
ENTER TAL "NUMOUT"
USING NAME OF WS-NUMOUT
INFO OF WS-ERROR
BASE OF WS-NUMOUT
WIDTH OF WS-NUMOUT
Example 14-1. Handling Errors
(page 23 of 26)
Содержание NonStop Pathway/iTS
Страница 20: ...About This Manual NonStop Pathway iTS Management Programming Manual 426749 002 xviii Change Bar Notation ...
Страница 28: ...Introduction NonStop Pathway iTS Management Programming Manual 426749 002 1 8 SPI Interface ...
Страница 100: ...ZPWY DDL Definitions NonStop Pathway iTS Management Programming Manual 426749 002 5 26 Simple Tokens ...
Страница 180: ...ZPWY MAP Definitions NonStop Pathway iTS Management Programming Manual 426749 002 6 80 ZPWY MAP TELLNUM ...
Страница 270: ...PROG Commands NonStop Pathway iTS Management Programming Manual 426749 002 9 20 START PROG ...
Страница 480: ...TCP Event Messages NonStop Pathway iTS Management Programming Manual 426749 002 11 202 ...
Страница 672: ...Error Handling Example Program NonStop Pathway iTS Management Programming Manual 426749 002 14 28 ...
Страница 694: ...Index NonStop Pathway iTS Management Programming Manual 426749 002 Index 22 Special Characters ...