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

*  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 TABLE lt_vbak INTO DATA(lr_vbak) INDEX 2.
IF sy-subrc = 0.
  WRITE: / lr_vbak-vbeln, lr_vbak-erdat,lr_vbak-erzet,lr_vbak-ernam,lr_vbak-auart.
ENDIF.


WRITE: / 'With key value' COLOR 5.
READ TABLE lt_vbak INTO lr_vbak WITH KEY vbeln = '0000000005'.
IF sy-subrc = 0.
  WRITE:/ lr_vbak-vbeln, lr_vbak-erdat,lr_vbak-erzet,lr_vbak-ernam,lr_vbak-auart.
ENDIF.


WRITE: / 'All value' COLOR 5.
LOOP AT lt_vbak INTO lr_vbak.
  WRITE: / lr_vbak-vbeln, lr_vbak-erdat,lr_vbak-erzet,lr_vbak-ernam,lr_vbak-auart.
ENDLOOP.

New Syntax 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.
IF line_exists( lt_vbak[ 2 ] ).
  DATA(lr_vbak) = lt_vbak[ 2 ].
  WRITE: / lr_vbak-vbeln, lr_vbak-erdat,lr_vbak-erzet,lr_vbak-ernam,lr_vbak-auart.
ENDIF.

WRITE: / 'With key value' COLOR 5.
IF line_exists( lt_vbak[ vbeln = '0000000005' ] ).
  lr_vbak = lt_vbak[ vbeln = '0000000005' ].
  WRITE:/ lr_vbak-vbeln, lr_vbak-erdat,lr_vbak-erzet,lr_vbak-ernam,lr_vbak-auart.
ENDIF.

WRITE: / 'All value' COLOR 5.
LOOP AT lt_vbak INTO lr_vbak.
  WRITE: / lr_vbak-vbeln, lr_vbak-erdat,lr_vbak-erzet,lr_vbak-ernam,lr_vbak-auart.
ENDLOOP.

Input


Output



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

Comments

Post a Comment

Popular posts from this blog

Pf status and user command in factory method - OOPS ALV in ABAP

Image
  1. Goto  SE38 . 2. Give  program name  and click on  create . 3. Give  title  and  click on save . 4. Write  code. REPORT  zab_rp_oops_pfstatus_ucomm . TABLES :   ekko , ekpo . TYPES :   BEGIN  OF  ty_ekko ,          ebeln  TYPE  ekko - ebeln ,          bukrs  TYPE  ekko - bukrs ,          bstyp  TYPE  ekko - bstyp ,          bsart  TYPE  ekko - bsart ,         END  OF  ty_ekko . TYPES :   BEGIN  OF  ty_ekpo ,          ebeln  TYPE  ekpo - ebeln ,          ebelp  TYPE  ekpo - ebelp ,          matnr  TYPE  ekpo - matnr ,          werks  TYPE  ekpo - werks ,         END  OF  ty_ekpo . DATA :   lt_ekko  TYPE  TABLE  OF  ty_ekko ,       lr_ekko  TYPE  ty_ekko ,       lt_ekpo  TYPE  TABLE  OF  ty_ekpo ,       lr_ekpo  TYPE  ty_ekpo . DATA :   lo_salv1 TYPE   REF  TO  cl_salv_table ,       lo_salv2  TYPE  REF  TO  cl_salv_table ,       lo_events  TYPE  REF  TO  cl_salv_events_table ,       lo_grid    TYPE  REF  TO  cl_gui_alv_grid ,       lt_rows    TYPE  lvc_t_row ,       lr_rows    TYPE 
Read more

fetch the data from table and send an email in ABAP

Image
  Send an email in abap. REPORT  ZAJAY_EF_ZSTU . tables : zstu . data :  maildata  LIKE  sodocchgi1 ,       mailtxt   LIKE  solisti1  OCCURS  10  WITH  HEADER  LINE ,       mailrec   LIKE  somlrec90  OCCURS  0  WITH  HEADER  LINE ,       it_zstu  type  table  of  zstu  WITH  HEADER  LINE ,       wa_zstu  type  zstu . START-OF-SELECTION .      clear : maildata , mailtxt , mailrec .      REFRESH : mailtxt , mailrec . select-OPTIONS  :  s_id  for  zstu - zstu_id . SELECT  *  from  zstu  into  TABLE  it_zstu  where  zstu_id  in  s_id .    sort  it_zstu  by  zstu_id . maildata - obj_descr  =  | Employee details | . mailtxt  =  '<!DOCTYPE html>' . append  mailtxt . mailtxt  =  '<html lang="en">' . append  mailtxt . mailtxt  =  '<head>' . append  mailtxt .   mailtxt  =  '<title>Email Functionality</title>' .   append  mailtxt . * mailtxt = ' <style>'. * append mailtxt. * *  mailtxt = 'table, th, td { bor
Read more

Enhancements in abap

 Enhancements     *  Will enhance the sap functionality in customer name space.     *  Customer  name space-> (z or y) Modifications      *  Will enhance the sap functionality in sap name space.     *  Name  should not start with z or y. Types      1. Implicit and Explicit enhancements { enhancements }      2. Customer exit. { enhancements }      3. Badi { enhancements }      4. User exit { modification } Implicit      *  Implicit point is available at the starting or at the last of program.     *  Subroutines, function  modules  etc. Explicit        *  Explicit point & section are available at any line.     *  Point  - It will not give default implementation .                     -  You can only add additional codes, you can't replace the existing code.     *  Section - It will give default implementation .      -  You can change or replace the existing code. BADI             - Badi is an enhancement. we enhance the sap functionalities in customer name space. -
Read more