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

204 AppendixE
Transact Parameter Masks
The Parameter Mask
Example E-7 MCDeallocate Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4):
DEALLOCATE-TYPE I(4);
LIST RESOURCE-ID: DEALLOCATE-TYPE;
LET (MASK16) = 160; << "10100000" >>
@COMPUTERTEXTW = PROC MCDEALLOCATE ( #(RESOURCE-ID),
<< #(DEALLOCATE-TYPE), optional, not used >>
(STATUS),
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-8 MCErrMsg Declarations and Intrinsic Call
DEFINE(ITEM) OLD-STATUS I(9):
MESSAGE-BUFFER X(256):
MESSAGE-LENGTH I(4);
LIST OLD-STATUS: MESSAGE-BUFFER: MESSAGE-LENGTH;
LET (MASK16) = 240; << "11110000" >>
PROC MCERRMSG ( #(OLD-STATUS),
%(MESSAGE-BUFFER),
(MESSAGE-LENGTH),
(STATUS),
, , , , << 4 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-9 MCFlush Declarations and Intrinsic Call
DEFINE(ITEM) RESOURCE-ID I(4);
LIST RESOURCE-ID;
LET (MASK16) = 96; << "1100000" >>
PROC MCFLUSH ( #(RESOURCE-ID),
(STATUS),
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------