#ZDYN_CODE
#
REPORT zdyn_code.
DATA : wlt_code TYPE TABLE OF char256,
wlv_line LIKE LINE OF wlt_code,
wlv_prog TYPE char08,
wlv_msg TYPE char120,
wlv_lin TYPE char03,
wlv_wrd TYPE char10,
wlv_off TYPE char03.
wlv_line = 'PROGRAM SUBPOOL.'.
APPEND wlv_line TO wlt_code.
wlv_line = 'FORM f1.'.
APPEND wlv_line TO wlt_code.
wlv_line = ''.
APPEND wlv_line TO wlt_code.
APPEND wlv_line TO wlt_code.
APPEND wlv_line TO wlt_code.
wlv_line = 'BREAK-POINT.'.
APPEND wlv_line TO wlt_code.
wlv_line = ''.
APPEND wlv_line TO wlt_code.
wlv_line = 'ENDFORM.'.
APPEND wlv_line TO wlt_code.
DO.
EDITOR-CALL FOR wlt_code.
IF sy-subrc = 4.
EXIT.
ENDIF.
GENERATE SUBROUTINE POOL wlt_code NAME wlv_prog
MESSAGE wlv_msg
LINE wlv_lin
WORD wlv_wrd
OFFSET wlv_off.
IF sy-subrc <> 0.
MESSAGE i000(z_interfaces) WITH wlv_lin wlv_msg wlv_wrd wlv_off.
ELSE.
PERFORM f1 IN PROGRAM (wlv_prog).
EXIT.
ENDIF.
ENDDO.