Working with Screen Painter

...Previous

Click on the middle icon  dictionary / program fields window. Or F6. 

 

Following screen appears: 

 Enter the table name in the table field name.

Click on get from dictionary. 

 

Select the required fields from MARA table from dictionary. Click on OK or continue. 

 

 

After placing the required fields, you can view the below screen. 

 

Create the push button from the toolbox. 

 

Select the pushbutton, drag and drop the button onto the screen. 

Create the other required buttons in the same procedure mentioned above and assign the name, text, and function code for each one. 

 

After creating the screen click on save check and activate. 

 press flow logic button.

 

Click on tab Element List enter OK_CODE. 

 

Paste the below Code in created z program created earlier: 

*&-------------------------------------------------------------------*
*& Report  ZDEMO_SCREEN_PAINTER
*&
*&-------------------------------------------------------------------*
*& Demo for Screen Painter.
*&                      By  Vikramchellappa.
*&-------------------------------------------------------------------*
REPORT  ZDEMO_SCREEN_PAINTER.
******************************************************************
* TABLE DECLARATIONS.
******************************************************************
  TABLES: MARA.
******************************************************************
* DATA DECLARATIONS.
*****************************************************************
DATA:  MATNR TYPE MARA-MATNR,
       ERSDA TYPE MARA-ERSDA,
       ERNAM TYPE MARA-ERNAM,
       MTART TYPE MARA-MTART,
       MATKL TYPE MARA-MATKL,
       DISPLAY TYPE C,
       SAVE TYPE C,
       DELETE TYPE C,
       CLEAR TYPE C,
       EXIT TYPE C,
       OK_CODE LIKE SY-UCOMM.
*****************************************************************
* CALLING SCREEN.
*****************************************************************
CALL SCREEN 100.
*&--------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&--------------------------------------------------------------*
*       text
*--------------------------------------------------------------*
MODULE STATUS_0100 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 MTART MATKL FROM MARA 
           INTO (MARA-ERSDA, MARA-ERNAM, MARA-MTART, MARA-MATKL) 
      WHERE MATNR = MARA-MATNR.
    WHEN 'CLEAR'.
      CLEAR MARA.
  ENDCASE.
ENDMODULE.                 " STATUS_0100  OUTPUT

Output:-

 Enter Material number On Material Field. Click on Display. 

 

Material Information is displayed as shown below: 

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