Form S_189FG
*===================================================================;
*;
* Component : S_189FG;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - Sub-select parameter ANY; ;
*;
* 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(285) LEFT(303) TOP(117) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Select all employees with at least one skill. This examples uses the subselect parameter ANY. A subselection of all employees in PSLSKL is made and an internal table is created. PSLMST is then compared with the internal table, and PSLMST records with ANY matching record on the internal table are selected.') DISPLAYPOSITION(1) HEIGHT(58) LEFT(7) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(7) WIDTH(426);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(2) HEIGHT(161) LEFT(152) PARENT(#COM_OWNER) TABPOSITION(2) TOP(80) WIDTH(120);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(20) WIDTHTYPE(Remainder);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO) FROM_FILES((PSLMST)) WHERE('EMPNO = ANY (SELECT EMPNO FROM "XDEMOLIB"."PSLSKL")');
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;
*===================================================================;
*;
* Component : S_189FG;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - Sub-select parameter ANY; ;
*;
* 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(285) LEFT(303) TOP(117) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Select all employees with at least one skill. This examples uses the subselect parameter ANY. A subselection of all employees in PSLSKL is made and an internal table is created. PSLMST is then compared with the internal table, and PSLMST records with ANY matching record on the internal table are selected.') DISPLAYPOSITION(1) HEIGHT(58) LEFT(7) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(7) WIDTH(426);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(2) HEIGHT(161) LEFT(152) PARENT(#COM_OWNER) TABPOSITION(2) TOP(80) WIDTH(120);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(20) WIDTHTYPE(Remainder);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO) FROM_FILES((PSLMST)) WHERE('EMPNO = ANY (SELECT EMPNO FROM "XDEMOLIB"."PSLSKL")');
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;