*&---------------------------------------------------------------------*
*& Report YABAP_LEAR01
*&---------------------------------------------------------------------*
*& Title : Read Table With Index New Syntax
*&---------------------------------------------------------------------*
REPORT yabap_lear01.
DATA: ls_mara TYPE mara.
START-OF-SELECTION.
SELECT * FROM mara
INTO TABLE @DATA(lt_mara)
UP TO 10 ROWS.
WRITE :/ '.'.
"Old Method
CLEAR ls_mara.
READ TABLE lt_mara INDEX 5 INTO ls_mara.
IF sy-subrc = 0.
WRITE :/ 'Old Method Result :', ls_mara-matnr.
else.
WRITE :/ 'Data not found!'.
ENDIF.
WRITE :/ '.'.
WRITE :/ '============================================'.
WRITE :/ '.'.
"New Method
CLEAR ls_mara.
TRY.
ls_mara = lt_mara[ 6 ].
WRITE :/ 'New Method Result :', ls_mara-matnr.
CATCH cx_sy_itab_line_not_found.
WRITE :/ 'Data not found!'.
ENDTRY.
Comments
Post a Comment