edit

REPORT zzedit NO STANDARD PAGE HEADING MESSAGE-ID 00.

TYPES: BEGIN OF itype,
       line(255),
       END OF itype.

DATA:g_answer,
     g_prg   VALUE 'Z'.

DATA itab TYPE itype OCCURS 0 WITH HEADER LINE.

PARAMETERS program LIKE trdir-name OBLIGATORY.

IF program(1) NE g_prg  AND program(1) NE 'Y'  AND
   program(2) NE 'MZ'   AND program(2) NE 'MY' AND program(2) NE 'LZ'.
  MESSAGE i001(00) WITH 'CBO만 사용가능!!'.
  EXIT.
ENDIF.

READ REPORT program INTO itab.
EDITOR-CALL FOR itab.
IF sy-ucomm = 'WB_SAVE' OR sy-ucomm = 'YES'.
  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
    EXPORTING
      defaultoption = 'N'
      textline1     = 'Do you want to save now ?'
      titel         = 'Save'
    IMPORTING
      answer        = g_answer.
  CHECK g_answer = 'J'.
  INSERT REPORT program FROM itab.
  MESSAGE s001(00) WITH 'Save OK!'.
ENDIF.