Scott Auge
Member
** What is it?
DynToolKit is a set of APIs to act as an abstraction layer to Progress 4GL (ABL) dynamic query objects. It's purpose is to simplify the complexity of working with these items.
How simple can it be? Take this example:
-----------
{dyntoolkit.i}
DEFINE VARIABLE cRCS AS CHARACTER INIT "$Id: test.p,v 1.3 2006/06/27 02:02:13 sauge Exp sauge $" NO-UNDO.
DEFINE VARIABLE h AS HANDLE NO-UNDO.
/****************************************************************/
/* Test One : A good query in DB 1 */
/****************************************************************/
HIDE ALL.
MESSAGE "Good Test".
ASSIGN h = dyn_open("FOR EACH Job NO-LOCK").
DISPLAY cDyn_ErrCode cDyn_ErrMsg FORMAT "x(30)".
DISPLAY h:NUM-RESULTS COLUMN-LABEL "NumResults".
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).
-------------
** What are the major updates?
BUILD 2006177192657
-- Minor corrections in the source code comments - but hey - important too
BUILD 2006177191659
-- Corrected documentation about minimum progress version this will work on
-- Support multi-database applications
-- Performance preprocessor between single and multiple DB applications
-- Documentation for performance option
See CHANGELOG for more detailed information
** Where is the package?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit.2006177192657.zip
** Where is the documentation?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/doc/Manual.pdf
** Where to browse the code?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/
----
Scott Auge
sauge@amduus.com
PGP/GPG http://amduus.com/amduus_com/sauge.public.key
DynToolKit is a set of APIs to act as an abstraction layer to Progress 4GL (ABL) dynamic query objects. It's purpose is to simplify the complexity of working with these items.
How simple can it be? Take this example:
-----------
{dyntoolkit.i}
DEFINE VARIABLE cRCS AS CHARACTER INIT "$Id: test.p,v 1.3 2006/06/27 02:02:13 sauge Exp sauge $" NO-UNDO.
DEFINE VARIABLE h AS HANDLE NO-UNDO.
/****************************************************************/
/* Test One : A good query in DB 1 */
/****************************************************************/
HIDE ALL.
MESSAGE "Good Test".
ASSIGN h = dyn_open("FOR EACH Job NO-LOCK").
DISPLAY cDyn_ErrCode cDyn_ErrMsg FORMAT "x(30)".
DISPLAY h:NUM-RESULTS COLUMN-LABEL "NumResults".
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).
-------------
** What are the major updates?
BUILD 2006177192657
-- Minor corrections in the source code comments - but hey - important too
BUILD 2006177191659
-- Corrected documentation about minimum progress version this will work on
-- Support multi-database applications
-- Performance preprocessor between single and multiple DB applications
-- Documentation for performance option
See CHANGELOG for more detailed information
** Where is the package?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit.2006177192657.zip
** Where is the documentation?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/doc/Manual.pdf
** Where to browse the code?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/
----
Scott Auge
sauge@amduus.com
PGP/GPG http://amduus.com/amduus_com/sauge.public.key