SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual—138786
A-13
COBOL Definitions
03 FILLER PIC X(22)
VALUE "0010PIP Not
Allowed".
03 FILLER PIC X(22)
VALUE "9999Unknown Reply".
02 ALLOCATION-ERROR-DETAIL-TABR REDEFINES ALLOCATION-ERROR-
DETAIL-TABLE.
03 ALLOCATION-ERROR-DETAIL-INFO OCCURS 11 TIMES.
04 ALLOC-ERROR-MESSAGE-NUMBER PIC 9999.
04 ALLOC-ERROR-MESSAGE-TEXT PIC X(18).
?SECTION DEALLOCATE-ABEND-DETAIL-TAB,TANDEM
01 DEALLOCATE-ABEND-DETAIL-TAB.
02 DEALLOCATE-ABEND-DETAIL-TABLE.
03 FILLER PIC X(22)
VALUE "0000ABEND TP
Remote".
03 FILLER PIC X(22)
VALUE "0001ABEND TP Local".
03 FILLER PIC X(22)
VALUE "9999Unknown Reply".
02 DEALLOCATE-ABEND-DETAIL-TABR REDEFINES DEALLOCATE-ABEND-
DETAIL-TABLE.
03 DEALLOCATE-ABEND-DETAIL-INFO OCCURS 3 TIMES.
04 DEALL-ABEND-MESSAGE-NUMBER PIC 9999.
04 DEALL-ABEND-MESSAGE-TEXT PIC X(18).
?SECTION PARAMETER-ERROR-DETAIL-TAB,TANDEM
01 PARAMETER-ERROR-DETAIL-TAB.
02 PARAMETER-ERROR-DETAIL-TABLE.
03 FILLER PIC X(22)
VALUE "0000 ".
03 FILLER PIC X(22)
VALUE "0001Invalid Ptnr.
Name".
03 FILLER PIC X(22)
VALUE "0002Invalid Mode
Name".
03 FILLER PIC X(22)
VALUE "0004Sync Level Not
Sup".
03 FILLER PIC X(22)
VALUE "0005TP Name Not
Known".
03 FILLER PIC X(22)
VALUE "0006TP Not
Avail-Fatal".
03 FILLER PIC X(22)
VALUE "9999Unknown Reply".
02 PARAMETER-ERROR-DETAIL-TABR REDEFINES PARAMETER-ERROR-
DETAIL-TABLE.
03 PARAMETER-ERROR-DETAIL-INFO OCCURS 4 TIMES.
04 PARAM-ERROR-MESSAGE-NUMBER PIC 9999.
04 PARAM-ERROR-MESSAGE-TEXT PIC X(18).
?SECTION PROGRAM-STATE-DETAIL-TAB,TANDEM
01 PROGRAM-STATE-DETAIL-TAB.
02 PROGRAM-STATE-DETAIL-TABLE.