progress-4gl - 一時テーブルの値を .csv ファイルに書き込む

Question

1 つの一時テーブルを動的に作成しました。完全なテーブルを .csv ファイルに出力します。実行する方法？

DEF VAR ttH AS HANDLE NO-UNDO.
ttH:CREATE-LIKE(hBuffer).
ttH:Temp-table-prepare("tmytable")

Answer 1

エクステント処理構文については、 Progress KB P4410を参照してください。FORWARD-ONLY=TRUE を QUERY-PREPARE の前にクエリに追加して、パフォーマンスを向上させることもできます。

Answer 2

一時テーブルを動的に作成したため、EXPORT ステートメントを使用することはできません (少なくとも私の知る限り)。ただし、最初にフィールド名を動的に出力し、次にテーブルのフィールド値を動的に出力することができます。そのようです：

DEFINE VARIABLE hQuery  AS HANDLE NO-UNDO.
DEFINE VARIABLE ttH     AS HANDLE NO-UNDO.

/* Define a new output stream  */
DEFINE STREAM s1.
OUTPUT stream s1 to "myCSV.csv".

/* Create a query for the contents of your temp-table */
CREATE QUERY hQuery.
/* Important: we need to use the temp-tables default buffer handle, 
/* not the hBuffer handle to the original table! */
hQuery:SET-BUFFERS (ttH:DEFAULT-BUFFER-HANDLE).
/* Use the name you created before for the FOR EACH clause */
hQuery:QUERY-PREPARE("FOR EACH tmytable").
hQuery:QUERY-OPEN().
hQuery:GET-FIRST().

/* Write out the names of the fields as header in the first row */
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DO i = 1 TO ttH:DEFAULT-BUFFER-HANDLE:NUM-FIELDS:
    PUT STREAM s1 UNFORMATTED ttH:DEFAULT-BUFFER-HANDLE:buffer-field(i):name + ",".
END.
PUT STREAM s1 UNFORMATTED SKIP.

/* Walk through the query and output each field seperately. */
REPEAT:  
    hQuery:GET-NEXT().  
    IF hQuery:QUERY-OFF-END THEN LEAVE.  

    DO i = 1 TO ttH:DEFAULT-BUFFER-HANDLE:NUM-FIELDS:
        PUT STREAM s1 UNFORMATTED ttH:DEFAULT-BUFFER-HANDLE:buffer-field(i):buffer-value ",".
    END.
    PUT STREAM s1 UNFORMATTED SKIP.
END.

OUTPUT stream s1 close.

これは、大量のテーブル エントリに対しては機能しない可能性があることに注意してください。