ABAP Dynamic Calling a Subroutine from Other Program

 

REPORT ZPGM.

PERFORM SUBROUT1.

PERFORM SUBROUT2.

 

*&———————————————————————*

*&      Form  SUBROUT1

*&———————————————————————*

 

 

FORM SUBROUT1 .

WRITE :/ ‘SUBROUTINE 1 OF PROGRAM ZPGM’.

ENDFORM.                    ” SUBROUT1

*&———————————————————————*

*&      Form  SUBROUT2

*&———————————————————————*

 

 

FORM SUBROUT2 .

WRITE :/ ‘SUBROUTINE 2 OF PROGRAM ZPGM’.

ENDFORM.                    ” SUBROUT2

 

**************************************************

REPORT ZPGM1.

DATA : PROGRAM_NAME TYPE C LENGTH 5 VALUE ‘ZPGM’.

DATA : SUB_NAME TYPE C LENGTH 8 VALUE ‘SUBROUT1’.

 

PERFORM (SUB_NAME) IN PROGRAM (PROGRAM_NAME) IF FOUND.

  SUB_NAME = ‘SUBROUT2’.

PERFORM (SUB_NAME) IN PROGRAM (PROGRAM_NAME) IF FOUND.

 

******************OUTPUT *******************

SUBROUTINE 1 OF PROGRAM ZPGM

SUBROUTINE 2 OF PROGRAM ZPGM

Serkan AKKAVAK

Computer Engineer BSc

Head of SAP & Software Department

Contact : serkurumsal@yandex.com