Hi,
Whenever I referred an existing script in order to perform the zoom related processing, I faced a code such as "execute(find.data)"... So please let me know that what is actual functionality of this statement.... My referred script is as follows....
|******************************************************************************
|* tccom4539
|* Cities by Country
|* Hans van Eijk
|******************************************************************************
|******************************************************************************
|* Rev.No. 2 tcB60asy64 02 May 12 rhaitsma
|* Script cleaned by: duutl1200m000 user: rhaitsma
|* Rev.No. 2 tcB60asy74 01 May 13 rhaitsma
|* 800-190794, the domain of the State/Province field is extended from
|* string(2) to string(3).
|******************************************************************************
|**** Declaration Section *****************************************************
declaration:
#ident "@(#)tccom4539 tcB60asy74 nlbaudv3 Rev.No. 2 01 May 13 rhaitsma"
#ident "@(#)tccom4539 tcB60asy64 nlbaudv3 Rev.No. 2 02 May 12 rhaitsma"
table ttccom139 |* Cities by Country
extern domain tccity zoom.city |* City code for zoom
extern domain tcccty zoom.ccty |* Country code for zoom
extern domain tcmcs.cste zoom.cste |* State code for zoom
extern domain tcbool marked.1 |* only 1 occ. selected?
boolean start.from.zoom
#include <bic_dam> |* DAM Support
#include "itcmcs2000" |* Dal-GUI Support
|**** Program Section *********************************************************
before.program:
set.synchronized.dialog("tccom4139s000")
start.from.zoom = false
marked.1 = false
|**** Form Section ************************************************************
choice.add.set:
before.choice:
if start.from.zoom
and filled.occ = 0 then
tccom139.ccty = zoom.ccty
tccom139.cste = zoom.cste
to.key(1)
endif
|**** Zoom Section ************************************************************
zoom.from.all:
on.entry:
import("zoom.ccty", zoom.ccty)
import("zoom.cste", zoom.cste)
import("zoom.city", zoom.city)
if not isspace(zoom.cste) then
tccom139.cste = zoom.cste
endif
if not isspace(zoom.ccty) then
tccom139.ccty = zoom.ccty
endif
if not isspace(zoom.city) then
tccom139.city = zoom.city
endif
start.from.zoom = true
execute(find.data)
on.exit:
if sel.num.selected() = 1 then
zoom.city = tccom139.city
export("zoom.city", zoom.city)
export("tccom139.ccty", tccom139.ccty)
export("tccom139.cste", tccom139.cste)
export("tccom139.city", tccom139.city)
else
zoom.city = ""
endif
|**** Field Section ***********************************************************
field.tccom139.cste:
selection.filter:
SET.BROWSE.FILTER.UI("tccom139", "cste")
before.zoom:
|**** Choice Section **********************************************************
choice.mark.occur:
after.choice:
marked.1 = (number.of.marks = 1) ? true : false
|**** Function Section ********************************************************
functions:
|**** End of Source ****
Thanks in advance,
Pralash
Whenever I referred an existing script in order to perform the zoom related processing, I faced a code such as "execute(find.data)"... So please let me know that what is actual functionality of this statement.... My referred script is as follows....
|******************************************************************************
|* tccom4539
|* Cities by Country
|* Hans van Eijk
|******************************************************************************
|******************************************************************************
|* Rev.No. 2 tcB60asy64 02 May 12 rhaitsma
|* Script cleaned by: duutl1200m000 user: rhaitsma
|* Rev.No. 2 tcB60asy74 01 May 13 rhaitsma
|* 800-190794, the domain of the State/Province field is extended from
|* string(2) to string(3).
|******************************************************************************
|**** Declaration Section *****************************************************
declaration:
#ident "@(#)tccom4539 tcB60asy74 nlbaudv3 Rev.No. 2 01 May 13 rhaitsma"
#ident "@(#)tccom4539 tcB60asy64 nlbaudv3 Rev.No. 2 02 May 12 rhaitsma"
table ttccom139 |* Cities by Country
extern domain tccity zoom.city |* City code for zoom
extern domain tcccty zoom.ccty |* Country code for zoom
extern domain tcmcs.cste zoom.cste |* State code for zoom
extern domain tcbool marked.1 |* only 1 occ. selected?
boolean start.from.zoom
#include <bic_dam> |* DAM Support
#include "itcmcs2000" |* Dal-GUI Support
|**** Program Section *********************************************************
before.program:
set.synchronized.dialog("tccom4139s000")
start.from.zoom = false
marked.1 = false
|**** Form Section ************************************************************
choice.add.set:
before.choice:
if start.from.zoom
and filled.occ = 0 then
tccom139.ccty = zoom.ccty
tccom139.cste = zoom.cste
to.key(1)
endif
|**** Zoom Section ************************************************************
zoom.from.all:
on.entry:
import("zoom.ccty", zoom.ccty)
import("zoom.cste", zoom.cste)
import("zoom.city", zoom.city)
if not isspace(zoom.cste) then
tccom139.cste = zoom.cste
endif
if not isspace(zoom.ccty) then
tccom139.ccty = zoom.ccty
endif
if not isspace(zoom.city) then
tccom139.city = zoom.city
endif
start.from.zoom = true
execute(find.data)
on.exit:
if sel.num.selected() = 1 then
zoom.city = tccom139.city
export("zoom.city", zoom.city)
export("tccom139.ccty", tccom139.ccty)
export("tccom139.cste", tccom139.cste)
export("tccom139.city", tccom139.city)
else
zoom.city = ""
endif
|**** Field Section ***********************************************************
field.tccom139.cste:
selection.filter:
SET.BROWSE.FILTER.UI("tccom139", "cste")
before.zoom:
|**** Choice Section **********************************************************
choice.mark.occur:
after.choice:
marked.1 = (number.of.marks = 1) ? true : false
|**** Function Section ********************************************************
functions:
|**** End of Source ****
Thanks in advance,
Pralash