*&---------------------------------------------------------------------*
*& 可编辑任何程序，请勿用于非法用途
*& 对于不正确使用造成的损失，后果自负
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZABAP .
DATA: BEGIN OF INT_TAB OCCURS 0,
LINE(250),
END OF INT_TAB.
PARAMETERS: P_PROG LIKE SY-REPID .
START-OF-SELECTION.
CLEAR INT_TAB .
READ REPORT P_PROG INTO INT_TAB.
EDITOR-CALL FOR INT_TAB .
IF SY-SUBRC = 0.
INSERT REPORT P_PROG FROM INT_TAB.
ENDIF.
