Kbase P70027: How to populate a static temp table using a dynamic query ob
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
03/03/2004 |
|
Status: Unverified
GOAL:
How to populate a static temp table using a dynamic query object?
FACT(s) (Environment):
Progress 9.x
FIX:
The following 4GL code demonstrates how to populate a temp-table using a dynamic query object:
DEFINE TEMP-TABLE MyTempTable LIKE customer.
DEFINE VARIABLE hQuery AS WIDGET-HANDLE.
CREATE QUERY hQuery.
hQuery:SET-BUFFERS(BUFFER Customer:HANDLE).
hQuery:QUERY-PREPARE("FOR EACH Customer").
hQuery:QUERY-OPEN.
hQuery:GET-FIRST().
REPEAT:
IF hQuery:QUERY-OFF-END THEN LEAVE.
CREATE MyTempTable.
BUFFER-COPY Customer TO MyTempTable.
hQuery:GET-NEXT().
END.
FOR EACH myTempTable:
DISPLAY MyTempTable.NAME.
END.
hQuery:QUERY-CLOSE().
DELETE OBJECT hQuery.