Form S_189FM
*===================================================================;
*;
* Component : S_189FM;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - SUBSTR (substring); ;
*;
* 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 LEFT(317) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(255) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(1) TOP(26) WIDTH(417);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(42);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTION('Substring of Surname, start position 3, length 5') CAPTIONTYPE(Caption) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#GIVENAME) WIDTH(20) WIDTHTYPE(Remainder);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#SURNAME (#GIVENAME 'SUBSTR(SURNAME,3,5)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
END_COM;
;
*===================================================================;
*;
* Component : S_189FM;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - SUBSTR (substring); ;
*;
* 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 LEFT(317) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(255) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(1) TOP(26) WIDTH(417);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(42);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTION('Substring of Surname, start position 3, length 5') CAPTIONTYPE(Caption) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#GIVENAME) WIDTH(20) WIDTHTYPE(Remainder);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#SURNAME (#GIVENAME 'SUBSTR(SURNAME,3,5)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
END_COM;
;