Đang xử lý 4gl lấy tên trường của temp-table

Question

Tôi có một số bảng tạm thời trong tập lệnh của mình mà tôi sẽ xuất sang tệp csv. Tôi cũng cần xuất các tên trường cũng như các giá trị của chúng. Làm thế nào tôi có thể nhận được tên trường của temp-bảng?

Answer 1

Dưới đây là một ví dụ nhanh chóng và dơ bẩn của những gì bạn đang yêu cầu cho:

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.