REPORT  z04_10.

DATA: gv_first(10)     TYPE c VALUE 'Dynamic',
       gv_second(10)  TYPE c  VALUE 'CALL',
       gv_result(20)    TYPE c.

DATA: gv_pname(8)    TYPE c VALUE 'Z04_08',
       gv_subname(20) TYPE c VALUE 'CONCATE_STRING'.
 

TRANSLATE GV_PNAME TO UPPER CASE.

PERFORM (gv_subname) IN PROGRAM (gv_pname) IF FOUND
                            USING gv_first gv_second
                            CHANGING gv_result.

WRITE : gv_result.