#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.