Mastering ABAP Database Operations: Delete and Update Operations Unveiled

 Welcome back everyone, So we were discussing about Database operations and we saw the practical implementation of insert operation, let’s continue the rest.

2. Delete Operation :-

Requirement :-

  • We will use our previous program, that we used during insert operation.
  • We will delete the matching record based upon order number.
  • Also, I want that when I tick the delete radio button, then the rest of the parameters should be invisible.

Implementation :-

  • Step 1 :- Use At selection screen output event to make sure that, When I tick the delete radio button, the rest of the radio buttons gets invisible.



  • Step 2 :- Write a message in At selection screen event to show that, if the order number does not exist then, a message should be displayed on the selection screen.



  • Step 3 :- Write the delete query in start of selection event.



Code :-

*********************************************
*Start of Program
**********
*Declaring input parameters

PARAMETERS : p_ono TYPE zar_ono OBLIGATORY,
             p_odt TYPE zar_odate,
             p_pm  TYPE zar_pm,
             p_ta  TYPE zar_tc,
             p_cur TYPE zar_cur.

***************************
*Declare radio buttons for database Operations.
PARAMETERS : p_r1 TYPE c RADIOBUTTON GROUP r1 MODIF ID ins,
             p_r2 TYPE c RADIOBUTTON GROUP r1 MODIF ID del,
             p_r3 TYPE c RADIOBUTTON GROUP r1 MODIF ID upd,
             p_r4 TYPE c RADIOBUTTON GROUP r1 DEFAULT 'X' MODIF ID cur.

*******************************************
***Declaring Internal table and work area
DATA : lt_header TYPE TABLE OF zar_order_header,
       ls_header TYPE zar_order_header.

AT SELECTION-SCREEN.
  IF p_r1 = 'X'.
    SELECT * FROM zar_order_header
      INTO TABLE lt_header
      WHERE order_no = p_ono.
    IF sy-subrc EQ 0.
      MESSAGE 'Records exist for the same order nummber' TYPE 'E'.
    ENDIF.
    CLEAR lt_header.
  ENDIF.

  IF p_r2 = 'X'.
    SELECT SINGLE * FROM zar_order_header
      INTO ls_header
      WHERE order_no = p_ono.
    IF sy-subrc NE 0.
      MESSAGE 'order_no does not exist' TYPE 'E'.
    ENDIF.
  ENDIF.

*************************************
*Modifying the Selection Screen for Delete Operation.
AT SELECTION-SCREEN OUTPUT.
  IF p_r2 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'INS' OR screen-group1 = 'UPD' OR screen-group1 = 'CUR'..
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

START-OF-SELECTION.
********************
*Insert Operation
  IF p_r1 = 'X'.
    ls_header-order_no = p_ono.
    ls_header-order_date = p_odt.
    ls_header-payment_mode = p_pm.
    ls_header-total_amount = p_ta.
    ls_header-currency = p_cur.
    APPEND ls_header TO lt_header.
    CLEAR ls_header.
    INSERT zar_order_header FROM TABLE lt_header.
    IF sy-subrc EQ 0.
      MESSAGE 'Records inserted Successfully' TYPE 'S'.
    ENDIF.
  ENDIF.

****************************
*Delete Operation
  IF p_r2 = 'X'.
   ls_header-order_no = p_ono.
   DELETE zar_order_header from ls_header.
   IF sy-subrc eq 0.
     MESSAGE 'Record has been successfully deleted' type 'S'.
   ENDIF.
  ENDIF.
***********
*End of Program
**********************************************************

Execute the Program :-

  • Select the delete radio button, and give a order number, that does not exist in table.



  • Now, give a order number that exist and press F8.



3. Update :-

Requirement :-

  • If user is passing a wrong order number, then we will show a message, that order number does not exist.
  • If user will give correct order number that exist in our table, then we will display the details of that order number, so that user can change/update the details of it.

Implementation :-

  • Step 1 :- Write a select query in At Selection Screen event to validate the order number entered by user is correct or not.



    Also, in else condition if order number is correct, we will display the order details.



  • Step 2 :- Now, data has been fetched into the work area for correct order number, we need to bind it with our parameters, So we will use At Selection screen output event.



  • Step 3 :- Now We have our data in parameters, so user can change it on selection screen.

  • Step 4 :- We will write the update logic on start of selection, so that if user performs any changes, then if he press F8 the changes can be updated.



Code :-

*********************************************
*Start of Program
*****************
*Type structure
TYPES : BEGIN OF ty_data,
          order_date   TYPE zar_odate,
          payment_mode TYPE zar_pm,
          total_amount TYPE zar_tc,
          currency     TYPE zar_cur,
        END OF ty_data.
DATA : ls_data TYPE ty_data.
**********
*Declaring input parameters

PARAMETERS : p_ono TYPE zar_ono OBLIGATORY,
             p_odt TYPE zar_odate,
             p_pm  TYPE zar_pm,
             p_ta  TYPE zar_tc,
             p_cur TYPE zar_cur.

***************************
*Declare radio buttons for database Operations.
PARAMETERS : p_r1 TYPE c RADIOBUTTON GROUP r1 MODIF ID ins,
             p_r2 TYPE c RADIOBUTTON GROUP r1 MODIF ID del,
             p_r3 TYPE c RADIOBUTTON GROUP r1 MODIF ID upd,
             p_r4 TYPE c RADIOBUTTON GROUP r1 DEFAULT 'X' MODIF ID cur.

*******************************************
***Declaring Internal table and work area
DATA : lt_header TYPE TABLE OF zar_order_header,
       ls_header TYPE zar_order_header.

AT SELECTION-SCREEN.
  IF p_r1 = 'X'.
    SELECT * FROM zar_order_header
      INTO TABLE lt_header
      WHERE order_no = p_ono.
    IF sy-subrc EQ 0.
      MESSAGE 'Records exist for the same order nummber' TYPE 'E'.
    ENDIF.
    CLEAR lt_header.
  ENDIF.

  IF p_r2 = 'X'.
    SELECT SINGLE * FROM zar_order_header
      INTO ls_header
      WHERE order_no = p_ono.
    IF sy-subrc NE 0.
      MESSAGE 'order_no does not exist' TYPE 'E'.
    ENDIF.
  ENDIF.

  IF p_r3 = 'X'.
    SELECT SINGLE * FROM zar_order_header
      INTO ls_header
      WHERE order_no = p_ono.
    IF sy-subrc NE 0.
      MESSAGE 'order_no does not exist' TYPE 'E'.
    ELSE.
      SELECT SINGLE order_date payment_mode total_amount currency
        FROM zar_order_header INTO ls_data WHERE order_no = p_ono.
    ENDIF.
  ENDIF.

*************************************
*Modifying the Selection Screen for Delete Operation.
AT SELECTION-SCREEN OUTPUT.
  IF p_r2 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'INS' OR screen-group1 = 'UPD' OR screen-group1 = 'CUR'..
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

***************************
*For Update
  IF p_r3 = 'X'.
    p_odt = ls_data-order_date.
    p_pm = ls_data-payment_mode.
    p_ta = ls_data-total_amount.
    p_cur = ls_data-currency.
  ENDIF.

START-OF-SELECTION.
********************
*Insert Operation
  IF p_r1 = 'X'.
    ls_header-order_no = p_ono.
    ls_header-order_date = p_odt.
    ls_header-payment_mode = p_pm.
    ls_header-total_amount = p_ta.
    ls_header-currency = p_cur.
    APPEND ls_header TO lt_header.
    CLEAR ls_header.
    INSERT zar_order_header FROM TABLE lt_header.
    IF sy-subrc EQ 0.
      MESSAGE 'Records inserted Successfully' TYPE 'S'.
    ENDIF.
  ENDIF.

****************************
*Delete Operation
  IF p_r2 = 'X'.
    ls_header-order_no = p_ono.
    DELETE zar_order_header FROM ls_header.
    IF sy-subrc EQ 0.
      MESSAGE 'Record has been successfully deleted' TYPE 'S'.
    ENDIF.
  ENDIF.
***********
*Update
  IF p_r3 = 'X'.
    ls_header-order_no = p_ono.
    ls_header-order_date = p_odt.
    ls_header-payment_mode = p_pm.
    ls_header-total_amount = p_ta.
    ls_header-currency = p_cur.
    UPDATE zar_order_header FROM ls_header.
    IF sy-subrc EQ 0.
      MESSAGE 'Data Updated' TYPE 'S'.
    ENDIF.
  ENDIF.
**********************
*End of Program
**********************************************************

Let’s execute our program :-

  • Select the update radio button



  • Give a wrong order number which does not exist and press enter.



  • Now, give a correct order number which exist in table and press enter.



  • Now, suppose , I change the date and payment mode and press F8.



    • I got the message data updated.

So, this was all about Classical Report, We will start our next chapter in the next blog.

Thanx a lot for being a part of this wonderful journey.

Location: India

Comments

Post a Comment

Popular posts from this blog

Understanding Different Types of SAP Function Modules: Normal, RFC, and Update

Image
  1. Normal/Regular Function Module :- It can be called inside the system. Here Pass by value + Pass by reference both is fine. 2. RFC Function Modules :- You can call from same system or from another possible. In RFC function module you can only have pass by value. In the same system if you are going to add the DESTINATION NONE’ while calling the RFC then it’ll be called in separate session. 3. UPDATE Function Modules :- This is generally used to update the database record. Update Function Module can be called from the same system. ( Background RFC / trfc / grfc ) This is used to achieve generally the SAP LUW. Some time we use from performance perspective also. When COMMIT WORK gets executed then Update starts getting executed. Important Questions on Update Function Modules :- When Update function Module gets Triggered ? ON COMMIT WORK IF a update function module gets failed, under which transaction we can see that ? OR What is the T-Code for moni
Read more

Unlocking SAP ABAP Secrets: Interactive Classical Reports with GET CURSOR, At User Command, and a Comparison of HIDE Statements

Image
 Welcome back everyone, We were discussing about the interactive classical reports, so let’s continue it. Interactive Classical Reports- GET CURSOR :- In Interactive Classical Reports, GET CURSOR statement is used to create secondary list according to cursor position. The parameter FIELD provides the name of an output field. The parameter VALUE provide the output value. Syntax : GET CURSOR FIELD <lv_field> VALUE <lv_value>. In the above syntax - the field name and field value will be returned in to variables lv_field and lv_value respectively. Requirement :- If you remember, In our last two blog, We have been displaying the order header table in a basic list and order item table in the secondary list. We have used SY-LISEL and HIDE statements to achieve the requirement. Now, we have to use the get CURSOR to achieve the same to same requirement. Code :- ************************************************************* *Start of Program *Declaring Strcutrure
Read more

Mastering ABAP: A Step-by-Step Guide to Function Modules and Groups for Modularized Programming

Image
  Function Modules :- It is a modularization technique. The transaction code to create a function module is SE37. To create a function module, we need to create a function group. Function Group :- Function group is a container for the function modules. The transaction code to create a function group is SE80. A function group can store up to 99 function modules. Requirement :- let’s create a function module for sum of two numbers. 1. Creation of function group :- Step 1 :- Go to SE80 transaction code → Object Navigator. Step 2 :- From the drop down select function group. Step 3 :- Give a name of function group. Step 4 :- press enter. Step 5 :- Click on yes a popup screen will appear. Step 6 :- Give short description → press enter → Assign package and transaction request and press enter. Step 7 :- Right click on function group and click on activate to activate the function group. Step 8 :- You will see two includes, will be added after ac
Read more