REPORT demo_mod_tech_perform_dyn .
DATA: progname(24) TYPE c VALUE 'DEMO_MOD_TECH_FORMPOOL_1',
subrname(8) TYPE c.
subrname = 'SUB1'.
PERFORM (subrname) IN PROGRAM (progname) IF FOUND.
subrname = 'SUB2'.
PERFORM (subrname) IN PROGRAM (progname) IF FOUND.
PERFORM addit(demo_mod_tech_formpool). 调用Report demo_mod_tech_formpool中的addit方法
DATA: progname(24) TYPE c VALUE 'DEMO_MOD_TECH_FORMPOOL_1',
subrname(8) TYPE c.
subrname = 'SUB1'.
PERFORM (subrname) IN PROGRAM (progname) IF FOUND.
subrname = 'SUB2'.
PERFORM (subrname) IN PROGRAM (progname) IF FOUND.
PERFORM addit(demo_mod_tech_formpool). 调用Report demo_mod_tech_formpool中的addit方法