Form S_189FJ
*===================================================================;
*;
* Component : S_189FJ;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - parameter (NOT) IN; ;
*;
* 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(387) LEFT(303) TOP(117) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('EXAMPLE 1: Select all Skillcodes 4GL and INTRO from the Personnel Skills file.') DISPLAYPOSITION(2) HEIGHT(26) LEFT(7) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(7) WIDTH(426);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(4) HEIGHT(129) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(4) TOP(40) WIDTH(225);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(45);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_2) CAPTION('EXAMPLE 2: Select all Skillcodes from the Personnel Skills file except the codes 4GL and INTRO.') DISPLAYPOSITION(1) HEIGHT(26) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(192) WIDTH(426);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_2) DISPLAYPOSITION(3) HEIGHT(129) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(3) TOP(224) WIDTH(225);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(1) PARENT(#LTVW_2) SOURCE(#EMPNO) WIDTH(44);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SKILCODE) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(2) PARENT(#LTVW_2) SOURCE(#SKILCODE) WIDTH(20) WIDTHTYPE(Remainder);
;
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
;
* Fill ListView example 1;
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO #SKILCODE) FROM_FILES((PSLSKL)) WHERE('SKILCODE IN (''4GL'', ''INTRO'')');
add_entry #ltvw_1;
endselect;
;
* Fill ListView example 2;
clr_list #ltvw_2;
SELECT_SQL FIELDS(#EMPNO #SKILCODE) FROM_FILES((PSLSKL)) WHERE('SKILCODE NOT IN (''4GL'', ''INTRO'')');
add_entry #ltvw_2;
endselect;
ENDROUTINE;
END_COM;
;
;
;
*===================================================================;
*;
* Component : S_189FJ;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - parameter (NOT) IN; ;
*;
* 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(387) LEFT(303) TOP(117) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('EXAMPLE 1: Select all Skillcodes 4GL and INTRO from the Personnel Skills file.') DISPLAYPOSITION(2) HEIGHT(26) LEFT(7) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(7) WIDTH(426);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(4) HEIGHT(129) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(4) TOP(40) WIDTH(225);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(45);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_2) CAPTION('EXAMPLE 2: Select all Skillcodes from the Personnel Skills file except the codes 4GL and INTRO.') DISPLAYPOSITION(1) HEIGHT(26) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(192) WIDTH(426);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_2) DISPLAYPOSITION(3) HEIGHT(129) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(3) TOP(224) WIDTH(225);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(1) PARENT(#LTVW_2) SOURCE(#EMPNO) WIDTH(44);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SKILCODE) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(2) PARENT(#LTVW_2) SOURCE(#SKILCODE) WIDTH(20) WIDTHTYPE(Remainder);
;
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
;
* Fill ListView example 1;
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO #SKILCODE) FROM_FILES((PSLSKL)) WHERE('SKILCODE IN (''4GL'', ''INTRO'')');
add_entry #ltvw_1;
endselect;
;
* Fill ListView example 2;
clr_list #ltvw_2;
SELECT_SQL FIELDS(#EMPNO #SKILCODE) FROM_FILES((PSLSKL)) WHERE('SKILCODE NOT IN (''4GL'', ''INTRO'')');
add_entry #ltvw_2;
endselect;
ENDROUTINE;
END_COM;
;
;
;