Generazione di Subroutine Pool

*----------------------------------------------------------------------*
REPORT zfabio_subpool.

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
DATA: itab(72) OCCURS 0,
      zname(8) TYPE C.

*----------------------------------------------------------------------*
* PROGRAM BODY                                                         *
*----------------------------------------------------------------------*
START-OF-SELECTION.

  CLEAR: itab, itab[].
  APPEND 'PROGRAM SUBPOOL.' TO itab.
  APPEND 'FORM prova.' TO itab.
  APPEND '*scrivi qui il codice da provare' TO itab.
  APPEND 'ENDFORM.' TO itab.

  CALL FUNCTION 'TERM_CONTROL_EDIT'
    EXPORTING
      TITEL          = 'ABAP Code'
    TABLES
      TEXTLINES      = itab
    EXCEPTIONS
      USER_CANCELLED = 1
      OTHERS         = 2.
  IF SY-SUBRC <> 0.
    WRITE 'Elaborazione annullata!'.
  ELSE.
    GENERATE SUBROUTINE POOL itab NAME zname.
    IF SY-SUBRC = 0.
      PERFORM prova IN PROGRAM (zname).
    ELSE.
      WRITE 'Errore nel codice :-('.
    ENDIF.
  ENDIF.

END-OF-SELECTION.
  EXIT.

*----------------------------------------------------------------------*