ABAP Abap Read Table

rerkuy

Kayıtlı Üye
Katılım
18 Kas 2016
Mesajlar
23
Tepki puanı
14
Puanları
3
Yaş
34
Konum
Konya
TYPES: BEGIN OF ty_student,
id(5) TYPE n,
name(10) TYPE c,
END OF ty_student.

DATA: gwa_student TYPE ty_student.
DATA: it TYPE TABLE OF ty_student.

gwa_student-id = 1.
gwa_student-name = 'JOHN'.
APPEND gwa_student TO it.

gwa_student-id = 2.
gwa_student-name = 'JIM'.
APPEND gwa_student TO it.

gwa_student-id = 3.
gwa_student-name = 'JACK'.
APPEND gwa_student TO it.

READ TABLE it INTO gwa_student INDEX 3.
IF sy-subrc = 0.
WRITE: gwa_student-id, gwa_student-name.
ELSE.
WRITE 'Kayıt Bulunamadı'.
ENDIF.
 
Üst