WRITE: '1.LOOP循环'.
WRITE: / '-----------------------------------------------'.
LOOP AT git_student.
WRITE: / 'SY-INDEX=',sy-index LEFT-JUSTIFIED, "LEFT-JUSTIFIED 输出向左对齐
'SY-TABIX=',sy-tabix LEFT-JUSTIFIED,
'NAME=',git_student-name LEFT-JUSTIFIED,
'AGE=',git_student-age LEFT-JUSTIFIED.
ENDLOOP.
WRITE: / '-----------------------------------------------'.
WRITE: / '2.READ INTERNAL TABLE'.
WRITE: / '-----------------------------------------------'.
READ TABLE git_student INTO dent WITH KEY name = 'ALEX'. "按具体字段值读取内表
WRITE: / 'SY-INDEX=',sy-index LEFT-JUSTIFIED,
'SY-TABIX=',sy-tabix LEFT-JUSTIFIED, "读取内表时，返回相应数据在内表中的索引
'NAME=',dent-name LEFT-JUSTIFIED,
'AGE=',dent-age LEFT-JUSTIFIED.
READ TABLE git_student INTO dent WITH KEY name = 'BUSHI'. "按具体字段值读取内表
WRITE: / 'SY-INDEX=',sy-index LEFT-JUSTIFIED,
'SY-TABIX=',sy-tabix LEFT-JUSTIFIED,
'NAME=',dent-name LEFT-JUSTIFIED,
'AGE=',dent-age LEFT-JUSTIFIED.
CLEAR sy-tabix.
WRITE: / '-----------------------------------------------'.
WRITE: / '3.DO...ENDDO'.
WRITE: / '-----------------------------------------------'.
DO 5 TIMES.
WRITE:/ 'SY-INDEX=',sy-index LEFT-JUSTIFIED,
'SY-TABIX=',sy-tabix LEFT-JUSTIFIED.
ENDDO.
WRITE:/ '-----------------------------------------------'.
REPORT
ztest
_
index
.
DATA
:
BEGIN OF
git
_
student
OCCURS
0
,
name
(
10
)
TYPE
c
,
age
TYPE
i
,
END OF
git
_
student
.
DATA
:
dent
LIKE
LINE
OF
git
_
student
.
git
_
student
-
name
=
'JACK'
.
git
_
student
-
age
=
20.
APPEND
git
_
student
.
git
_
student
-
name
=
'JIM'
.
git
_
student
-
age
=
25.
APPEND
git
_
student
.
git
_
student
-
name
=
'TOMMY'
.
git
_
student
-
age
=
28.
APPEND
git
_
student
.
git
_
student
-
name
=
'BUSHI'
.
git
_
student
-
age
=
20.
APPEND
git
_
student
.
git
_
student
-
name
=
'LILY'
.
git
_
student
-
age
=
26.
APPEND
git
_
student
.
git
_
student
-
name
=
'ALEX'
.
git
_
student
-
age
=
28.
APPEND
git
_
student
.
WRITE
:
'1.LOOP循环'
.
WRITE
:
/
'-----------------------------------------------'
.
LOOP AT
git
_
student
.
WRITE
:
/
'SY-INDEX='
,
sy
-
index
LEFT-JUSTIFIED
,
"LEFT-JUSTIFIED 输出向左对齐
'SY-TABIX='
,
sy
-
tabix
LEFT-JUSTIFIED
,
'NAME='
,
git
_
student
-
name
LEFT-JUSTIFIED
,
'AGE='
,
git
_
student
-
age
LEFT-JUSTIFIED
.
ENDLOOP
.
WRITE
:
/
'-----------------------------------------------'
.
WRITE
:
/
'2.READ INTERNAL TABLE'
.
WRITE
:
/
'-----------------------------------------------'
.
READ TABLE
git
_
student
INTO
dent
WITH
KEY
name
=
'ALEX'
.
"按具体字段值读取内表
WRITE
:
/
'SY-INDEX='
,
sy
-
index
LEFT-JUSTIFIED
,
'SY-TABIX='
,
sy
-
tabix
LEFT-JUSTIFIED
,
"读取内表时，返回相应数据在内表中的索引
'NAME='
,
dent
-
name
LEFT-JUSTIFIED
,
'AGE='
,
dent
-
age
LEFT-JUSTIFIED
.
READ TABLE
git
_
student
INTO
dent
WITH
KEY
name
=
'BUSHI'
.
"按具体字段值读取内表
WRITE
:
/
'SY-INDEX='
,
sy
-
index
LEFT-JUSTIFIED
,
'SY-TABIX='
,
sy
-
tabix
LEFT-JUSTIFIED
,
'NAME='
,
dent
-
name
LEFT-JUSTIFIED
,
'AGE='
,
dent
-
age
LEFT-JUSTIFIED
.
CLEAR
sy
-
tabix
.
WRITE
:
/
'-----------------------------------------------'
.
WRITE
:
/
'3.DO...ENDDO'
.
WRITE
:
/
'-----------------------------------------------'
.
DO
5
TIMES
.
WRITE
:
/
'SY-INDEX='
,
sy
-
index
LEFT-JUSTIFIED
,
'SY-TABIX='
,
sy
-
tabix
LEFT-JUSTIFIED
.
ENDDO
.
WRITE
:
/
'-----------------------------------------------'
.
