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

Error Handling Example Program
NonStop TS/MP Management Programming Manual—540082-001
17-7
05 FILLER PIC X(23) VALUE "DEF-SCPROGRAMOSS".
05 FILLER PIC X(23) VALUE "DEF-SCCWD".
05 FILLER PIC X(23) VALUE "DEF-SCSTDERR".
05 FILLER PIC X(23) VALUE "DEF-SCSTDIN".
05 FILLER PIC X(23) VALUE "DEF-SCSTDOUT".
05 FILLER PIC X(23) VALUE "DEF-SCENV".
05 FILLER PIC X(23) VALUE "DEF-SCARGLIST".
05 FILLER PIC X(23) VALUE "QUAL-SC".
05 FILLER PIC X(23) VALUE "OSSERRNO".
05 FILLER PIC X(23) VALUE "TPCERROR".
05 FILLER PIC X(23) VALUE "TPCDETAIL".
05 FILLER PIC X(23) VALUE "PAR-INFO".
01 WS-TNM-NAMES REDEFINES WS-TNM-NAME-TABLE.
05 TNM-ENTRY PIC X(23) OCCURS 162 TIMES.
/
01 WS-SPI-ERROR-NAME-TABLE.
05 FILLER PIC X(19) VALUE "EXTRATOKEN".
05 FILLER PIC S9(4) VALUE 4001.
05 FILLER PIC X(19) VALUE "INVALIDTOKEN".
05 FILLER PIC S9(4) VALUE 4002.
05 FILLER PIC X(19) VALUE "WRONGTOKEN".
05 FILLER PIC S9(4) VALUE 4003.
05 FILLER PIC X(19) VALUE "MISSINGTOKEN".
05 FILLER PIC S9(4) VALUE 4004.
05 FILLER PIC X(19) VALUE "INVALIDFIELD".
05 FILLER PIC S9(4) VALUE 4005.
05 FILLER PIC X(19) VALUE "MISSINGFIELD".
05 FILLER PIC S9(4) VALUE 4006.
05 FILLER PIC X(19) VALUE "NUMSTATICTOOBIG".
05 FILLER PIC S9(4) VALUE 4007.
05 FILLER PIC X(19) VALUE "TOOMANYDEFSERVERS".
05 FILLER PIC S9(4) VALUE 4008.
05 FILLER PIC X(19) VALUE "INVALIDBUFFER".
05 FILLER PIC S9(4) VALUE 4009.
05 FILLER PIC X(19) VALUE "BADCHECKSUM".
05 FILLER PIC S9(4) VALUE 4010.
05 FILLER PIC X(19) VALUE "SSPUT".
05 FILLER PIC S9(4) VALUE 4011.
05 FILLER PIC X(19) VALUE "SSGET".
05 FILLER PIC S9(4) VALUE 4012.
05 FILLER PIC X(19) VALUE "SSINIT".
05 FILLER PIC S9(4) VALUE 4013.
05 FILLER PIC X(19) VALUE "SSNULL".
05 FILLER PIC S9(4) VALUE 4014.
05 FILLER PIC X(19) VALUE "WRONGSUBSYS".
05 FILLER PIC S9(4) VALUE 4015.
05 FILLER PIC X(19) VALUE "RESERVEDWORD".
05 FILLER PIC S9(4) VALUE 4016.
05 FILLER PIC X(19) VALUE "INVALIDCONTEXT".
05 FILLER PIC S9(4) VALUE 4017.
05 FILLER PIC X(19) VALUE "CTLPMNAMEMISMATCH".
05 FILLER PIC S9(4) VALUE 4018.
05 FILLER PIC X(19) VALUE "CTLSTATEMISMATCH".
05 FILLER PIC S9(4) VALUE 4019.
05 FILLER PIC X(19) VALUE "CMDTOOBIG".
05 FILLER PIC S9(4) VALUE 4021.
05 FILLER PIC X(19) VALUE "ATLEASTONE".
05 FILLER PIC S9(4) VALUE 4022.
05 FILLER PIC X(19) VALUE "CWDCANTBERESETNOW".
05 FILLER PIC S9(4) VALUE 4023.
05 FILLER PIC X(19) VALUE "GUARDIANATTRUSED".
05 FILLER PIC S9(4) VALUE 4024.
Example 17-1. Handling Errors (page 7 of 26)