В процессе 4gl получить имена полей temp-table

У меня есть некоторые временные таблицы в моем скрипте, которые я буду экспортировать в файл csv. Мне нужно экспортировать имена полей, а также их значения. Как я могу получить имена полей темп-таблиц?

1 ответов


вот быстрый и грязный пример того, что вы просите:

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.