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
ZSDR9999-source edit screen 까지.txt
ABAP_Util.zip