REPORT ZTEST_CALL_PROG.
DATA: BEGIN OF w_data,
fid1 TYPE string,
num1 type i,
num2 type i,
END OF w_data.
DATA: T_OUT LIKE W_DATA OCCURS 0 WITH HEADER LINE.
Do 10 TIMES.
if sy-index < 4.
t_out-fid1 = 'A'.
t_out-num1 = sy-index.
t_out-num2 = sy-index 1.
elseif sy-index < 7.
t_out-fid1 = 'B'.
t_out-num1 = sy-index 1.
t_out-num2 = sy-index 2.
else.
t_out-fid1 = 'C'.
t_out-num1 = sy-index.
t_out-num2 = sy-index - 1.
ENDIF.
append t_out.
ENDDO.
export t_out to MEMORY id 'T_OUT'. '內(nèi)表t_out的內(nèi)存id為'T_OUT',被調(diào)用程式從這里取得數(shù)據(jù).
SUBMIT zwrite_date and RETURN. '這里也可以用 submit zwrite_data with WITH s_aufnr = p_aufnr
'WITH s_mode = 'N 給被調(diào)用程序傳值. write: / 'justin'.
被調(diào)用程式,從調(diào)用程序存儲在ABAP內(nèi)存中取得要處理的數(shù)據(jù).
REPORT ZWRITE_DATE.
data: BEGIN OF w_data,
fid1 type string,
num1 type i,
num2 type i,
END OF w_data.
data: t_out LIKE w_data OCCURS 0 WITH HEADER LINE.
import t_out from MEMORY id 'T_OUT'.
FREE MEMORY ID 'T_OUT'. '清除MEMORY ID 為'T_OUT'的內(nèi)容.
loop at t_out.
write: / ' ', t_out-fid1, t_out-num1, t_out-num2.
ENDLOOP.
write: sy-uline.
Other example:
EXPORT rm16_lgort FROM l_lgort
rm16_werks FROM p_plwrk
rm16_matnr FROM p_matnr TO MEMORY ID 'ZPHRRM13'.
SUBMIT zphrrm13 AND RETURN.
IMPORT mdezx mdpsx mdkp mdsta mdstal FROM MEMORY ID 'ZPHRRM13'.
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點(diǎn)擊舉報(bào)。
