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

Appendix E 201
Transact Parameter Masks
The Parameter Mask
Example E-2 TPStarted Declarations and Intrinsic Call
DEFINE(ITEM) LOCAL-TP-NAME X(8):
TP-ID I(4):
TRACE-ON I(4):
TRACE-SIZE I(4):
TRACE-FILE X(35):
DEFAULT-FILE X(28);
@COMPUTERTEXTW = LIST LOCAL-TP-NAME: TP-ID: TRACE-ON: TRACE-SIZE: TRACE-FILE:
DEFAULT-FILE;
LET (MASK16) = 15872; << "11111000000000" >>
PROC TPSTARTED ( %(LOCAL-TP-NAME),
(TP-ID),
(STATUS),
(TRACE-ON), << optional >>
#(TRACE-SIZE), << optional >>
<< %(TRACE-FILE), optional, not used >>
<< %(DEFAULT-FILE), optional, not used >>
, , , , , , , << 7 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------
Example E-3 TPEnded Declarations and Intrinsic Call
DEFINE(ITEM) TP-ID I(4);
LIST TP-ID;
LET (MASK16) = 96; << "1100000" >>
PROC TPENDED ( #(TP-ID),
(STATUS),
, , , , , << 5 hidden parameters >>
#(MASK16) );
----------------------------------------------------------------------------