I use FileListGet during an import process, to get a list of files that exist in a particular directory and process each one of them.
First, I created a Model that will hold a file name. I named my model
. You MUST have a model to use a vector.
In my program record main, I selected a Virutal field, attribute of "Vector". (I named mine
.
. You may review the magic help on this function for a complete explanation of the parameters.
. This checks that the directory isn't empty. If there are one or more files in that directory, I call a subtask (and do some other things).
. In
.
to know which Filename I'm working with, and run various tasks/commands as necessary.
I'm not sure if this will work, but here is my code from eDev 9.4 sp4b.
VRSN=940.04
APPLICATION=N
MODEL=N
TABLE=N
PROGRAM=Y
MAIN_PROGRAM=N
HELP=N
RIGHT=N
MENU=N
COMPONENT=N
APP_PROP=N
ISN=N
WITH_MODELS=Y
MAIN_PRG_VARS=26
MAIN_PRG_DSPS=1
MODELS={FOLDER="FOPsImport",DESC="FileName",
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_ALPHA"}}},
PROP={ID="PICTURE",DATA={VAL="128"}},
PROP={ID="LENGTH",DATA={VAL=128}},
PROP={ID="FLIP"}}},
PRG={
HDR={DESC="Import",PUBQRY={},PUBMDF={},PUBDEL={},PUBEXE={},RSDNT=N,SQL=N,RET_VAL={PARAM_ATTR={}},FOLDER="TransferData"},
RSRCE={
FIELD={DESC="Imports Schedule ID",ISN=1,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_NUMERIC"}}},
PROP={ID="PICTURE",DATA={VAL="8"}},
PROP={ID="DEC"},
PROP={ID="WHOLE",DATA={VAL=8}},
PROP={ID="NEGATIVE"},
PROP={ID="FIELD_STYLE",DATA={VAL=1}}}},
FIELD={DESC="Location/Manager ID",ISN=2,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_NUMERIC"}}},
PROP={ID="PICTURE",DATA={VAL="8"}},
PROP={ID="DEC"},
PROP={ID="WHOLE",DATA={VAL=8}},
PROP={ID="NEGATIVE"},
PROP={ID="FIELD_STYLE",DATA={VAL=1}}}},
FIELD={DESC="Import Path",ISN=3,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_ALPHA"}}},
PROP={ID="PICTURE",DATA={VAL="128"}},
PROP={ID="STORAGE",DATA={VAL=1}},
PROP={ID="LENGTH",DATA={VAL=128}},
PROP={ID="FLIP"}}},
FIELD={DESC="Last Import Date",ISN=4,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_DATE"}}},
PROP={ID="FIELD_STYLE",DATA={VAL=1}}}},
FIELD={DESC="Last Import Time",ISN=5,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_TIME"}}},
PROP={ID="FIELD_STYLE",DATA={VAL=1}}}},
FIELD={DESC="vectorDirFileList",ISN=6,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_BLOB"}}},
PROP={ID="STORAGE",DATA={VAL=29}},
PROP={ID="LENGTH",DATA={VAL=24}},
PROP={ID="FIELD_STYLE",DATA={VAL=4}},
PROP={ID="CELL_MODEL",DATA={MODEL_ID={PUBLIC_OBJ={OBJ=1},DEF_OBJ="FIELD_BLOB"}}}}}},
DTLS={
KEY={MOD=N},
DB={DB={}},
FLW=B,DEL=N,END=Y,EMOD=A,
MOD={MOD=M},
LCT={DIR=A},
RNG={DIR=A},
FLG={SLCT=N,CNFU=N,CNF=N,ERR_STRG=A,LSTRG=M,TSK_CACHE=T,SUFIX=N,TRANS_MODE=P,TRANS_BEGIN=N,KEEP_NEW_CNXT=N},
SIDE_WIN={
SIDE_WIN={SIDE_WIN=N},
RPR={RPR=N}},
WIN={OPN=N,CLS=Y,FGND=Y,FLIP=N,
DTLS={RTRN=N}},
BOX={DIR=V},
UPD={DATE="08/11/2005",TIME="13:26:12"}},
FLW={
BRK={LEVEL=T,TYP=P,DIT_CTRL=-1,DSP=-1,REFERENCE="BY",POS=1,LENGTH=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}},
HDLR_FLOW={
EXE={EXP=5,FLW={CND=Y,MOD=B,DIR=C}}}},
BRK={LEVEL=T,TYP=S,DIT_CTRL=-1,DSP=-1,REFERENCE="BY",POS=1,LENGTH=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}},
HDLR_FLOW={
EXE={EXP=6,FLW={CND=Y,MOD=B,DIR=C}}}},
BRK={LEVEL=R,TYP=P,DIT_CTRL=-1,DSP=-1,REFERENCE="BY",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=R,TYP=M,DIT_CTRL=-1,DSP=-1,REFERENCE="BY",POS=1,LENGTH=7,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,VEE_LEN=6,VIR_LEN=6,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}},
HDLR_FLOW={
SLCT={NAME="BA",FLD=1,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}},
SLCT={NAME="BB",FLD=2,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}},
SLCT={NAME="BC",FLD=3,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}},
SLCT={NAME="BD",FLD=4,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}},
SLCT={NAME="BE",FLD=5,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}},
RMRK="",
SLCT={NAME="BF",FLD=6,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}}}},
BRK={LEVEL=R,TYP=S,DIT_CTRL=-1,DSP=-1,REFERENCE="BY",POS=1,LENGTH=8,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}},
HDLR_FLOW={
UPD={FLD="BC",EXP=1,MOD=N,ABRT=Y,FLW={CND=2,MOD=B,DIR=C}},
UPD={FLD="BF",EXP=3,MOD=N,ABRT=Y,FLW={CND=Y,MOD=B,DIR=C}},
RMRK="",
BLOCK={END_BLK=17,MOD=I,END=17,FLW={CND=4,MOD=B,DIR=C}},
CALL_TSK={MOD=T,TSK={OBJ=1},LOCK=N,WAIT=Y,SYNC_UPDATE=N,FLW={CND=Y,MOD=s,DIR=C}},
UPD={FLD="BD",EXP=7,MOD=N,ABRT=Y,FLW={CND=Y,MOD=B,DIR=C}},
UPD={FLD="BE",EXP=8,MOD=N,ABRT=Y,FLW={CND=Y,MOD=B,DIR=C}},
END_BLK}}},
DSP={
PROPLIST={MODEL="FORM_GUI0",
PROP={ID="NAME",DATA={VAL="For Exporting Code (DNU!)"}},
PROP={ID="COMMENT",DATA={}}}},
EXP="Trim (BC)&'\'",
EXP="Right (Trim (BC),1)<>'\'",
EXP="FileListGet (BC,'*.*','FALSE'LOG)",
EXP="VecSize (BF)>0",
EXP="INIPut ('BatchPaintTime=10','FALSE'LOG)",
EXP="INIPut ('BatchPaintTime=1000','FALSE'LOG)",
EXP="Date ()",
EXP="Time ()",
TSK={
HDR={DESC="Process the vector",PUBQRY={},PUBMDF={},PUBDEL={},PUBEXE={},RSDNT=N,SQL=N,RET_VAL={PARAM_ATTR={}}},
RSRCE={
FIELD={DESC="vFullFileName",ISN=1,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={PUBLIC_OBJ={OBJ=1},DEF_OBJ="FIELD_ALPHA"}}},
PROP={ID="STORAGE",DATA={VAL=1}},
PROP={ID="DB_NAME",DATA={}},
PROP={ID="DB_TYPE",DATA={}},
PROP={ID="USER_TYPE",DATA={}}}},
FIELD={DESC="vExtension",ISN=2,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={DEF_OBJ="FIELD_ALPHA"}}},
PROP={ID="PICTURE",DATA={VAL="20"}},
PROP={ID="STORAGE",DATA={VAL=1}},
PROP={ID="LENGTH",DATA={VAL=20}},
PROP={ID="FLIP"}}},
FIELD={DESC="vArvhive FileName",ISN=3,
PROPLIST={MODEL="FIELD",
PROP={ID="MODEL",DATA={MODEL_ID={PUBLIC_OBJ={OBJ=1},DEF_OBJ="FIELD_ALPHA"}}},
PROP={ID="STORAGE",DATA={VAL=1}},
PROP={ID="DB_NAME",DATA={}},
PROP={ID="DB_TYPE",DATA={}},
PROP={ID="USER_TYPE",DATA={}}}}},
DTLS={
KEY={MOD=N},
DB={DB={}},
FLW=B,DEL=N,END=9,EMOD=A,
MOD={MOD=M},
LCT={DIR=A},
RNG={DIR=A},
FLG={SLCT=N,CNFU=N,CNF=N,ERR_STRG=A,LSTRG=I,TSK_CACHE=N,SUFIX=N,TRANS_MODE=W,TRANS_BEGIN=N,KEEP_NEW_CNXT=N},
SIDE_WIN={
SIDE_WIN={SIDE_WIN=N},
RPR={RPR=N}},
WIN={OPN=Y,CLS=Y,FGND=Y,FLIP=N,
DTLS={RTRN=N}},
BOX={DIR=V},
UPD={DATE="08/11/2005",TIME="13:18:49"}},
FLW={
BRK={LEVEL=T,TYP=P,DIT_CTRL=-1,DSP=-1,REFERENCE="BK",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=T,TYP=S,DIT_CTRL=-1,DSP=-1,REFERENCE="BK",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=R,TYP=P,DIT_CTRL=-1,DSP=-1,REFERENCE="BK",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=R,TYP=M,DIT_CTRL=-1,DSP=-1,REFERENCE="BK",POS=1,LENGTH=3,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,VEE_LEN=3,VIR_LEN=3,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}},
HDLR_FLOW={
SLCT={NAME="BG",FLD=1,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}},
SLCT={NAME="BH",FLD=2,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}},
SLCT={NAME="BI",FLD=3,MOD=V,IS_PRM=N,DIFF_UPDATE=T,FLW={CND=Y,MOD=s,DIR=C}}}},
BRK={LEVEL=R,TYP=S,DIT_CTRL=-1,DSP=-1,REFERENCE="BK",POS=1,LENGTH=33,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}},
HDLR_FLOW={
UPD={FLD="BG",EXP=1,MOD=N,ABRT=Y,FLW={CND=Y,MOD=B,DIR=C}},
UPD={FLD="BH",EXP=2,MOD=N,ABRT=Y,FLW={CND=Y,MOD=B,DIR=C}},
UPD={FLD="BI",EXP=3,MOD=N,ABRT=Y,FLW={CND=Y,MOD=B,DIR=C}},
RMRK="",
RMRK="** The ORIGINAL program had 21 subtasks, one for each table that was",
RMRK="** going to be updated during the import process. For proprietary reasons,",
RMRK="** I have shortened this to only 5 calls, and those calls are only to a STUB",
RMRK="** program.",
RMRK="",
BLOCK={END_BLK=16,MOD=I,END=16,FLW={CND=4,MOD=B,DIR=C}},
CALL_TSK={MOD=T,TSK={OBJ=1},LOCK=Y,WAIT=Y,SYNC_UPDATE=N,FLW={CND=Y,MOD=s,DIR=C}},
EXE={EXP=10,FLW={CND=Y,MOD=B,DIR=C}},
END_BLK,
RMRK="",
BLOCK={END_BLK=21,MOD=I,END=21,FLW={CND=5,MOD=B,DIR=C}},
CALL_TSK={MOD=T,TSK={OBJ=1},LOCK=Y,WAIT=Y,SYNC_UPDATE=N,FLW={CND=Y,MOD=s,DIR=C}},
EXE={EXP=10,FLW={CND=Y,MOD=B,DIR=C}},
END_BLK,
RMRK="",
BLOCK={END_BLK=26,MOD=I,END=26,FLW={CND=6,MOD=B,DIR=C}},
CALL_TSK={MOD=T,TSK={OBJ=1},LOCK=Y,WAIT=Y,SYNC_UPDATE=N,FLW={CND=Y,MOD=s,DIR=C}},
EXE={EXP=10,FLW={CND=Y,MOD=B,DIR=C}},
END_BLK,
RMRK="",
BLOCK={END_BLK=31,MOD=I,END=31,FLW={CND=7,MOD=B,DIR=C}},
CALL_TSK={MOD=T,TSK={OBJ=1},LOCK=Y,WAIT=Y,SYNC_UPDATE=N,FLW={CND=Y,MOD=s,DIR=C}},
EXE={EXP=10,FLW={CND=Y,MOD=B,DIR=C}},
END_BLK,
RMRK="",
BLOCK={END_BLK=36,MOD=I,END=36,FLW={CND=8,MOD=B,DIR=C}},
CALL_TSK={MOD=T,TSK={OBJ=1},LOCK=Y,WAIT=Y,SYNC_UPDATE=N,FLW={CND=Y,MOD=s,DIR=C}},
EXE={EXP=10,FLW={CND=Y,MOD=B,DIR=C}},
END_BLK}}},
DSP={LAST_TEST_ID=5,
PROPLIST={MODEL="FORM_GUI0",
PROP={ID="MODEL",DATA={MODEL_ID={}}},
PROP={ID="WIDTH",DATA={VAL=733}},
PROP={ID="NAME",DATA={VAL="Process the vector"}},
PROP={ID="COMMENT",DATA={}}},
ITM={TEST_ID=1,
PROPLIST={MODEL="CTRL_GUI0_TABLE",
PROP={ID="PLACEMENT",DATA={PLACE={DX=100,DY=100}}},
PROP={ID="LEFT",DATA={VAL=8}},
PROP={ID="TOP",DATA={VAL=8}},
PROP={ID="WIDTH",DATA={VAL=711}},
PROP={ID="HEIGHT",DATA={VAL=182}},
PROP={ID="STYLE_3D",DATA={VAL=4}},
PROP={ID="TITLE_HEIGHT",DATA={VAL=12}},
PROP={ID="ROW_HEIGHT",DATA={VAL=13}},
PROP={ID="COLUMNS",DATA={VAL=2}},
PROP={ID="ALLOW_MULTI_MARKING"},
PROP={ID="WINDOW_WIDTH",DATA={VAL=711}}}},
ITM={TEST_ID=4,ISN_FATHER=1,PDOD=128,
PROPLIST={MODEL="CTRL_GUI0_COLUMN",
PROP={ID="WIDTH",DATA={VAL=570}},
PROP={ID="LAYER",DATA={VAL=1}},
PROP={ID="COLUMN_TITLE",DATA={VAL="vFullFileName"}}}},
ITM={TEST_ID=5,ISN_FATHER=1,PDOD=128,
PROPLIST={MODEL="CTRL_GUI0_COLUMN",
PROP={ID="WIDTH",DATA={VAL=122}},
PROP={ID="LAYER",DATA={VAL=2}},
PROP={ID="COLUMN_TITLE",DATA={VAL="vExtension"}}}},
ITM={TEST_ID=2,ISN_FATHER=1,
PROPLIST={MODEL="CTRL_GUI0_EDIT",
PROP={ID="MODEL",DATA={MODEL_ID={VAR={FLD=1},ID="MODEL_GUI_INT_TBL"}}},
PROP={ID="PLACEMENT",DATA={PLACE={DX=100}}},
PROP={ID="LEFT",DATA={VAL=12}},
PROP={ID="TOP",DATA={VAL=22}},
PROP={ID="WIDTH",DATA={VAL=563}},
PROP={ID="HEIGHT",DATA={VAL=10}},
PROP={ID="LAYER",DATA={VAL=1}},
PROP={ID="DATA",DATA={FLD="BG"}},
PROP={ID="NAME",DATA={VAL="vFullFileName"}},
PROP={ID="STYLE_3D",DATA={VAL=1}},
PROP={ID="EXPAND_WINDOW"},
PROP={ID="RTOL"}}},
ITM={TEST_ID=3,ISN_FATHER=1,
PROPLIST={MODEL="CTRL_GUI0_EDIT",
PROP={ID="MODEL",DATA={MODEL_ID={VAR={FLD=2},ID="MODEL_GUI_INT_TBL"}}},
PROP={ID="PLACEMENT",DATA={PLACE={DX=100}}},
PROP={ID="LEFT",DATA={VAL=582}},
PROP={ID="TOP",DATA={VAL=22}},
PROP={ID="WIDTH",DATA={VAL=115}},
PROP={ID="HEIGHT",DATA={VAL=10}},
PROP={ID="LAYER",DATA={VAL=2}},
PROP={ID="DATA",DATA={FLD="BH"}},
PROP={ID="NAME",DATA={VAL="vExtension"}},
PROP={ID="STYLE_3D",DATA={VAL=1}},
PROP={ID="EXPAND_WINDOW"},
PROP={ID="RTOL"}}}},
EXP="Trim (BC)&VecGet (BF,Counter (0))",
EXP="Trim (MID (BG,InStr (BG,'.')+1,Len (BG)))",
EXP="Trim (BC)&'Archive\'&VecGet (BF,Counter (0))",
EXP="BH='jobprop'",
EXP="BH='jobacds'",
EXP="BH='jobicmst'",
EXP="BH='invmast'",
EXP="BH='invlocd'",
EXP="Counter (0)>=VecSize (BF)",
EXP="IORen (BG,BI)",
TSK={
HDR={DESC="Stub Program",PUBQRY={},PUBMDF={},PUBDEL={},PUBEXE={},RSDNT=N,SQL=N,RET_VAL={PARAM_ATTR={}}},
RSRCE={},
DTLS={
KEY={MOD=N},
DB={DB={}},
FLW=B,DEL=N,END=Y,EMOD=A,
MOD={MOD=M},
LCT={DIR=A},
RNG={DIR=A},
FLG={SLCT=N,CNFU=N,CNF=N,ERR_STRG=A,LSTRG=I,TSK_CACHE=N,SUFIX=N,TRANS_MODE=W,TRANS_BEGIN=N,KEEP_NEW_CNXT=N},
SIDE_WIN={
SIDE_WIN={SIDE_WIN=N},
RPR={RPR=N}},
WIN={OPN=N,CLS=Y,FGND=Y,FLIP=N,
DTLS={RTRN=N}},
BOX={DIR=V},
UPD={DATE="08/11/2005",TIME="13:15:57"}},
FLW={
BRK={LEVEL=T,TYP=P,DIT_CTRL=-1,DSP=-1,REFERENCE="BH",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=T,TYP=S,DIT_CTRL=-1,DSP=-1,REFERENCE="BH",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=R,TYP=P,DIT_CTRL=-1,DSP=-1,REFERENCE="BH",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=R,TYP=M,DIT_CTRL=-1,DSP=-1,REFERENCE="BH",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}},
BRK={LEVEL=R,TYP=S,DIT_CTRL=-1,DSP=-1,REFERENCE="BH",POS=1,SCOPE=S,PROP=78,ENGINE_DIR=S,SHOW_MSG=89,ENABLED=89,
EVENT_TRIGGER={TRIG_TYPE=S,COMP_EVNT_ISN={PUB_OBJ={COMP_OBJ=-1}}}}},
DSP={
PROPLIST={MODEL="FORM_GUI0",
PROP={ID="NAME",DATA={VAL="Stub Program"}},
PROP={ID="COMMENT",DATA={}}}}}}}
Hope this helps.
There is one comment on this page. [Display comment]