Form S_191FB
*===================================================================;
*;
* Component : S_191FA;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Demonstrate OV_FILE_SERVICE built in function; ;
*;
* 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 LAYOUTMANAGER(#ATLM_1) LEFT(348) TOP(133) WIDTH(651);
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(313) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(1) TOP(0) WIDTH(643);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Center) MANAGE(#LTVW_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191NAME) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191PREF) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(3) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191SUFF) WIDTH(10);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(4) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191DATE) WIDTH(20);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_5) DISPLAYPOSITION(5) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191TIME) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_6) DISPLAYPOSITION(6) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191SIZE) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_7) CAPTIONTYPE(ColumnHeadings) DISPLAYPOSITION(7) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191DIR) WIDTH(20) WIDTHTYPE(Remainder);
DEF_LIST NAME(#S_LSTFILE) FIELDS(#S_191NAME #S_191PREF #S_191SUFF #S_191DATE #S_191TIME #S_191SIZE #S_191DIR) TYPE(*WORKING) ENTRYS(5000);
;
* ==============================================================================;
*;
* Method : uShow;
* Description : Allows another form to display the contents of a directory using this form;
*;
* ===============================================================================;
;
MthRoutine uShow;
;
* Parameters and arguments;
;
Define_Map *Input #S_191ARG2 #uDirect Desc('Directory to display') ;
Define_Map *Input #S_191AR3A #uSuffix Desc('File suffix filter') ;
;
* Logic .....;
;
CHANGE #S_191ARG2 #uDirect.value;
CHANGE #S_191AR3A #uSuffix.value;
;
;
USE BUILTIN(OV_FILE_SERVICE) WITH_ARGS('GET_DIR' #S_191ARG2 #S_191AR3A) TO_GET(#S_191RET1 #S_191RET2 #S_LSTFILE);
;
CLR_LIST #LTVW_1;
SELECTLIST #S_LSTFILE;
ADD_ENTRY #LTVW_1;
ENDSELECT;
;
invoke #Com_Owner.ShowModalForm;
Endroutine;
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
ENDROUTINE;
;
END_COM;
*===================================================================;
*;
* Component : S_191FA;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Demonstrate OV_FILE_SERVICE built in function; ;
*;
* 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 LAYOUTMANAGER(#ATLM_1) LEFT(348) TOP(133) WIDTH(651);
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(313) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(1) TOP(0) WIDTH(643);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Center) MANAGE(#LTVW_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191NAME) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191PREF) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(3) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191SUFF) WIDTH(10);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(4) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191DATE) WIDTH(20);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_5) DISPLAYPOSITION(5) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191TIME) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_6) DISPLAYPOSITION(6) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191SIZE) WIDTH(15);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_7) CAPTIONTYPE(ColumnHeadings) DISPLAYPOSITION(7) PARENT(#LTVW_1) SORTONCLICK(True) SOURCE(#S_191DIR) WIDTH(20) WIDTHTYPE(Remainder);
DEF_LIST NAME(#S_LSTFILE) FIELDS(#S_191NAME #S_191PREF #S_191SUFF #S_191DATE #S_191TIME #S_191SIZE #S_191DIR) TYPE(*WORKING) ENTRYS(5000);
;
* ==============================================================================;
*;
* Method : uShow;
* Description : Allows another form to display the contents of a directory using this form;
*;
* ===============================================================================;
;
MthRoutine uShow;
;
* Parameters and arguments;
;
Define_Map *Input #S_191ARG2 #uDirect Desc('Directory to display') ;
Define_Map *Input #S_191AR3A #uSuffix Desc('File suffix filter') ;
;
* Logic .....;
;
CHANGE #S_191ARG2 #uDirect.value;
CHANGE #S_191AR3A #uSuffix.value;
;
;
USE BUILTIN(OV_FILE_SERVICE) WITH_ARGS('GET_DIR' #S_191ARG2 #S_191AR3A) TO_GET(#S_191RET1 #S_191RET2 #S_LSTFILE);
;
CLR_LIST #LTVW_1;
SELECTLIST #S_LSTFILE;
ADD_ENTRY #LTVW_1;
ENDSELECT;
;
invoke #Com_Owner.ShowModalForm;
Endroutine;
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
ENDROUTINE;
;
END_COM;