REPORT Z02_016 .
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 / ''Hello, I am the temporary subroutine DYN1!''.'
TO CODE.
APPEND 'ENDFORM.'
TO CODE.
APPEND 'FORM DYN2.'
TO CODE.
APPEND
'WRITe / ''Hello, I am the temporary subroutine DYN2!''.'
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: / 'Error during generation in line', LIN,
/ MSG,
/ 'Word:', WRD, 'at offset', OFF.
ELSE.
WRITE: / 'The name of the subroutine pool is', PROG.
SKIP 2.
PERFORM DYN1 IN PROGRAM (PROG).
SKIP 2.
PERFORM DYN2 IN PROGRAM (PROG).
ENDIF.
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 / ''Hello, I am the temporary subroutine DYN1!''.'
TO CODE.
APPEND 'ENDFORM.'
TO CODE.
APPEND 'FORM DYN2.'
TO CODE.
APPEND
'WRITe / ''Hello, I am the temporary subroutine DYN2!''.'
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: / 'Error during generation in line', LIN,
/ MSG,
/ 'Word:', WRD, 'at offset', OFF.
ELSE.
WRITE: / 'The name of the subroutine pool is', PROG.
SKIP 2.
PERFORM DYN1 IN PROGRAM (PROG).
SKIP 2.
PERFORM DYN2 IN PROGRAM (PROG).
ENDIF.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
411 | REPORT z18_011 [1] | sapjoy | 2007.03.07 | 2326 |
410 | report zunicode_019. | sapjoy | 2008.11.21 | 2323 |
409 | report zunicode_006. | sapjoy | 2008.11.21 | 2317 |
408 | REPORT Z07_033 | sapjoy | 2006.12.08 | 2317 |
407 | REPORT z15_017 | sapjoy | 2007.01.29 | 2316 |
406 | REPORT Z15_039 | sapjoy | 2007.02.05 | 2315 |
405 | REPORT z18_027 | sapjoy | 2007.04.09 | 2315 |
404 | REPORT Z17_022 | sapjoy | 2007.02.21 | 2315 |
403 | REPORT z03_026 | sapjoy | 2007.05.15 | 2313 |
402 | REPORT z18_024 | sapjoy | 2008.04.21 | 2310 |
401 | REPORT Z13_002 | sapjoy | 2007.01.03 | 2310 |
400 | REPORT Z07_031 [2] | sapjoy | 2006.12.08 | 2309 |
399 | REPORT Z03_001 | sapjoy | 2007.05.10 | 2308 |
398 | REPORT Z17_012 | sapjoy | 2007.02.12 | 2305 |
397 | REPORT Z04_013 | sapjoy | 2008.04.14 | 2304 |
396 | report zunicode_016. | sapjoy | 2008.11.21 | 2301 |
395 | report zsalv_014 | sapjoy | 2010.08.20 | 2299 |
394 | REPORT z17_22 | sapjoy | 2012.08.01 | 2294 |
393 | report zsalv_010 | sapjoy | 2010.08.20 | 2294 |
» | REPORT Z02_016 | sapjoy | 2007.02.27 | 2294 |