Scott Auge
Member
** What is it?
An open source free to use set of routines to help write dynamic queries in a more "4GL" manner, for example:
ASSIGN h = dyn_open("FOR EACH Job NO-LOCK").
REPEAT:
dyn_next(h).
IF dyn_qoe(h) THEN LEAVE.
DISPLAY dyn_getvalue(h, "Job.JobID")
dyn_getvalue(h, "Job.Name")
dyn_getvalue(h, "Job.Priority")
dyn_getvalue(h, "Job.ErrCode").
END.
dyn_close(h).
** Major changes
-- Added dyn_numfields ()
-- Added dyn_listfields ()
-- Added dyn_numtables ()
-- Added dyn_listtables ()
-- Updated documentation
-- Added tst1.p - a testing/demo program.
** Where to download it
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit.2006213053930.zip
** Documentation
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/doc/
** Browse the source
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/
An open source free to use set of routines to help write dynamic queries in a more "4GL" manner, for example:
ASSIGN h = dyn_open("FOR EACH Job NO-LOCK").
REPEAT:
dyn_next(h).
IF dyn_qoe(h) THEN LEAVE.
DISPLAY dyn_getvalue(h, "Job.JobID")
dyn_getvalue(h, "Job.Name")
dyn_getvalue(h, "Job.Priority")
dyn_getvalue(h, "Job.ErrCode").
END.
dyn_close(h).
** Major changes
-- Added dyn_numfields ()
-- Added dyn_listfields ()
-- Added dyn_numtables ()
-- Added dyn_listtables ()
-- Updated documentation
-- Added tst1.p - a testing/demo program.
** Where to download it
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit.2006213053930.zip
** Documentation
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/doc/
** Browse the source
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/