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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
130 | REPORT z18_012 [1] | sapjoy | 2007.03.09 | 2404 |
129 | REPORT Z15_045 | sapjoy | 2007.03.08 | 2388 |
128 | REPORT z18_011 [1] | sapjoy | 2007.03.07 | 2326 |
127 | REPORT z18_008 | sapjoy | 2007.03.07 | 2359 |
126 | REPORT z18_007 | sapjoy | 2007.03.07 | 2206 |
125 | REPORT z18_006 | sapjoy | 2007.03.06 | 2423 |
124 | REPORT z18_005 | sapjoy | 2007.03.06 | 2157 |
123 | REPORT z18_004 [1] | sapjoy | 2007.03.05 | 2348 |
122 | REPORT z18_003 | sapjoy | 2007.03.05 | 3281 |
121 | REPORT Z18_002 | sapjoy | 2007.03.05 | 3082 |
120 | Z18_001_PBO | sapjoy | 2007.03.02 | 2585 |
119 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
» | REPORT Z02_016 | sapjoy | 2007.02.27 | 2294 |
117 | Z17_ZSFLIGHT | sapjoy | 2007.02.26 | 2413 |
116 | REPORT Z17_028 | sapjoy | 2007.02.26 | 2937 |
115 | REPORT Z09_013 | sapjoy | 2007.02.23 | 2243 |
114 | REPORT Z17_020. [2] | sapjoy | 2007.02.23 | 2185 |
113 | REPORT z17_025 | sapjoy | 2007.02.22 | 2202 |
112 | REPORT Z17_020 | sapjoy | 2007.02.22 | 2172 |
111 | REPORT Z17_000. | sapjoy | 2007.02.22 | 2419 |