1.5.5 L4WEX53 List 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) RCV_LIST(#L4W_LIST1 #L4W_LIST2 #L4W_LIST3 #L4W_LIST4 #L4W_LIST5);
**********;
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);
DEF_LIST NAME(#L4W_LIST1) FIELDS(#L4W_FC1 #L4W_FC2 #L4W_RSL1 #L4W_RSL2) TYPE(*WORKING) ENTRYS(100);
DEF_LIST NAME(#L4W_LIST2) FIELDS(#L4W_FC2 #L4W_FC1 #L4W_RSL1 #L4W_RSL2) TYPE(*WORKING) ENTRYS(100);
DEF_LIST NAME(#L4W_LIST3) FIELDS(#L4W_RSL1 #L4W_FC2 #L4W_FC1 #L4W_RSL2) TYPE(*WORKING) ENTRYS(100);
DEF_LIST NAME(#L4W_LIST4) FIELDS(#L4W_FC1 #L4W_RSL2 #L4W_RSL1 #L4W_FC2) TYPE(*WORKING) ENTRYS(100);
DEF_LIST NAME(#L4W_LIST5) FIELDS(#L4W_RSL1 #L4W_RSL2 #L4W_FC1 #L4W_FC2) TYPE(*WORKING) ENTRYS(100);
**********;
SELECTLIST NAMED(#L4W_LIST1);
CHANGE FIELD(#L4W_RSL1) TO('#L4W_FC1 * #L4W_FC2');
CHANGE FIELD(#L4W_RSL2) TO('#L4W_FC1 / #L4W_FC2');
UPD_ENTRY IN_LIST(#L4W_LIST1);
ENDSELECT;
**********;
SELECTLIST NAMED(#L4W_LIST2);
CHANGE FIELD(#L4W_RSL1) TO('#L4W_FC1 * #L4W_FC2');
CHANGE FIELD(#L4W_RSL2) TO('#L4W_FC1 / #L4W_FC2');
UPD_ENTRY IN_LIST(#L4W_LIST2);
ENDSELECT;
**********;
SELECTLIST NAMED(#L4W_LIST3);
CHANGE FIELD(#L4W_RSL1) TO('#L4W_FC1 * #L4W_FC2');
CHANGE FIELD(#L4W_RSL2) TO('#L4W_FC1 / #L4W_FC2');
UPD_ENTRY IN_LIST(#L4W_LIST3);
ENDSELECT;
**********;
SELECTLIST NAMED(#L4W_LIST4);
CHANGE FIELD(#L4W_RSL1) TO('#L4W_FC1 * #L4W_FC2');
CHANGE FIELD(#L4W_RSL2) TO('#L4W_FC1 / #L4W_FC2');
UPD_ENTRY IN_LIST(#L4W_LIST4);
ENDSELECT;
**********;
SELECTLIST NAMED(#L4W_LIST5);
CHANGE FIELD(#L4W_RSL1) TO('#L4W_FC1 * #L4W_FC2');
CHANGE FIELD(#L4W_RSL2) TO('#L4W_FC1 / #L4W_FC2');
UPD_ENTRY IN_LIST(#L4W_LIST5);
ENDSELECT;
**********;
RETURN;
Ý 1. Deploy LANSA Applications to a Linux Server