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.