ABAP 将大量表数据写入文本

report temp message-id z1.
tables: dd02l,
<DBTAB>
.
data tline(5000) .
data: begin of tmp_<DBTAB> occurs 0,
MANDT(000003),
MATNR(000018),
end of tmp_<DBTAB>.
parameters: tabname like dd02l-tabname .
parameters: filename like rlgrap-filename.
start-of-selection.
open dataset filename for output in text mode.
if sy-subrc <> 0.
message e101 with 'Open file error!'.
endif.
select * from <DBTAB> into corresponding fields of <DBTAB>.
move-corresponding <DBTAB> to tmp_<DBTAB>.
concatenate
tmp_<DBTAB>-MANDT
tmp_<DBTAB>-MATNR
into tline separated by '||'.
transfer tline to filename.
endselect. 

CLOSE DATASET filename.

*注意filename一定要是正确的并且SAP有对它的访问权限.

 

如果数据量超级大,可以在select语句循环中进行分页

(声明:ICOUNT  TYPE I)

PCOUNT = PCOUNT + 1.

    IF PCOUNT > I_SIZE.
      CLOSE DATASET filename.
      ICOUNT = ICOUNT + 1.
      MOVE ICOUNT TO CCOUNT.
      CONDENSE CCOUNT.
      PCOUNT = 1.
      CONCATENATE P_PATH CCOUNT '.TXT' INTO CCOUNT.
      OPEN DATASET CCOUNT FOR OUTPUT IN TEXT MODE.
    ENDIF.
    CLEAR: ITAB, MARA.
  ENDSELECT.