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

Appendix E 209
Transact Parameter Masks
The Parameter Mask
Example E-16 MCReqToSend Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4);
LIST RESOURCE-ID;
LET (MASK16) = 96; << "1100000" >>
PROC MCREQTOSEND ( #(RESOURCE-ID),
(STATUS),
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-17 MCSendData Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
DATA X(4092):
LENGTH I(4):
REQUEST-TO-SEND-RECEIVED I(4);
LIST RESOURCE-ID: DATA: LENGTH: REQUEST-TO-SEND-RECEIVED;
LET (MASK16) = 3968; << "111110000000" >>
PROC MCSENDDATA ( #(RESOURCE-ID),
%(DATA),
#(LENGTH),
(REQUEST-TO-SEND-RECEIVED),
(STATUS),
, , , , , , , << 7 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-18 MCSendError Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
REQUEST-TO-SEND-RECEIVED I(4);
LIST RESOURCE-ID: REQUEST-TO-SEND-RECEIVED;
LET (MASK16) = 224; << "11100000" >>
PROC MCSENDERROR ( #(RESOURCE-ID),
(REQUEST-TO-SEND-RECEIVED),
(STATUS),
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------