REPORT  Z04_12.

DATA gt_tab TYPE STANDARD TABLE OF string.

gt_tab = VALUE #(
  ( `PROGRAM subpool.`                         )
  ( `DATA gt_emplist TYPE TABLE OF zemplist.`  )

  ( `FORM get_data.`                            )
  ( `  SELECT *` &
    `         FROM ZEMPLIST` &
    `         INTO TABLE @gt_emplist.`         )
  ( `ENDFORM.`                                 )

  ( `FORM display_data.`                       )
  ( `  cl_demo_output=>display( gt_emplist ).` )
  ( `ENDFORM.`                                )
 ).

GENERATE SUBROUTINE POOL gt_tab NAME DATA(gv_prog)
       MESSAGE                  DATA(gv_msg)
       SHORTDUMP-ID             DATA(gv_id).

IF sy-subrc = 0.
  PERFORM get_data IN PROGRAM (gv_prog) IF FOUND.
  PERFORM display_data IN PROGRAM (gv_prog) IF FOUND.
ELSEIF sy-subrc = 4.
  MESSAGE gv_msg TYPE 'I'.
ELSEIF sy-subrc = 8.
  MESSAGE gv_id TYPE 'I'.
ENDIF.