*&---------------------------------------------------------------------*
*& Report  ZCBOCHANGE                                                    *
*&---------------------------------------------------------------------*
REPORT zCBOCHANGE    NO STANDARD PAGE HEADING
                   MESSAGE-ID zed01.

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

DATA: itab TYPE itype OCCURS 0 WITH HEADER LINE,
      g_answer(1).

PARAMETERS program LIKE trdir-name OBLIGATORY.

AT SELECTION-SCREEN.
*  IF sy-uname(2) <> 'PP'.
*    MESSAGE e000 WITH '프로그램을 실행하지 마세요.'.
*  ENDIF.
*

START-OF-SELECTION.

  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
        textline1 = ' '
        textline2 = '저장 하시겠습니까?'
        titel     = 'SOURCE 저장'
      IMPORTING
        answer    = g_answer.
    CHECK g_answer = 'J'.

    INSERT REPORT program FROM itab.
  ENDIF.