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 | 11760 |
285 | 158ㅔ 4-2-5 [2] | baishui | 2013.06.17 | 865 |
284 | p194 4-3-1 [2] | baishui | 2013.06.18 | 876 |
283 | 130P 3-15 [1] | baishui | 2013.07.09 | 882 |
282 | 114p 예제 3-3-2 [3] | baishui | 2013.06.12 | 886 |
281 | 151p 4-2-2 [1] | baishui | 2013.06.17 | 890 |
280 | 147p 3-21 [2] | baishui | 2013.07.10 | 922 |
» | 238p 5-6-1 [1] | baishui | 2013.07.03 | 927 |
278 | 74p 2-16 [1] | baishui | 2013.07.05 | 930 |
277 | 119page 3-8 [1] | baishui | 2013.07.09 | 938 |
276 | EASY ABAP 책에관련하여 문의드립니다.. [1] | Danielk | 2013.03.20 | 948 |
275 | [질문] sap windows gui 7.3 을 설치했는데요... [1] | 철미니 | 2013.05.23 | 971 |
274 | 교제 507쪽이요~(데이터참조) [1] | 뿌앙뿌앙 | 2013.03.22 | 972 |
273 | 181페이지 4-9 [1] | baishui | 2013.07.12 | 994 |
272 | p106 예제 3-2-5 [2] | baishui | 2013.06.11 | 1000 |
271 | 예제 3-2 문의드립니다. [1] | 밥퍼줘 | 2018.03.08 | 1002 |
270 | 182page 4-10 | baishui | 2013.07.12 | 1011 |
269 | easy abap 2.0교재 261~262쪽 질문드립니다. [1] | lookie87 | 2013.02.07 | 1031 |
268 | easy abap 2.0 p.690에 table control에서 궁금한거 있습니다. [2] | 싸밥아밥 | 2013.04.29 | 1034 |
267 | 186p 4-13 | baishui | 2013.07.12 | 1060 |
266 | 172p 4-4 [2] | baishui | 2013.07.10 | 1065 |
안녕하세요. 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.