1.5.2 L4WEX02 Exchange Example: Client Portion
Refer to 1.3 Test with the Verification and Sample Applications for details on using the following code example.
FUNCTION OPTIONS(*DIRECT);
**********;
DEFINE FIELD(#L4W_TEST) TYPE(*DEC) LENGTH(7) DECIMALS(0) LABEL('Number of Tests') EDIT_CODE(4) DEFAULT(50);
DEFINE FIELD(#L4W_COUNT) TYPE(*DEC) LENGTH(7) DECIMALS(0);
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);
DEFINE FIELD(#L4W_CMP1) TYPE(*DEC) LENGTH(15) DECIMALS(5);
DEFINE FIELD(#L4W_CMP2) TYPE(*DEC) LENGTH(15) DECIMALS(5);
DEFINE FIELD(#L4W_RETC) TYPE(*CHAR) LENGTH(2);
**********;
BEGIN_LOOP;
POP_UP FIELDS((#L4W_TEST *IN)) DESIGN(*DOWN) PANEL_TITL('Perform Test Number 1') EXIT_KEY(*NO) PROMPT_KEY(*NO);
BEGINCHECK;
RANGECHECK FIELD(#L4W_TEST) RANGE((1 100000)) MSGTXT('Number of test must be in range 1 to 100000');
ENDCHECK;
**********;
CHANGE FIELD(#L4W_FC1) TO(1);
CHANGE FIELD(#L4W_FC2) TO(#L4W_TEST);
BEGIN_LOOP USING(#L4W_COUNT) TO(#L4W_TEST);
CHANGE FIELD(#L4W_RSL1 #L4W_RSL2) TO(*NULL);
EXCHANGE FIELDS(#L4W_FC1 #L4W_FC2);
USE BUILTIN(CALL_SERVER_FUNCTION) WITH_ARGS(SERVER L4WEX52 Y Y) TO_GET(#L4W_RETC);
CHANGE FIELD(#L4W_CMP1) TO('#L4W_FC1 * #L4W_FC2');
CHANGE FIELD(#L4W_CMP2) TO('#L4W_FC1 / #L4W_FC2');
LEAVE IF('#L4W_RETC *NE OK');
LEAVE IF('#L4W_CMP1 *NE #L4W_RSL1');
LEAVE IF('#L4W_CMP2 *NE #L4W_RSL2');
CHANGE FIELD(#L4W_FC1) TO('#L4W_FC1 + 1');
CHANGE FIELD(#L4W_FC2) TO('#L4W_FC2 - 1');
END_LOOP;
IF COND('#L4W_COUNT *LT #L4W_TEST');
MESSAGE MSGTXT('Test ***FAILED**');
ELSE;
MESSAGE MSGTXT('Test completed normally');
ENDIF;
END_LOOP;
**********;