W toku 4gl pobierz nazwy pól tabeli temp

Question

Mam kilka tabel temp w moim skrypcie, które będę eksportować do pliku csv. Muszę również wyeksportować nazwy pól, jak również ich wartości. Jak mogę uzyskać nazwy pól tabel temp?

Answer 1

Oto szybki i brudny przykładem tego, co prosisz:

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.