Scott Auge
Member
*** What is it?
Can dynamic queries be as easy as this?
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 changes?
Added new documentation
Modified dyn_fieldtype () to return CHAR all the time
Added dyn_getvalue_raw()
Added dyn_fieldhdl ()
*** Where is the documentation?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/doc/
*** Where is the package?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit.2006219201537.zip
*** Where to browse the source?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/src/
Can dynamic queries be as easy as this?
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 changes?
Added new documentation
Modified dyn_fieldtype () to return CHAR all the time
Added dyn_getvalue_raw()
Added dyn_fieldhdl ()
*** Where is the documentation?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/doc/
*** Where is the package?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit.2006219201537.zip
*** Where to browse the source?
http://amduus.com/OpenSrc/SrcLib/DynToolKit/dyntoolkit/src/