function zg_generate_excel_header.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" TABLES
*" EXCEL
*"----------------------------------------------------------------------
* ID Change-by Date Description/Reason for Change *
*----------------------------------------------------------------------*
data : lv_field type string,
lv_line type char10 value 'EXCEL-LINE',
lv_c(3) type c.
field-symbols: <text> type any,
<line> type any.
data : lv_i type i.
do 500 times.
lv_i = lv_i + 1.
unpack lv_i to lv_c.
concatenate 'text-' lv_c into lv_field.
assign (lv_field) to <text>.
assign (lv_line) to <line>.
move <text> to <line>.
if sy-subrc eq 0.
append excel.
endif.
enddo.
endfunction.
ไม่มีความคิดเห็น:
แสดงความคิดเห็น