DATA : code(72) OCCURS 10, prog(8), msg(120), lin(3), wrd(10), off(3).
APPEND 'program subpool.' TO code.
APPEND 'form dyn1.' TO code.
APPEND 'write / "동적인 subroutine 1".' TO code.
APPEND 'endform.' TO code.
APPEND 'form dyn2' TO code.
APPEND 'write / "동적인 subroutine 2".' 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 dyn1 IN PROGRAM (prog).
SKIP 2.
PERFORM dyn2 IN PROGRAM (prog).
ENDIF.
결과값 :
subroutine pool 생성에 실패하였습니다.
머가 문제일까요????? ㅜ.ㅜ
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | e-abap에서 출간된 책 소개 [8] | 양키 | 2013.01.31 | 11756 |
265 | 828p, 예제 15-4 [2] | 김효상 | 2013.10.16 | 1931 |
264 | ABAP Dictionary 질문입니다! [2] | jjijjel | 2013.10.10 | 1889 |
263 | ABAP2.0 에 있는 Z18-02 예제 소스 [1] | 난초 | 2013.08.10 | 1808 |
262 | 챕터01에 Package Create관련 질문드립니다. [1] | 우우우후후 | 2013.07.28 | 1737 |
261 | Dialog program 과 Module pool program 의 차이가 뭐에요? [1] | ㅇㅈㅇ | 2013.07.24 | 1893 |
260 | 273p 5-26 [2] | baishui | 2013.07.24 | 1551 |
259 | 269p 5-24 [1] | baishui | 2013.07.23 | 1436 |
258 | 221p 5-2 [4] | baishui | 2013.07.16 | 1614 |
257 | 191p 4-16 [1] | baishui | 2013.07.12 | 1296 |
256 | 190p 4-15 [1] | baishui | 2013.07.12 | 1151 |
255 | 188p 4-14 | baishui | 2013.07.12 | 1109 |
254 | 186p 4-13 | baishui | 2013.07.12 | 1060 |
253 | 182page 4-10 | baishui | 2013.07.12 | 1011 |
252 | 181페이지 4-9 [1] | baishui | 2013.07.12 | 994 |
251 | 172p 4-4 [2] | baishui | 2013.07.10 | 1065 |
250 | 147p 3-21 [2] | baishui | 2013.07.10 | 922 |
249 | 130P 3-15 [1] | baishui | 2013.07.09 | 882 |
248 | 127 3-13 | baishui | 2013.07.09 | 2626 |
247 | 119page 3-8 [1] | baishui | 2013.07.09 | 938 |
246 | 126page 3-12 [2] | baishui | 2013.07.09 | 1635 |
안녕하세요. EASY ABAP2.0 아래 프로그램을 이용해서 테스트 해보시기 바랍니다.
REPORT Z04_14.
DATA: gt_code(72) OCCURS 10,
gv_prog(8),
gv_msg(120).
APPEND 'PROGRAM SUBPOOL.' TO gt_code.
APPEND 'FORM dynamic_subr.' TO gt_code.
APPEND 'WRITE / ''Dynamic Subroutine is called''.' TO gt_code.
APPEND 'ENDFORM.' TO gt_code.
GENERATE SUBROUTINE POOL gt_code NAME gv_prog
MESSAGE gv_msg.
IF sy-subrc <> 0.
WRITE: / 'Subroutine POOL is failed'.
ELSE.
WRITE: / 'Subroutine POOL name : ', gv_prog.
SKIP 1.
PERFORM dynamic_subr IN PROGRAM (gv_prog).
ENDIF.