原文出自ZZP的ABAP博客:http://hi.baidu.com/zzp0805/item/97d540be9572fb48bb0e1215
第一种,程序内部运行,不新建
DATA: CODE TYPE TABLE OF STRING, PROG TYPE PROGRAM, MSG(120) TYPE C, LIN(10) TYPE C, WRD(10) TYPE C, OFF(3) TYPE C. APPEND 'PROGRAM SUBPOOL.' TO CODE. APPEND 'FORM DYN1.' TO CODE. APPEND 'WRITE / ''HELLO, I AM A TEMPORARY SUBROUTINE!''.' 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. ENDIF. PERFORM DYN1 IN PROGRAM (PROG).
新的program在这个程序内部运行。
第二种,程序创建新的程序
DATA: code TYPE TABLE OF string. CONSTANTS: rep(40) VALUE 'ZZP_NOTHING_JUST_TEST3'. APPEND 'PROGRAM ZZP_NOTHING_JUST_TEST3.' TO code. APPEND 'WRITE / ''Hello, I am dynamically created!''.' TO code. INSERT REPORT rep FROM code. SUBMIT (rep) AND RETURN. READ REPORT rep INTO code. APPEND 'WRITE / ''and I am a dynamic extension! 已经创建程序:ZZP_NOTHING_JUST_TEST3''.' TO code. INSERT REPORT rep FROM code. GENERATE REPORT rep. SUBMIT (rep) AND RETURN.
这里创建了新的程序:ZZP_NOTHING_JUST_TEST3。