Recuperar nombre de programa (repid) cuando se lanzan varias llamadas en la ejecución.

Código:

DATA lv_repid TYPE sy-repid.
FIELD-SYMBOLS: <f_simbol> TYPE any.
* Miramos que programa esta llamando
ASSIGN (‘(SAPMSSYD)%_CALLER_PROGRAM_NAME’) TO <f_simbol>.
IF sy-subrc EQ 0.
FREE lv_repid.
MOVE <f_simbol> TO lv_repid.
ENDIF.