SNAX/APC Application Programming Manual

COBOL Definitions for SNAX/APC
SNAX/APC Application Programming Manual—138786
A-20
COBOL Definitions
03 REQ-UOW-CODE PIC 9(4) COMP.
02 PR-PARAMETERS.
03 PR-TYPE PIC X(2).
03 RESERVED-1 PIC X(1).
03 PR-LOCKS PIC X(1).
?SECTION PREP-TO-RECEIVE-REP,TANDEM
01 PREP-TO-RECEIVE-REP.
02 PRR-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 RECEIVE-AND-WAIT-REQ-PARMS,TANDEM
01 RECEIVE-AND-WAIT-REQ-PARMS.
02 RESERVED-1 PIC X(1).
02 RW-FILL PIC X(1).
02 RW-MAX-DATA-LENGTH PIC 9(4) COMP.
?SECTION RECEIVE-AND-WAIT-REQ,TANDEM
01 RECEIVE-AND-WAIT-REQ.
02 RW-HEADER.
03 REQ-UOW-ID PIC X(2).
03 REQ-UOW-CODE PIC 9(4) COMP.
02 RW-PARAMETERS.
03 RESERVED-1 PIC X(1).
03 RW-FILL PIC X(1).
03 RW-MAX-DATA-LENGTH PIC 9(4) COMP.
?SECTION RECEIVE-AND-WAIT-REP-PARMS,TANDEM
01 RECEIVE-AND-WAIT-REP-PARMS.
02 RESERVED-1 PIC X(1).
02 RWR-REQUEST-TO-SEND-IND PIC X(1).
88 RWR-RECEIVED VALUE IS "Y".
88 RWR-NOT-RECEIVED VALUE IS "N".
02 RWR-WHAT-RECEIVED PIC 9(4) COMP.
88 WR-DATA VALUE IS 0.
88 WR-DATA-COMPLETE VALUE IS 1.
88 WR-DATA-INCOMPLETE VALUE IS 2.
88 WR-SEND VALUE IS 3.
88 WR-CONFIRM VALUE IS 4.
88 WR-CONFIRM-SEND VALUE IS 5.
88 WR-CONFIRM-DEALLOCATE VALUE IS 6.
88 WR-PS-HEADER-PENDING VALUE IS 8.
88 WR-PS-HEADER-COMPLETE VALUE IS 9.
88 WR-PS-HEADER-INCOMPLETE VALUE IS 10.
?SECTION RECEIVE-AND-WAIT-REP,TANDEM
01 RECEIVE-AND-WAIT-REP.
02 RWR-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 RWR-PARAMETERS.
03 RESERVED-1 PIC X(1).
03 RWR-REQUEST-TO-SEND-IND PIC X(1).
88 RWR-RECEIVED VALUE IS "Y".
88 RWR-NOT-RECEIVED VALUE IS "N".