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

Appendix E 207
Transact Parameter Masks
The Parameter Mask
Example E-12 MCPostOnRcpt Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
LENGTH I(4):
DATA X(4092);
LIST RESOURCE-ID: LENGTH: DATA;
LET (MASK16) = 480; << "111100000" >>
PROC MCPOSTONRCPT ( #(RESOURCE-ID),
#(LENGTH),
%(DATA),
(STATUS),
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-13 MCPrepToRcv Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
PREP-TO-RCV-TYPE I(4):
LOCKS I(4);
LIST RESOURCE-ID: PREP-TO-RCV-TYPE: LOCKS;
LET (MASK16) = 384; << "110000000" >>
PROC MCPREPTORCV ( #(RESOURCE-ID),
(STATUS),
<< #(PREP-TO-RCV-TYPE), optional, not used >>
<< #(LOCKS), optional, not used >>
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------