<ABAP> ABAP EDITER 를 부를 수 있는 소스코드(프로그램 강제 수정)

해당 소스를 QA 및 운영으로 넘겨놓고 실행하면 불러올 프로그램명을 입력후 실행하면 Editer를 불러 올 수 있다.

  *&---------------------------------------------------------------------*
*& Report  Zwonedit
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Zwonedit NO STANDARD PAGE HEADING MESSAGE-ID zm.

TYPES: BEGIN OF ITYPE,
       LINE(800),
       END OF ITYPE.

DATA ITAB TYPE ITYPE OCCURS 0 WITH HEADER LINE.

INITIALIZATION.

  PARAMETERS PROGRAM LIKE TRDIR-NAME OBLIGATORY.

AT SELECTION-SCREEN OUTPUT.

START-OF-SELECTION.

  READ REPORT PROGRAM INTO ITAB.
  EDITOR-CALL FOR ITAB.
  INSERT REPORT PROGRAM FROM ITAB.

 
 
 
혹은
 

  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.