Kbase P102491: How to use dynamic query - Sample code
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
2/28/2006 |
|
Status: Verified
GOAL:
How to use dynamic query
GOAL:
4GL sample code using a dynamic query
FACT(s) (Environment):
Progress 9.x
OpenEdge 10.x
FIX:
DEFINE VARIABLE qh AS WIDGET-HANDLE.
DEFINE VARIABLE numvar AS INTEGER INITIAL 10.
CREATE QUERY qh.
qh:SET-BUFFERS(BUFFER customer:HANDLE).
qh:QUERY-PREPARE("FOR EACH customer WHERE custnum < " + string(numvar)).
qh:QUERY-OPEN.
REPEAT WITH FRAME y:
qh:GET-NEXT().
IF qh:QUERY-OFF-END THEN LEAVE.
DISPLAY custnum
name FORMAT "x(30)"
city FORMAT "X(20)".
END.
qh:QUERY-CLOSE().
DELETE OBJECT qh.