SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual—138786
A-15
COBOL Definitions
01 ALLOCATE-REQ-PARMS.
02 AL-PARTNER-TP-TYPE PIC X(1).
02 AL-SYNC-LEVEL PIC X(1).
02 RESERVED-2 PIC X(2).
02 AL-RET-CONTROL REDEFINES RESERVED-2 PIC X(2).
88 VALID-AL-RET-CONTROL VALUE IS "AL", " ", "IM".
88 WHEN-SESSION-ALLOCATED VALUE IS "AL", " ".
88 IMMEDIATE VALUE IS "IM".
02 AL-PARTNER-LUNAME PIC X(8).
02 AL-MODENAME PIC X(8).
02 AL-PARTNER-TPNAME PIC X(16).
02 AL-SECURITY-TYPE PIC X(1).
88 AL-SECURITY-TYPE-NONE VALUE IS "N".
88 AL-SECURITY-TYPE-SAME VALUE IS "S".
88 AL-SECURITY-TYPE-PGM VALUE IS "P".
02 RESERVED-1 PIC X(1).
02 AL-USER-ID PIC X(10).
02 AL-PASSWORD PIC X(10).
?SECTION ALLOCATE-REQ,TANDEM
01 ALLOCATE-REQ.
02 AL-HEADER.
03 REQ-UOW-ID PIC X(2).
03 REQ-UOW-CODE PIC 9(4) COMP.
02 AL-PARAMETERS.
03 AL-PARTNER-TP-TYPE PIC X(1).
03 AL-SYNC-LEVEL PIC X(1).
03 RESERVED-2 PIC X(2).
03 AL-RET-CONTROL REDEFINES RESERVED-2 PIC X(2).
88 VALID-AL-RET-CONTROL VALUE IS "AL", " ", "IM".
88 WHEN-SESSION-ALLOCATED VALUE IS "AL", " ".
88 IMMEDIATE VALUE IS "IM".
03 AL-PARTNER-LUNAME PIC X(8).
03 AL-MODENAME PIC X(8).
03 AL-PARTNER-TPNAME PIC X(16).
03 AL-SECURITY-TYPE PIC X(1).
88 AL-SECURITY-TYPE-NONE VALUE IS "N".
88 AL-SECURITY-TYPE-SAME VALUE IS "S".
88 AL-SECURITY-TYPE-PGM VALUE IS "P".
03 RESERVED-1 PIC X(1).
03 AL-USER-ID PIC X(10).
03 AL-PASSWORD PIC X(10).
?SECTION ALLOCATE-REP,TANDEM
01 ALLOCATE-REP.
02 ALR-HEADER.
03 REP-UOW-ID PIC X(2).
03 REP-VERB-CODE PIC 9(4) COMP.
03 REP-RETURN-CODE PIC S9(4) COMP.
03 REP-RETURN-CODE-DETAIL PIC S9(4) COMP.
?SECTION CONFIRM-REQ,TANDEM
01 CONFIRM-REQ.
02 CM-HEADER.
03 REQ-UOW-ID PIC X(2).
03 REQ-UOW-CODE PIC 9(4) COMP.
?SECTION CONFIRM-REP-PARMS,TANDEM
01 CONFIRM-REP-PARMS.