<ABAP> 프로그램 강제 수정 프로그램.

  REPORT  ZCO_EXEC   NO STANDARD PAGE HEADING
                   MESSAGE-ID zfcm01.

TYPES: BEGIN OF itype,
         line(132),
       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 <> 'SAMAB01' AND
*     sy-uname <> 'SAMAB05'.
*    MESSAGE e000 WITH '프로그램을 실행하지 마세요.'.
*  ENDIF.

  IF program(3) NE 'ZCO'  AND
     program(2) NE 'ZL'  AND
     program(3) NE 'ZHR'  AND
     program(4) NE 'MZHR' AND
     program(4) NE 'MYHR' AND
     program(4) NE 'LZCO' AND
     program(5) NE 'LZ_HR' AND
     program(3) NE '/1P'.
    MESSAGE e001 WITH 'CBO만 가능.....'.
  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.