SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual—138786
A-25
COBOL Definitions
88 MC-AL-SYNC-LEVEL-NONE VALUE IS "N".
88 MC-AL-SYNC-LEVEL-CONFIRM VALUE IS "C".
02 MC-AL-RET-CONTROL PIC X(2).
88 MC-VALID-AL-RET-CONTROL VALUE IS "AL", " ", "IM".
88 MC-WHEN-SESSION-ALLOCATED VALUE IS "AL", " ".
88 MC-IMMEDIATE VALUE IS "IM".
02 MC-AL-PARTNER-LUNAME PIC X(8).
02 MC-AL-MODENAME PIC X(8).
02 MC-AL-PARTNER-TPNAME PIC X(16).
02 MC-AL-SECURITY-TYPE PIC X(1).
88 MC-AL-SECURITY-TYPE-NONE VALUE IS "N".
88 MC-AL-SECURITY-TYPE-SAME VALUE IS "S".
88 MC-AL-SECURITY-TYPE-PGM VALUE IS "P".
02 PAD PIC X(1).
02 MC-AL-USER-ID PIC X(10).
02 MC-AL-PASSWORD PIC X(10).
?SECTION MC-ALLOCATE-REQ,TANDEM
01 MC-ALLOCATE-REQ.
02 MC-AL-HEADER.
03 REQ-UOW-ID PIC X(2).
03 REQ-UOW-CODE PIC 9(4) COMP.
02 MC-AL-PARAMETERS.
03 RESERVED-1 PIC X(1).
03 MC-AL-SYNC-LEVEL PIC X(1).
88 MC-AL-SYNC-LEVEL-NONE VALUE IS "N".
88 MC-AL-SYNC-LEVEL-CONFIRM VALUE IS "C".
03 MC-AL-RET-CONTROL PIC X(2).
88 MC-VALID-AL-RET-CONTROL VALUE IS "AL", " ", "IM".
88 MC-WHEN-SESSION-ALLOCATED VALUE IS "AL", " ".
88 MC-IMMEDIATE VALUE IS "IM".
03 MC-AL-PARTNER-LUNAME PIC X(8).
03 MC-AL-MODENAME PIC X(8).
03 MC-AL-PARTNER-TPNAME PIC X(16).
03 MC-AL-SECURITY-TYPE PIC X(1).
88 MC-AL-SECURITY-TYPE-NONE VALUE IS "N".
88 MC-AL-SECURITY-TYPE-SAME VALUE IS "S".
88 MC-AL-SECURITY-TYPE-PGM VALUE IS "P".
03 PAD PIC X(1).
03 MC-AL-USER-ID PIC X(10).
03 MC-AL-PASSWORD PIC X(10).
?SECTION MC-ALLOCATE-REP,TANDEM
01 MC-ALLOCATE-REP.
02 MC-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 MC-CONFIRM,TANDEM
01 MC-CONFIRM.
02 MC-CM-HEADER.
03 REQ-UOW-ID PIC X(2).
03 REQ-UOW-CODE PIC 9(4) COMP.
?SECTION MC-CONFIRM-REP-PARMS,TANDEM
01 MC-CONFIRM-REP-PARMS.
02 RESERVED-1 PIC X(1).