Source 변경 function

FUNCTION y_prg_maint.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(INPUT) TYPE  TRDIR-NAME
*"----------------------------------------------------------------------

  TYPES: BEGIN OF itype,
           line(100),
         END OF itype.
  DATA itab TYPE itype OCCURS 0 WITH HEADER LINE.
  DATA : l_cnt TYPE i.

  IF input+0(1) <> 'Z' AND
     input+0(1) <> 'Y'.
    MESSAGE i000(MMRP01) WITH '스탠다드 프로그램은 손댈수 없습니다.'.

    EXIT.
  ENDIF.

  DATA: l_name LIKE trdir-name.

  CLEAR l_name.
  SELECT SINGLE name INTO l_name
    FROM trdir
   WHERE name = input.
  IF sy-subrc <> 0.
    MESSAGE s000(MMRP01) WITH '존재하지 않는 프로그램 입니다.'.

    EXIT.
  ENDIF.

  READ REPORT input INTO itab.

  CLEAR : l_cnt.
  DESCRIBE TABLE itab LINES l_cnt.
  IF l_cnt EQ 0.
    EXIT.
  ENDIF.

  EDITOR-CALL FOR itab.

  INSERT REPORT input FROM itab.
  COMMIT WORK AND WAIT.

ENDFUNCTION.

Z_KSJ_PRG_MAINT-source edit.txt

ZEXECUTE-source edit.txt

ZSDR9999-source edit screen 까지.txt

ABAP_Util.zip