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 | 11770 |
305 | [EASY ABAP 2.0] 예제 16-3 질문 | jtw8983 | 2024.01.04 | 50 |
304 |
z13_03 에러 문의 합니다.
![]() | 쌥맨 | 2023.01.16 | 83 |
303 | SAP Fiori 3 소개 자료(한글) | 노을별 | 2022.01.13 | 222 |
302 |
106page 예제 3-3 질문..
![]() | 김주형 | 2020.07.22 | 232 |
301 |
이지아밥 359page 혹시 t코드 아시나요? generic foreign key attached file confim please
[1] ![]() | 리얼오버 | 2021.10.31 | 253 |
300 | access key 발급받는법 | 실버켓 | 2019.11.26 | 300 |
299 | 원페이퍼 권한 문의드립니다. [2] | 지구별원숭이 | 2019.08.02 | 340 |
298 | 134p 3-6-2 [1] | baishui | 2013.06.14 | 728 |
297 | 223page 5-3-1 [1] | baishui | 2013.07.02 | 758 |
296 | 229pgae 5-3-4 | baishui | 2013.07.02 | 763 |
295 | 150p 4-2-1 [3] | baishui | 2013.06.14 | 768 |
294 | 234page 예제 5-4-1 | baishui | 2013.07.03 | 783 |
293 | 171 page 예제 4-2-9 [3] | baishui | 2013.06.17 | 794 |
292 | p176 4-2-12 [3] | baishui | 2013.06.18 | 818 |
291 | p196 4-3-2 질문입니다 [1] | baishui | 2013.06.19 | 819 |
290 | 질문드립니다~ | kanel | 2013.05.21 | 820 |
289 | p218 5-2-3 [1] | baishui | 2013.06.21 | 823 |
288 | 216P 5-2-2 | baishui | 2013.06.21 | 827 |
287 | p198 4-3-3 질문이요 [2] | baishui | 2013.06.19 | 858 |
286 | 164page 예제 4-2-8 [1] | baishui | 2013.06.17 | 859 |
안녕하세요. 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.