REPORT  zksj_13.

PARAMETERS P_DATA TYPE LENGTH 20.

DATA: code(72) OCCURS 10,


             prog(8), msg(120), lin(3), wrd(10), off(3).



APPEND 'PROGRAM SUBPOOL.'


             TO code.


APPEND 'FORM SUM_DATA.'


             TO code.


APPEND

P_DATA

             TO code.
APPEND 'ENDFORM.'


             TO code.



GENERATE SUBROUTINE POOL code NAME prog


MESSAGE msg


LINE lin


WORD wrd


OFFSET off.






IF sy-subrc <> 0.


  WRITE: / 'Subroutine POOL 생성에 실패하였습니다.'.


ELSE.


  WRITE: / 'Subroutine POOL 이름 : ', prog.


  SKIP 2.


  PERFORM SUM_DATA IN PROGRAM (prog).



ENDIF.

사이트운영 : http://sapjoy.co.kr  

저         서 : Easy ABAP, Plus ABAP

경         험 : SAP ABAP Tuning, SAP SCM(SD/PP/QM/PM/WM/APO)

자         격 : SAP SD / PP  / SAP ABAP Certification 등

메         일 : sapjoy@naver.com