1.5.3 L4WEX52 Exchange Example: Server Portion
Refer to 1.3 Test with the Verification and Sample Applications for details on using the following code example.
FUNCTION OPTIONS(*HEAVYUSAGE *DIRECT);
**********;
DEFINE FIELD(#L4W_FC1) TYPE(*DEC) LENGTH(15) DECIMALS(0);
DEFINE FIELD(#L4W_FC2) TYPE(*DEC) LENGTH(15) DECIMALS(0);
DEFINE FIELD(#L4W_RSL1) TYPE(*DEC) LENGTH(15) DECIMALS(5);
DEFINE FIELD(#L4W_RSL2) TYPE(*DEC) LENGTH(15) DECIMALS(5);
**********;
CHANGE FIELD(#L4W_RSL1) TO('#L4W_FC1 * #L4W_FC2');
CHANGE FIELD(#L4W_RSL2) TO('#L4W_FC1 / #L4W_FC2');
**********;
EXCHANGE FIELDS(#L4W_RSL1 #L4W_RSL2);
RETURN;
**********;