LU 6.2 API Application Programmer's Reference Guide (30294-90008)

208 AppendixE
Transact Parameter Masks
The Parameter Mask
Example E-14 MCRcvAndWait Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
LENGTH I(4):
REQUEST-TO-SEND-RECEIVED I(4):
DATA X(4092):
WHAT-RECEIVED I(4);
LIST RESOURCE-ID: LENGTH: REQUEST-TO-SEND-RECEIVED:
DATA: WHAT-RECEIVED;
LET (MASK16) = 4032; << "111111000000" >>
PROC MCRCVANDWAIT ( #(RESOURCE-ID),
(LENGTH),
(REQUEST-TO-SEND-RECEIVED),
%(DATA),
(WHAT-RECEIVED),
(STATUS),
, , , , , , << 6 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-15 MCRcvNoWait Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
LENGTH I(4):
REQUEST-TO-SEND-RECEIVED I(4):
DATA X(4092):
WHAT-RECEIVED I(4);
LIST RESOURCE-ID: LENGTH: REQUEST-TO-SEND-RECEIVED:
DATA: WHAT-RECEIVED;
LET (MASK16) = 4032; << "111111000000" >>
PROC MCRCVNOWAIT ( #(RESOURCE-ID),
(LENGTH),
(REQUEST-TO-SEND-RECEIVED),
%(DATA),
(WHAT-RECEIVED),
(STATUS),
, , , , , , << 6 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------