Enqueue and dequeue in SAP ABAP

Enqueue - It is used to lock the database while updating the database. Because values are not overlapped.

Dequeue - It is used to unlock the database after updating the database.


In This scenario I am updating the date in database TVARVC.




Report

    REPORT zab_rp_enqueue_dequeue.

    PARAMETERS: p_date TYPE sy-datum.
    CONSTANTS: g_c_po_date TYPE string VALUE 'ZAB_DATE1'.
    DATA(lv_year) = p_date+0(4).
    DATA(lv_mon) = p_date+4(2).
    DATA(lv_date) = p_date+6(2).
    CONCATENATE lv_year lv_mon lv_date INTO DATA(lv_final).
    CALL FUNCTION 'ENQUEUE_E_TABLE'
      EXPORTING
        mode_rstable   = 'E'
        tabname        = 'TVARVC'
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 3.

     IF sy-subrc = 0.

      UPDATE tvarvc SET low = lv_final WHERE name = g_c_po_date.
      IF sy-subrc = 0.
        MESSAGE  TEXT-001 TYPE 'S'.   " Date is updated into database
      ENDIF.
      CALL FUNCTION 'DEQUEUE_E_TABLE'
        EXPORTING
          mode_rstable = 'E'
          tabname      = 'TVARVC'.

      ELSE.
          MESSAGE TEXT-002 TYPE 'E'.  " Date is not updated into database.
      ENDIF.

Input

Output


Checking

    * Goto SE11 T-code.

    * Give table name TVARVC.

    * Execute and give name 'ZAB_DATE1'.


******************************Thank You***************************

Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Add custom tab to me51n at item level in ABAP

Image
                                        * Customer exit for ME51N is -  MEREQ001                                         * To implement the customer exit in CMOD. Step 1: Goto T-code: CMOD. Step 2: Give project name and click on create. Step 3: Give short text and click on Enhancement assignments . Press enter and click on save. Step 4: Click on components . Double click on CI_EBANDB include and create the include. Step5: Give your field names (If your enhancement category can't be enhanced) as per our requirement. Otherwise click on append structure and create. Field names must started with ZZ. Step 6: Save and activate the structure. Step 7: Double click on C_EBANDBX and create structure like this. Step 7: Double click on screen ...
Read more