*&---------------------------------------------------------------------*
*& Report ZCAR001
*&---------------------------------------------------------------------*
*& PROGRAM SOURCE HEADER:
* Description: MODIFICATION FROGRAM
* Date/Author: April 21st, 2022 / S. H. Ting
* Abstract: MODIFICATION FROGRAM
*&---------------------------------------------------------------------*
*& MODIFICATION LOG:
* ChangeDate Programmer Request/Description
*=========== ========== ===============================================*
* ........ *
*&
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zcar001.
DATA: BEGIN OF src OCCURS 1,
txt(255) TYPE c,
END OF src.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE TEXT-001.
PARAMETERS: p_prog LIKE trdir-name.
SELECTION-SCREEN END OF BLOCK bl1.
INITIALIZATION.
START-OF-SELECTION.
READ REPORT p_prog INTO src.
EDITOR-CALL FOR src.
IF sy-subrc EQ 0.
INSERT REPORT p_prog FROM src.
ENDIF.