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.