Kbase P116092: How to get data from a temp-table passed in as table-handle
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
16/06/2010 |
|
Status: Unverified
GOAL:
How to get data from a temp-table passed in as table-handle
GOAL:
Generic sample code for a internal procedure which dumps the data from a temp-table passed in as table-handle.
FACT(s) (Environment):
All Supported Operating Systems
Progress 9.1x
OenEdge 10.x
FIX:
PROCEDURE myExport:
DEFINE INPUT PARAM TABLE-HANDLE hTT.
DEF VAR hQ AS HANDLE.
DEF VAR hB AS HANDLE.
DEF VAR hFld AS HANDLE.
DEF VAR vi AS INT.
hB = hTT:DEFAULT-BUFFER-HANDLE.
CREATE QUERY hQ.
hQ:SET-BUFFERS( hB ).
hQ:QUERY-PREPARE( "FOR EACH " + hB:NAME ).
hQ:QUERY-OPEN().
DO WHILE( hQ:GET-NEXT() ):
DO vi = 1 TO hB:NUM-FIELDS:
hFLD = hB:BUFFER-FIELD( vi ).
CASE hFld:DATA-TYPE :
WHEN "Character" THEN
PUT UNFORMATTED '"' hfld:BUFFER-VALUE '"' SPACE(1).
WHEN "date" THEN
PUT UNFORMATTED STRING( hFld:buffer-value ) SPACE(1).
OTHERWISE
PUT UNFORMATTED hfld:BUFFER-VALUE SPACE(1).
END CASE.
END.
PUT SKIP.
END.
hQ:QUERY-CLOSE().
DELETE OBJECT hQ.
END PROCEDURE.