[ABAP] 동적 Subroutine - generate

DATA: it_source TYPE TABLE OF string,
      program TYPE string ,
    mesg TYPE string.

APPEND 'PROGRAM subpool.' TO it_source.
APPEND 'FORM subr.' TO it_source.
APPEND 'WRITE / ''This is dynamic subroutine''.' TO it_source.
APPEND 'ENDFORM.' TO it_source.

GENERATE SUBROUTINE POOL it_source NAME program MESSAGE mesg.

 IF sy-subrc = 0.
  PERFORM subr IN PROGRAM (PROGRAM).
 ENDIF.