SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual138786
A-19
COBOL Definitions
01 GET-ATTRIBUTES-REP.
02 GAR-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.
02 GAR-PARAMETERS.
03 RESERVED-1 PIC X(1).
03 GAR-SYNC-LEVEL PIC X(1).
88 GAR-NO-SYNC-LEVEL VALUE IS "N".
88 GAR-CONFIRM-SYNC-LEVEL VALUE IS "C".
88 GAR-SYNCPT-SYNC-LEVEL VALUE IS "S".
03 GAR-APC-LUNAME PIC X(8).
03 GAR-PARTNER-LUNAME PIC X(8).
03 GAR-PARTNER-UNINTERP-NAME PIC X(17).
03 PAD PIC X(1).
03 GAR-MODENAME PIC X(8).
03 GAR-SESSION-IDENTIFIER PIC X(4).
?SECTION S1-GET-ATTRIBUTES-REP-PARMS,TANDEM
01 S1-GET-ATTRIBUTES-REP-PARMS.
02 RESERVED-1 PIC X(1).
02 GAR-SYNC-LEVEL PIC X(1).
88 GAR-NO-SYNC-LEVEL VALUE IS "N".
88 GAR-CONFIRM-SYNC-LEVEL VALUE IS "C".
88 GAR-SYNCPT-SYNC-LEVEL VALUE IS "S".
02 GAR-APC-LUNAME PIC X(8).
02 GAR-PARTNER-LUNAME PIC X(8).
02 GAR-PARTNER-UNINTERP-NAME PIC X(8).
02 GAR-MODENAME PIC X(8).
?SECTION S1-GET-ATTRIBUTES-REP,TANDEM
01 S1-GET-ATTRIBUTES-REP.
02 GAR-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.
02 GAR-PARAMETERS.
03 RESERVED-1 PIC X(1).
03 GAR-SYNC-LEVEL PIC X(1).
88 GAR-NO-SYNC-LEVEL VALUE IS "N".
88 GAR-CONFIRM-SYNC-LEVEL VALUE IS "C".
88 GAR-SYNCPT-SYNC-LEVEL VALUE IS "S".
03 GAR-APC-LUNAME PIC X(8).
03 GAR-PARTNER-LUNAME PIC X(8).
03 GAR-PARTNER-UNINTERP-NAME PIC X(8).
03 GAR-MODENAME PIC X(8).
?SECTION PREP-TO-RECEIVE-REQ-PARMS,TANDEM
01 PREP-TO-RECEIVE-REQ-PARMS.
02 PR-TYPE PIC X(2).
02 RESERVED-1 PIC X(1).
02 PR-LOCKS PIC X(1).
?SECTION PREP-TO-RECEIVE-REQ,TANDEM
01 PREP-TO-RECEIVE-REQ.
02 PR-HEADER.
03 REQ-UOW-ID PIC X(2).