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 Z07_05. | sapjoy | 2012.07.30 | 943 |
89 | REPORT Z16_02. | sapjoy | 2012.08.01 | 939 |
88 | REPORT z15_11. | sapjoy | 2012.08.01 | 937 |
87 | REPORT z17_11 . | sapjoy | 2012.08.01 | 933 |
86 | REPORT z14_04. | sapjoy | 2012.08.01 | 932 |
85 | REPORT z12_12. | sapjoy | 2012.07.30 | 932 |
84 | REPORT Z12_19 | sapjoy | 2012.07.30 | 931 |
83 | REPORT z05_05. | sapjoy | 2012.07.30 | 931 |
82 | REPORT z12_10. | sapjoy | 2012.07.30 | 927 |
81 | REPORT Z12_20. | sapjoy | 2012.07.30 | 926 |
80 | REPORT z05_09. | sapjoy | 2012.07.30 | 924 |
79 | REPORT Z05_08. | sapjoy | 2012.07.30 | 923 |
78 | REPORT Z14_20. | sapjoy | 2012.08.01 | 921 |
77 | REPORT z12_21. | sapjoy | 2012.07.30 | 920 |
76 | REPORT z05_26. | sapjoy | 2012.07.30 | 918 |
75 | REPORT z12_08. | sapjoy | 2012.07.30 | 915 |
74 | REPORT z05_02. | sapjoy | 2012.07.30 | 914 |
73 | REPORT z05_04. | sapjoy | 2012.07.30 | 913 |
72 | REPORT z05_11. | sapjoy | 2012.07.30 | 912 |
71 | REPORT z14_16. [1] | sapjoy | 2012.08.01 | 910 |