Search on this Website

Sunday, June 13, 2010

Sample program for generating a persistent program

*&---------------------------------------------------------------------*
REPORT CHAP2504.
* Internal table for source code, field for name of temporary program
DATA: SOURCE_TABLE(72) OCCURS 10 WITH HEADER LINE,
PROGRAM_NAME LIKE SY-CPROG.

* Building the source code
APPEND 'report zgenprog.' TO SOURCE_TABLE.
APPEND 'write ''I am a generated program''.' TO SOURCE_TABLE.
* Insert the report, if necessary
READ REPORT 'zgenprog' INTO SOURCE_TABLE.
IF SY-SUBRC NE 0.
APPEND 'report zgenprog.' TO SOURCE_TABLE.
APPEND 'write ''Here is zgenprog''.' TO SOURCE_TABLE.
INSERT REPORT 'zgenprog' FROM SOURCE_TABLE.
ENDIF.
* Execute the report
SUBMIT ZGENPROG AND RETURN.

No comments: