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

210 AppendixE
Transact Parameter Masks
The Parameter Mask
Example E-19 MCTest Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
TEST I(4):
POSTED-TYPE I(4);
LIST RESOURCE-ID: TEST: POSTED-TYPE;
LET (MASK16) = 480; << "111100000" >>
PROC MCTEST ( #(RESOURCE-ID),
#(TEST), << optional >>
(STATUS),
(POSTED-TYPE), << optional >>
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-20 MCWait Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-LIST[8] I(4):
NUM-RESOURCES I(4):
RESOURCE-POSTED I(4):
POSTED-TYPE I(4);
LIST RESOURCE-LIST: NUM-RESOURCES: RESOURCE-POSTED:
POSTED-TYPE;
LET (MASK16) = 992; << "1111100000" >>
PROC MCWAIT ( (RESOURCE-LIST),
#(NUM-RESOURCES),
(RESOURCE-POSTED),
(STATUS),
(POSTED-TYPE), << optional >>
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------