Form S_189FL

LANSA

Form S_189FL

*===================================================================;
*;
* Component : S_189FL;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - SQRT (square root); ;
*;
* Disclaimer : The following material is supplied as sample material;
* only. No warranty concerning this material or its use;
* in any way whatsoever is expressed or implied.;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(297) LEFT(304) TOP(126) WIDTH(297);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(164) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(1) TOP(61) WIDTH(225);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(52);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTION('SQRT value') CAPTIONTYPE(Caption) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#MNTHSAL) WIDTH(20) WIDTHTYPE(Remainder);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#SALARY (#MNTHSAL 'SQRT(SALARY)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
END_COM;
;