系统变量SY-INDEX与SY-TABIX是用来记录循环的次数或者索引的,不同的是SY-INDEX在DO....ENDDO中是有效的,而SY-TABIX在LOOP....ENDLOOP中及READ内表时获取相应的索引。
DATA:BEGIN OF STUDENT OCCURS 0,
NAME(10) TYPE C,
AGE TYPE I,
END OF STUDENT.
DATA DENT LIKE LINE OF STUDENT.
STUDENT-NAME = 'JACK'.
STUDENT-AGE = 20.
APPEND STUDENT.
STUDENT-NAME = 'JIM'.
STUDENT-AGE = 25.
APPEND STUDENT.
STUDENT-NAME = 'TOMMY'.
STUDENT-AGE = 28.
APPEND STUDENT.
STUDENT-NAME = 'BUSHI'.
STUDENT-AGE = 20.
APPEND STUDENT.
STUDENT-NAME = 'LILY'.
STUDENT-AGE = 26.
APPEND STUDENT.
STUDENT-NAME = 'ALEX'.
STUDENT-AGE = 28.
APPEND STUDENT.
WRITE: '1.LOOP循环'.
WRITE: / '-----------------------------------------------'.
LOOP AT STUDENT.
WRITE: / 'SY-INDEX=',SY-INDEX LEFT-JUSTIFIED, "LEFT-JUSTIFIED 输出向左对齐
'SY-TABIX=',SY-TABIX LEFT-JUSTIFIED,
'NAME=',STUDENT-NAME LEFT-JUSTIFIED,
'AGE=',STUDENT-AGE LEFT-JUSTIFIED.
ENDLOOP.
WRITE: / '-----------------------------------------------'.
WRITE: / '2.READ INTERNAL TABLE'.
WRITE: / '-----------------------------------------------'.
READ TABLE 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 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: / '-----------------------------------------------'.
从上面的测试例子中,我们不难看出结果。嘎嘎。。
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 阿里最新开源QwQ-32B,效果媲美deepseek-r1满血版,部署成本又又又降低了!
· AI编程工具终极对决:字节Trae VS Cursor,谁才是开发者新宠?
· 开源Multi-agent AI智能体框架aevatar.ai,欢迎大家贡献代码
· Manus重磅发布:全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!