Anonymous написал(а):
просто огромное спасибо, может я могу как-то отблагодарить, например, поделиться материалами по Abap, а не подскажешь, как сделать так чтобы для для каждого номера создавался отдельный файл например testfile51000113, следующий testfile51000113 вида
<?xml version="1.0" encoding="UTF-8"
<HR-DELUSER>
<USER>
<TAB_NUMBER>51000113</TAB_NUMBER>
</USER>
</HR-DELUSER>
PARAMETERS FILENAME(128) default 'c:\testfile' LOWER CASE.
TABLES pa0000.
DATA: begin of ALL_CUSTOMERS occurs 0,
pernr LIKE pa0000-pernr,
end of all_customers,
filloc(128).
data: begin of st occurs 0,
stroka(255),
end of st.
* Get data for file transfer
SELECT PERNR FROM pa0000 APPENDING TABLE ALL_CUSTOMERS
where stat3 eq '0'.
condense: filename.
loop at ALL_CUSTOMERS.
concatenate filename all_customers-pernr '.htm' into filloc.
clear: st. refresh st.
st-stroka = '<?xml version="1.0" encoding="UTF-8"'. append st.
st-stroka = '<HR-DELUSER>'. append st.
clear: st.
st-stroka = '<USER>'. append st.
clear: st.
concatenate '<TAB_NUMBER>' all_customers-pernr '</TAB_NUMBER>'
into st-stroka.
append st.
clear: st.
st-stroka = '</USER>'. append st.
clear: st. append st.
* Transferring Data
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = FILLOC
filetype = 'DAT'
TABLES
DATA_TAB = st
EXCEPTIONS
FILE_OPEN_ERROR = 1
OTHERS = 2.
CASE SY-SUBRC.
WHEN 1.
WRITE 'Error when file opened'.
EXIT.
WHEN 2.
WRITE 'Error during data transfer'.
EXIT.
ENDCASE.
endloop.