SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual—138786
A-2
COBOL Definitions
?Section ELEMENTARY-ITEMS,Tandem
01 DATA-LENGTH PIC 9(4) COMP.
01 DEACTIVATE-TYPE PIC X(2).
01 DEALLOCATION-TYPE PIC X(2).
01 DISPATCHING-PROCESS PIC X(6).
01 INDICATOR PIC X(1).
01 LOG-LEVEL PIC 9(4) COMP.
01 LUNAME PIC X(8).
01 MODENAME PIC X(8).
01 MAP-NAME PIC X(8).
01 NETNAME PIC X(34).
01 PREP-TO-RCV-TYPE PIC X(2).
01 PREP-TO-RCV-LOCKS PIC X(1).
01 PARTNER-UNINTERP-NAME PIC X(17).
01 PARTNER-TP-TYPE PIC X(1).
01 REP-CODE PIC S9(4) COMP.
01 REQ-CODE PIC S9(4) COMP.
01 RESERVED-1 PIC X(1).
01 RESERVED-2 PIC X(2).
01 RET-CONTROL PIC X(2).
01 RESOURCE-ID PIC X(6).
01 RETURN-CODE PIC S9(4) COMP.
01 SECURITY-TYPE PIC X(1).
01 SESSION-IDENTIFIER PIC X(4).
01 SYNC-LEVEL PIC X(1).
01 SWTCH PIC 9.
01 TPNAME PIC X(16).
01 TP-STATE PIC 9(4) COMP.
01 UOW-CODE PIC 9(4) COMP.
01 UOW-ID PIC X(2).
01 UOWS-IN PIC 9(4) COMP.
01 UOWS-OUT PIC 9(4) COMP.
01 USERID PIC X(10).
01 PASSWORD PIC X(10).
01 VERSION-CODE PIC X(2).
01 WHAT-RECEIVED-INDICATOR PIC 9(4) COMP.
01 TP-NAME PIC X(8)
01 TP-INSTANCE PIC 9(4) COMP.
01 UNINTERP-LU-NAME PIC X(17)
?Section BASIC-LITERALS,Tandem
01 APC-UOW-ID PIC X(2), VALUE IS "ST".
01 APC-VERSION-CODE PIC X(2), VALUE IS "S3".
01 APC-STOP-ON-ERROR NATIVE-2 VALUE IS -2.
01 APC-UOWS-IN NATIVE-2 VALUE IS 1.
01 APC-LOG-LEVEL NATIVE-2 VALUE IS 0.
01 APC-BASIC-PARTNER PIC X(1), VALUE IS "B".
01 APC-MAPPED-PARTNER PIC X(1), VALUE IS "M".
01 APC-DEACTIVATE-NORMAL PIC X(2), VALUE IS "NO".
01 APC-DEACTIVATE-CLEANUP PIC X(2), VALUE IS "CL".
01 APC-DEALLOCATE-SYNC-LEVEL PIC X(2), VALUE IS "SL".
01 APC-DEALLOCATE-FLUSH PIC X(2), VALUE IS "FL".
01 APC-DEALLOCATE-ABEND-PROG PIC X(2), VALUE IS "AP".
01 APC-DEALLOCATE-LOCAL PIC X(2), VALUE IS "LO".
01 APC-DEALLOCATE-CONFIRM PIC X(2), VALUE IS "CO".
01 APC-DISPATCHED PIC X(1), VALUE IS "Y".