REPORT Z05_026 .
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.
댓글 2
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
490 | REPORT z04_014 | sapjoy | 2007.05.21 | 2216 |
489 | REPORT Z04_017 | sapjoy | 2007.05.21 | 2233 |
488 | REPORT Z04_018 | sapjoy | 2007.05.21 | 2109 |
487 | REPORT Z04_019 [2] | sapjoy | 2007.05.21 | 2476 |
486 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
485 | REPORT Z05_002 | sapjoy | 2007.05.21 | 2172 |
484 | REPORT z05_005 | sapjoy | 2007.05.21 | 2160 |
483 | REPORT Z05_003 | sapjoy | 2007.05.21 | 2406 |
482 | REPORT Z05_007 [2] | sapjoy | 2007.05.26 | 2192 |
481 | REPORT Z05_008 [2] | sapjoy | 2007.05.27 | 2611 |
480 | REPORT Z05_009 [2] | sapjoy | 2007.05.28 | 2149 |
479 | REPORT Z05_010 [1] | sapjoy | 2007.05.28 | 2122 |
478 | REPORT Z05_011 | sapjoy | 2007.05.28 | 2159 |
477 | REPORT Z05_011 | sapjoy | 2007.05.28 | 2066 |
476 | REPORT Z05_021 | sapjoy | 2007.05.28 | 2087 |
475 | REPORT Z05_022 | sapjoy | 2007.05.28 | 2136 |
474 | Include Z_SHARED_AREA | sapjoy | 2007.05.28 | 2528 |
473 | REPORT Z05_025 | sapjoy | 2007.05.28 | 2564 |
» | REPORT Z05_026 [2] | sapjoy | 2007.05.28 | 2428 |
471 | REPORT z05_028 | sapjoy | 2007.05.29 | 2276 |
여기메서 서브루틴 폴 이름을 생성하고,,, 그 서브루틴을 어기서 검색하는지 알려주면은 감사하겠습니다.
ㅠㅠ`쪽지 부탁합니다.