Working with Menu Painter

....Previous

To create a Title, Click on Title List. 

Click on create. 

 

Enter the Title Code and Title. Click on continue. 

 

Click on enter and Click on Test. 

 Enter the created Title Code in Title, Click on execute.

Click on Continue.

 Created Title Displayed. 

 Click on Save.

*&---------------------------------------------------------------------*
*& Report  ZMENU_PAINTER
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZMENU_PAINTER.
TABLES: MARA.
DATA:  MATNR TYPE MARA-MATNR,
       ERSDA TYPE MARA-ERSDA,
       ERNAM TYPE MARA-ERNAM,
       DISPLAY TYPE C,
       SAVE TYPE C,
       DELETE TYPE C,
       CLEAR TYPE C,
       EXIT TYPE C,
       OK_CODE LIKE SY-UCOMM.
CALL SCREEN 101.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0101  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0101 OUTPUT.
  SET PF-STATUS 'ZMENU'.
  SET TITLEBAR 'ZMENU_PAINTER'.
  CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'DISPLAY'.
SELECT SINGLE ERSDA ERNAM FROM MARA INTO (MARA-ERSDA, MARA-ERNAM) WHERE MATNR = MARA-MATNR.
    WHEN 'CLEAR'.
      CLEAR MARA.
  ENDCASE.
ENDMODULE.                 " STATUS_0101  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0101  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0101 INPUT.
ENDMODULE.                 " USER_COMMAND_0101  INPUT

 Click on middle Icon .

 Enter MARA in the Table/Fieldname Text Box Then click on Get From Dictionary.

  Select the require fields and click on continue. 

 Insert these boxes on the screen.

You can view like this after placing the boxes.

 

To continue, click here.

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image