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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
90 | REPORT Z15_036 | sapjoy | 2007.02.05 | 2214 |
89 | REPORT Z15_035 | sapjoy | 2007.02.05 | 2162 |
88 | REPORT Z15_034 | sapjoy | 2007.02.05 | 2079 |
87 | REPORT Z15_033 | sapjoy | 2007.02.05 | 2987 |
86 | REPORT z15_032 | sapjoy | 2007.02.05 | 2578 |
85 | REPORT z15_031 | sapjoy | 2007.02.05 | 2437 |
84 | REPORT Z15_028 | sapjoy | 2007.02.01 | 2509 |
83 | REPORT Z15_027 . | sapjoy | 2007.02.01 | 2715 |
82 | REPORT Z15_026 | sapjoy | 2007.01.31 | 2758 |
81 | REPORT Z15_005 | sapjoy | 2007.01.31 | 2503 |
80 | REPORT z15_024 | sapjoy | 2007.01.30 | 2239 |
79 | REPORT z15_023 | sapjoy | 2007.01.30 | 2484 |
78 | REPORT Z15_022. | sapjoy | 2007.01.30 | 2494 |
77 | REPORT z15_021 | sapjoy | 2007.01.29 | 2452 |
76 | REPORT Z15_020 | sapjoy | 2007.01.29 | 2524 |
75 | REPORT z15_017 | sapjoy | 2007.01.29 | 2316 |
74 | REPORT z15_016 | sapjoy | 2007.01.29 | 2396 |
73 | REPORT z15_014 | sapjoy | 2007.01.26 | 2625 |
72 | REPORT z_15_012 | sapjoy | 2007.01.26 | 2176 |
71 | REPORT Z_15_011 | sapjoy | 2007.01.26 | 2170 |