1 5 3 L4WEX52 Exchange Example Server Portion

Visual LANSA Applications on Linux

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;
**********;
 

Ý 1. Deploy LANSA Applications to a Linux Server