The ABAP

Changing label of push button dynamically in module pool programming

Step 1 : Log on SAP and go to SE38 transaction, provide name starting with ‘Z’ or ‘Y’ (Here ‘ZRUNTIME_LABEL_CHANGE’ ). and click on create button (F5) .



Step 2 : Provide Title with suitable description, Type as ‘Module Pool’ , Status as ‘Test Program’ and save it as local ( Enter + F7 )

Step 3 : Click on Display Object List push button (Ctrl + Shift + F5)



Step 4 : Right Click on program name and select Create->Screen

Step 5 : Provide screen number. Here 9000

Step 6 : Enter description and save it

Step 7 : Design screen as below

Step 8 : Double click on screen number 9000 on right side, do uncomment code below PAI and double

Click on the module name to create it.




Step 9 : Copy the below code and paste it between module and endmodule.



DATA text(30) value ''.
  DATA : repid TYPE sy-repid.
  DATA : f1 TYPE TABLE OF trmsg WITH HEADER LINE.
  DATA : dynp_header   TYPE d020s,

         tdynp_fields  TYPE TABLE OF d021s,
         tdynp_logic   TYPE TABLE OF d022s,
         tdynp_matchc  TYPE TABLE OF d023s,

         dynp_fields  TYPE d021s,
         dynp_logic   TYPE d022s,
         dynp_matchc  TYPE d023s.

  DATA: BEGIN OF dynproname,
          prog LIKE d020s-prog,
          dnum LIKE d020s-dnum,
        END OF dynproname.


  CASE sy-ucomm.
    WHEN 'BUTTON'.
      repid = sy-repid.

      CLEAR: dynp_header, dynp_fields, dynp_logic, dynp_matchc.
      REFRESH: tdynp_fields, tdynp_logic, tdynp_matchc.

      dynproname-prog = repid.
      dynproname-dnum = '9000'.

      IMPORT DYNPRO dynp_header tdynp_fields
                    tdynp_logic  tdynp_matchc ID dynproname.

      LOOP AT tdynp_fields INTO dynp_fields
           WHERE fnam = 'BUTTON'.
        dynp_fields-stxt = text.
        dynp_fields-leng = 20.
        MODIFY  tdynp_fields FROM dynp_fields.
      ENDLOOP.

      EXPORT DYNPRO dynp_header tdynp_fields
                    tdynp_logic  tdynp_matchc ID dynproname.

      GENERATE DYNPRO dynp_header tdynp_fields
                    tdynp_logic  tdynp_matchc ID dynproname MESSAGE f1 LINE f1 WORD f1 .
  ENDCASE.

where the variable text stores the label for the push button.

Step 10 : Right click on program name and click create->transaction



Step 11 : Give description and Click OK.



Step 12 : Enter your program name as Program and 9000 as screen number. Make sure you have selected all check boxes under GUI support. Save it




Step 13 : Double click on program name on right side, do right click and select ‘Activate’ (Ctrl+F3) to activate the whole program. Now Execute it.

OUTPUT :


Enter any text in input field and press the push button nearby