In Bearbeitung 4gl Feldnamen der Temp-Tabelle erhalten

Question

Ich habe einige temporäre Tabellen in meinem Skript, die ich in eine CSV-Datei exportieren werde. Ich muss auch die Feldnamen sowie ihre Werte exportieren. Wie kann ich die Feldnamen von temporären Tabellen erhalten?

Answer 1

Hier ist ein schnelles und schmutziges Beispiel dafür, was Sie für Fragen:

define temp-table tt1 
    field f1 as character 
    field f2 as decimal 
    . 

def var iCnt as integer no-undo. 

create tt1. 
assign 
    tt1.f1 = "f1" 
    tt1.f2 = 123.456 
    . 

do icnt = 1 to buffer tt1:num-fields: 

    display buffer tt1:buffer-field(icnt):name 
      buffer tt1:buffer-field(icnt):buffer-value 
     with down 
     . 

    down. 

end.