TS/MP Management Programming Manual (G06.24+, H06.03+)

Error Handling Example Program
NonStop TS/MP Management Programming Manual—540082-001
17-12
05 FILLER PIC X(20) VALUE "OSSNOTAVAILABLE".
05 FILLER PIC S9(4) VALUE 1160.
05 FILLER PIC X(20) VALUE "PROCTYPEMISMATCH".
05 FILLER PIC S9(4) VALUE 1161.
05 FILLER PIC X(20) VALUE "RESIZESEGMENT".
05 FILLER PIC S9(4) VALUE 1162.
05 FILLER PIC X(20) VALUE "PRODUCTNOTLICENSED".
05 FILLER PIC S9(4) VALUE 1164.
01 WS-PM-ERROR-NAMES REDEFINES WS-PM-ERROR-NAME-TABLE.
05 ERROR-ENTRY OCCURS 120 TIMES
ASCENDING KEY IS ERROR-NUMBER OF
WS-PM-ERROR-NAMES
INDEXED BY PM-ERROR-INDEX.
10 ERROR-NAME PIC X(20).
10 ERROR-NUMBER PIC S9(4).
/
01 WS-TCP-ERROR-NAME-TABLE.
05 FILLER PIC X(20) VALUE "BADPCODE".
05 FILLER PIC S9(4) VALUE 3001.
05 FILLER PIC X(20) VALUE "DEPENDVARTOOBIG".
05 FILLER PIC S9(4) VALUE 3002.
05 FILLER PIC X(20) VALUE "BADINDEX".
05 FILLER PIC S9(4) VALUE 3003.
05 FILLER PIC X(20) VALUE "BADRECOVERY".
05 FILLER PIC S9(4) VALUE 3004.
05 FILLER PIC X(20) VALUE "BADPUPARAMS".
05 FILLER PIC S9(4) VALUE 3005.
05 FILLER PIC X(20) VALUE "BADPUPARAMSIZE".
05 FILLER PIC S9(4) VALUE 3006.
05 FILLER PIC X(20) VALUE "NOBASEDISPLAY".
05 FILLER PIC S9(4) VALUE 3007.
05 FILLER PIC X(20) VALUE "BADDATAREF".
05 FILLER PIC S9(4) VALUE 3008.
05 FILLER PIC X(20) VALUE "BADSCREENTERM".
05 FILLER PIC S9(4) VALUE 3009.
05 FILLER PIC X(20) VALUE "TERMFORMAT".
05 FILLER PIC S9(4) VALUE 3010.
05 FILLER PIC X(20) VALUE "BADTERMTYPE".
05 FILLER PIC S9(4) VALUE 3011.
05 FILLER PIC X(20) VALUE "SCREENNOTDISPLAY".
05 FILLER PIC S9(4) VALUE 3012.
05 FILLER PIC X(20) VALUE "DUPOVERLAY".
05 FILLER PIC S9(4) VALUE 3013.
05 FILLER PIC X(20) VALUE "INVALIDIOPROTOCOL".
05 FILLER PIC S9(4) VALUE 3014.
05 FILLER PIC X(20) VALUE "ARITHOVERFLOW".
05 FILLER PIC S9(4) VALUE 3015.
05 FILLER PIC X(20) VALUE "STACKOVERFLOW".
05 FILLER PIC S9(4) VALUE 3016.
05 FILLER PIC X(20) VALUE "TERMOPEN".
05 FILLER PIC S9(4) VALUE 3017.
05 FILLER PIC X(20) VALUE "TERMIO".
05 FILLER PIC S9(4) VALUE 3018.
05 FILLER PIC X(20) VALUE "TERMIOLEN".
05 FILLER PIC S9(4) VALUE 3019.
05 FILLER PIC X(20) VALUE "PUNOTDEFINED".
05 FILLER PIC S9(4) VALUE 3020.
05 FILLER PIC X(20) VALUE "SENDFAIL".
05 FILLER PIC S9(4) VALUE 3021.
05 FILLER PIC X(20) VALUE "BADSCNAME".
05 FILLER PIC S9(4) VALUE 3022.
05 FILLER PIC X(20) VALUE "CODETOOBIG".
05 FILLER PIC S9(4) VALUE 3023.
Example 17-1. Handling Errors (page 12 of 26)