内标的创建修改删除
2010-11-17 11:22
176 查看
*&--------INTER TABLE有表头和无表头的内表------
*DATA:BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE TABLE OF MAN WITH HEADER LINE,
* MAN2 LIKE TABLE OF MAN.
*MAN-NAME = '张参'.
*MAN-HIGH = '1.68'.
*MAN-WEIGHT = 120.
*APPEND MAN TO MAN1.
*
*MAN-NAME = '柳志'.
*MAN-HIGH = '1.78'.
*MAN-WEIGHT = 160.
*APPEND MAN TO MAN1.
*
*MOVE MAN1[] TO MAN2.
*
*LOOP AT MAN1 INTO MAN.
*WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
*ENDLOOP.
*LOOP AT MAN2 INTO MAN.
*WRITE:/ MAN-NAME,MAN-HIGH, MAN-WEIGHT.
*ENDLOOP.
*&--------iner table 排序表-------------
*DATA: BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
* MAN-NAME = '张参'.
* MAN-HIGH = '1.68'.
* MAN-WEIGHT = 120.
* INSERT MAN INTO TABLE MAN1.
* MAN-NAME = '刘志'.
* MAN-HIGH = '1.78'.
* MAN-WEIGHT = 160.
* INSERT MAN INTO TABLE MAN1.
* MAN-NAME = '宋强'.
* MAN-HIGH = '1.72'.
* MAN-WEIGHT = 130.
* INSERT MAN INTO TABLE MAN1.
*LOOP AT MAN1 INTO MAN.
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
** SORT MAN1 DESCENDING BY WEIGHT ASCENDING.
** SORT MAN1 DESCENDING BY WEIGHT ASCENDING.
* SORT MAN1 DESCENDING BY WEIGHT DESCENDING.
** -----SKIP和ULINE 分别代表跳行和下划线.
* SKIP .
* ULINE.
* LOOP AT MAN1 INTO MAN.
* WRITE: / MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*-------修改内表数据--------
*DATA:BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
* MAN-NAME = '张参'.
* MAN-HIGH = '1.68'.
* MAN-WEIGHT = 130.
*
* INSERT MAN INTO TABLE MAN1.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*
* MAN-NAME = '张参'.
* MAN-HIGH = '2.22'.
* MAN-WEIGHT = 130.
*
* MODIFY TABLE MAN1 FROM MAN.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*------DELETE 内表数据------------------
*DATA:BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
* MAN-NAME = '张参'.
* MAN-HIGH = '1.68'.
* MAN-WEIGHT = 130.
*
* INSERT MAN INTO TABLE MAN1.
*
* MAN-NAME = '张参1'.
* MAN-HIGH = '2.22'.
* MAN-WEIGHT = 130.
* INSERT MAN INTO TABLE MAN1.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*
* DELETE MAN1 WHERE NAME = '张参' .
* SKIP.
* ULINE.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*DATA:BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE TABLE OF MAN WITH HEADER LINE,
* MAN2 LIKE TABLE OF MAN.
*MAN-NAME = '张参'.
*MAN-HIGH = '1.68'.
*MAN-WEIGHT = 120.
*APPEND MAN TO MAN1.
*
*MAN-NAME = '柳志'.
*MAN-HIGH = '1.78'.
*MAN-WEIGHT = 160.
*APPEND MAN TO MAN1.
*
*MOVE MAN1[] TO MAN2.
*
*LOOP AT MAN1 INTO MAN.
*WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
*ENDLOOP.
*LOOP AT MAN2 INTO MAN.
*WRITE:/ MAN-NAME,MAN-HIGH, MAN-WEIGHT.
*ENDLOOP.
*&--------iner table 排序表-------------
*DATA: BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
* MAN-NAME = '张参'.
* MAN-HIGH = '1.68'.
* MAN-WEIGHT = 120.
* INSERT MAN INTO TABLE MAN1.
* MAN-NAME = '刘志'.
* MAN-HIGH = '1.78'.
* MAN-WEIGHT = 160.
* INSERT MAN INTO TABLE MAN1.
* MAN-NAME = '宋强'.
* MAN-HIGH = '1.72'.
* MAN-WEIGHT = 130.
* INSERT MAN INTO TABLE MAN1.
*LOOP AT MAN1 INTO MAN.
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
** SORT MAN1 DESCENDING BY WEIGHT ASCENDING.
** SORT MAN1 DESCENDING BY WEIGHT ASCENDING.
* SORT MAN1 DESCENDING BY WEIGHT DESCENDING.
** -----SKIP和ULINE 分别代表跳行和下划线.
* SKIP .
* ULINE.
* LOOP AT MAN1 INTO MAN.
* WRITE: / MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*-------修改内表数据--------
*DATA:BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
* MAN-NAME = '张参'.
* MAN-HIGH = '1.68'.
* MAN-WEIGHT = 130.
*
* INSERT MAN INTO TABLE MAN1.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*
* MAN-NAME = '张参'.
* MAN-HIGH = '2.22'.
* MAN-WEIGHT = 130.
*
* MODIFY TABLE MAN1 FROM MAN.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*------DELETE 内表数据------------------
*DATA:BEGIN OF MAN,
* NAME(20) TYPE C,
* HIGH TYPE P DECIMALS 2,
* WEIGHT TYPE P DECIMALS 2,
* END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
* MAN-NAME = '张参'.
* MAN-HIGH = '1.68'.
* MAN-WEIGHT = 130.
*
* INSERT MAN INTO TABLE MAN1.
*
* MAN-NAME = '张参1'.
* MAN-HIGH = '2.22'.
* MAN-WEIGHT = 130.
* INSERT MAN INTO TABLE MAN1.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
*
* DELETE MAN1 WHERE NAME = '张参' .
* SKIP.
* ULINE.
*
* LOOP AT MAN1 INTO MAN .
* WRITE:/ MAN-NAME,MAN-HIGH,MAN-WEIGHT.
* ENDLOOP.
相关文章推荐
- SQLite 入门教程(二)创建、修改、删除表
- c# 注册表操作,创建,删除,修改,判断节点是否存在
- mongoDB集合 文档创建修改删除以及查询命令总结
- C# 文件操作(全部) 追加、拷贝、删除、移动文件、创建目录 修改文件名、文件夹名
- MySQL入门很简单: 4 创建 修改删除表
- sqlite数据类型、关键词及创建、修改、删除数据表
- JAVA 如何创建/删除/修改/复制目录及文件
- SQL语句,数据库的创建、定义修改删除基本表
- MySQL 创建索引、修改索引、删除索引的命令语句
- 字典的创建、修改、删除、遍历
- SQLite 入门教程二 SQLite的创建、修改、删除表
- SQL Server触发器创建、删除、修改、查看示例步骤
- JAVA 如何创建/删除/修改/复制目录及文件
- SQL Server索引进阶第十二篇:索引的创建,修改和删除
- Asp.Net XML操作基类(修改,删除,新增,创建)
- mysql创建用户、删除用户、创建root用户和修改用户密码,grant分配权限,查询测试,以及库中授权表解析
- SQL Server触发器创建、删除、修改、查看示例步骤
- 【java开发系列】—— JDOM创建、修改、删除、读取XML文件
- FTP 工具类. 可以完成对目录创建的创建、修改、删除,对文件的上传下载等操作
- SQLite 创建,修改,删除表