INSERT, DELETE AND MODIFY USING PUSHBUTTON CLASSICAL REPORT

*&---------------------------------------------------------------------*
*& Report  ZSS_TEST_010
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zss_test_010.
TABLES: zmat,sscrfields.
TYPES: BEGIN OF ty_zmat,
         matnr TYPE matnr,
         ernam TYPE ernam,
         pstat TYPE pstat_d,
         maktx TYPE maktx,
       END OF ty_zmat.
DATA: it_zmat TYPE STANDARD TABLE OF ty_zmat INITIAL SIZE 0,
      wa_zmat TYPE ty_zmat,
      lv_matnr TYPE matnr.
*      rucomm TYPE sy-ucomm.
PARAMETERS:p_matnr TYPE matnr OBLIGATORY,
           p_ernam TYPE ernam OBLIGATORY,
           p_pstat TYPE pstat_d OBLIGATORY,
           p_maktx TYPE maktx OBLIGATORY.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE title1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 10(8) text_001 USER-COMMAND com1.
SELECTION-SCREEN PUSHBUTTON 20(8) text_002 USER-COMMAND com2.
SELECTION-SCREEN PUSHBUTTON 30(8) text_003 USER-COMMAND com3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1 .

INITIALIZATION.
  text_001 = 'INSERT'.
  text_002 = 'DELETE'.
  text_003 = 'MODIFY'.

AT SELECTION-SCREEN.
  wa_zmat-matnr = p_matnr.
  wa_zmat-ernam = p_ernam.
  wa_zmat-pstat = p_pstat.
  wa_zmat-maktx = p_maktx.

  CASE sy-ucomm .
    WHEN 'COM1'."Insert
      INSERT zmat FROM wa_zmat.
    WHEN 'COM2'."Delete
      DELETE zmat FROM wa_zmat.
    WHEN 'COM3'."Modify
      MODIFY zmat from wa_zmat.
    WHEN OTHERS.
  ENDCASE.