SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual—138786
A-8
COBOL Definitions
88 RCD-ALLOC-FAIL-NO-RETRY VALUE IS 1.
88 RCD-ALLOC-FAIL-RETRY VALUE IS 2.
88 RCD-CONVERS-TYPE-MISMATCH VALUE IS 3.
88 RCD-SYNC-LEVL-NOT-SUPPTD VALUE IS 4.
88 RCD-TPNAME-NOT-RECOGNIZED VALUE IS 5.
88 RCD-TP-NOTAVAIL-NORETRY VALUE IS 6.
88 RCD-TP-NOTAVAIL-RETRY VALUE IS 7.
88 RCD-PIP-SPECIFIED-INCORRECTLY VALUE IS 8.
88 RCD-SECURITY-NOT-VALID VALUE IS 9.
88 RCD-PIP-NOT-ALLOWED VALUE IS 10.
02 DEALLOCATE-ABEND-DETAIL REDEFINES REP-RETURN-CODE-DETAIL
PIC S9(4) COMP.
88 RCD-ABEND-TP-REMOTE VALUE IS 0.
88 RCD-ABEND-TP-LOCAL VALUE IS 1.
02 PARAMETER-ERROR-DETAIL REDEFINES REP-RETURN-CODE-DETAIL
PIC S9(4) COMP.
88 RCD-INVALID-PARTNER-NAME VALUE IS 1.
88 RCD-INVALID-MODENAME VALUE IS 2.
88 RCD-SYNCLVL-NOT-SUPPTD VALUE IS 4.
88 RCD-IMPROPER-SYNCLEVEL-PARAMVALUE IS 5.
88 RCD-PS-HDR-NOT-SUPPTD VALUE IS 6.
02 PROGRAM-STATE-CHECK-DETAIL REDEFINES REP-RETURN-CODE-
DETAIL PIC S9(4) COMP.
88 RCD-NOT-SEND VALUE IS 1.
88 RCD-NOT-SEND-OR-RCV VALUE IS 2.
?SECTION IPC-RETURN-CODE-TAB,TANDEM
01 IPC-RETURN-CODE-TAB.
02 IPC-RETURN-CODE-TABLE.
03 FILLER PIC X(34)
VALUE "0000IPC Ok".
03 FILLER PIC X(34)
VALUE "0001Invalid Version
Code".
03 FILLER PIC X(34)
VALUE "0002Invalid Resource
ID".
03 FILLER PIC X(34)
VALUE "0003Service Denied".
03 FILLER PIC X(34)
VALUE "0004Invalid UOW
Header".
03 FILLER PIC X(34)
VALUE "0005Request Too
Long"
03 FILLER PIC X(34)
VALUE "0006Request Too
Short".
03 FILLER PIC X(34)
VALUE "0007Reply Too Long".
03 FILLER PIC X(34)
VALUE "0008Invalid Request
Code".
03 FILLER PIC X(34)
VALUE "0009Snax File
Error".