2种程序创建程序的方法

来源：互联网发布：电脑看电影软件编辑：程序博客网时间：2024/05/29 11:33

第一种，程序内部运行，不新建

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。