ABAP 开发系列(05): ABAP 内表与内表结构

2.内表和内表结构

2.1 结构体(Structure)

2.1.1 结构体的定义

ABAP 中可以定义结构来包含多个基本类型，便于整理及操作；

结构体不属于数据字典对象（数据字典中可以定义结构体，但不能存储数据），在程序运行时会被作为临时对象存储在内存空间；

在创建内表时，可参考直接定义的结构体作为内表结构。

结构体的定义，可以通过两种方式实现：

1.第一种方式

语法：

DATA: BEGIN OF <name>

<field1> . . .

<field2> . . .

. . .

END OF <name>.

如：

TABLES: TABNA.
 
DATA:
BEGIN OF
ADDRESS,
       FLAG  
TYPE C,
       ID    
LIKE TABNA-ID,
       NAME1 
LIKE TABNA-NAME1,
       CITY  
LIKE TABNA-CITY,
      END
OF ADDRESS.
 
* 为结构体字段赋值
  MOVE
'X'            TO
ADDRESS-FLAG.
  MOVE
'0001'         TO
ADDRESS-ID.
  MOVE
'Smith'        TO
ADDRESS-NAME1.
  MOVE
'Philadelphia' TO
ADDRESS-CITY.
 
  WRITE
ADDRESS.

2.第二种方式

语法：

TYPES: BEGIN OF <name1>,

<field1> . . . ,

<field2> . . . ,

. . . ,

END OF <name1>.

DATA: <name2> TYPE <name1>.

如：

TYPES:
BEGIN OF
ADDR,
        FLAG,
        ID     
LIKE EMPLOYEE-ID,
        NAME1  
LIKE EMPLOYEE-NAME1,
        CITY   
LIKE EMPLOYEE-CITY,
       END
OF ADDR.
 
DATA: ADDRESS
TYPE ADDR.
 
MOVE: 
'X'            
TO ADDRESS-FLAG,
       '00001'       
TO ADDRESS-ID,
       'Smith'       
TO ADDRESS-NAME1,
       'Philadelphia'
TO ADDRESS-CITY.
 
WRITE 
ADDRESS.

2.1.2 结构体的赋值

相同结构体之间可以通过 MOVE … TO … 语句进行赋值；

如若存在类型差异的结构体，则可以通过 MOVE-CORRESSPONDING … TO … 语句将两个结构体之间相同字段自动匹配赋值:

abap_05_Structure_Set_Value

与基本变量定义类似，结构体的初始化操作也可以通过 CLEAR 语句实现。

如：

TABLES: employee.
 
DATA:
BEGIN OF
address,
        flag,
        id     
LIKE employee-id,
        name   
LIKE employee-name1,
        city   
LIKE employee-city,
      END
OF ADDRESS.
 
SELECT 
* FROM employee.
 
     MOVE-CORRESPONDING
employee TO 
address.
 
     WRITE: / address-flag,  address-id,
            address-name, address-city.
 
     CLEAR
address.
ENDSELECT.

2.2 内表(Internal Table)

内表与结构体基本类似，同样在程序运行过程中存储在临时创建的内存空间，它是一个可以存储多条记录的数据表。

2.2.1 内表的定义

通过关键字DATA定义内表，可以直接参考结构体或者其他内表及透明表结构，也可以直接定义结构字段。

语法：

①.DATA <NAME> TYPE <STRUCTURE> WITH [UNIQUE|NON-UNIQUE] [INITIAL SIZE n] [WITH HEADER LINE].

②.DATA <NAME> LIKE TABLE OF <TABLE> WITH [UNIQUE|NON-UNIQUE] [INITIAL SIZE n] [WITH HEADER LINE].

③.DATA: BEGIN OF itab OCCURS n,

<field>

END OF itab.

其中，关键字说明如下：

[UNIQUE|NON-UNIQUE]：指定关键字，只用于排序表，使用NON-UNIQUE关键字的话，排序表数据记录允许重复关键字字段；

[INITIAL SIZE n]：指定初始化内表大小，比较少用，一般默认即可；

[WITH HEADER LINE]：定义内表是否带表头；

*--------------------------------------------------------------------*
* 通过定义结构体并参考该结构定义内表
*--------------------------------------------------------------------*
TABLES: employee.                          
"参考某一透明表，必须先引用定义
 
TYPES: 
BEGIN OF
emp,
         id         
LIKE employee-id,
         name1      
LIKE employee-name1,
         country    
LIKE employee-country,
        END
OF emp.
 
*--------------------------------------------------------------------*
* 参考EMP 结构定义一个初始化大小为10，并有HEADER LINE的内表
*--------------------------------------------------------------------*
DATA: emptab
TYPE STANDARD
TABLE OF 
emp INITIAL SIZE
10 WITH 
HEADER LINE.
 
 
*--------------------------------------------------------------------*
* 参考EMPTAB内表，重新定义没有HEADER LINE的内表
*--------------------------------------------------------------------*
DATA: emptab_n
LIKE STANDARD
TABLE OF 
emptab.
 
 
*--------------------------------------------------------------------*
* 定义一个允许重复KEY，并且没有HEADER LINE的排序表
*--------------------------------------------------------------------*
DATA: emptab_s
TYPE SORT
TABLE OF 
emp WITH NON-UNIQUE
KEY id.
 
 
*--------------------------------------------------------------------*
* 通过第三种方式定义的内表，可指定具体字段，默认内表存在HEADER LINE
*--------------------------------------------------------------------*
TYPES: 
BEGIN OF
emp OCCURS 
0,
          id        
LIKE employee-id,
          name1     
LIKE employee-name1,
          country   
LIKE employee-country,
        END
OF emp.

2.2.2 内表有无 HEADER LINE 的区别

对于有HEADER LINE的内表，可以通过填充HEADER LINE数据后或通过 外部Work Area 向内表存储空间中追加数据。

abap_05_Internal_Table_With_Header_Line

对于没有HEADER LINE的内表，只能通过 外部Work Area来传递数据：

abap_05_Internal_Table_Without_Header_Line

语法：

①.APPEND [<Work Area> INTO] <ITAB>.

如：

TABLES: employee.
 
TYPES:
BEGIN OF
emp,
    id 
LIKE employee-id,
    name1  
LIKE employee-name1,
    country
LIKE employee-country,
       END
OF emp.
 
* 有 HEADER LINE 的内表
DATA: emptab 
TYPE STANDARD
TABLE OF 
emp INITIAL SIZE
10 WITH 
HEADER LINE.
 
* 没有 HEADER LINE 的内表
DATA: emptab2
TYPE STANDARD
TABLE OF 
emp INITIAL SIZE
10,        
 
* Work Area
      emptab_wa
TYPE emp.                                                                          
 
SELECT 
* FROM employee.
 
    MOVE-CORRESPONDING
employee TO 
emptab.
    APPEND
emptab.
 
    MOVE-CORRESPONDING
employee TO 
emptab_wa.
    APPEND
emptab_wa TO 
emptab2.
 
ENDSELECT.

由于没有HEADER LINE的内表通过Work Area 传递数据在性能上会优于HEADER LINE直接填充HEADER LINE，

所以，一般基本都使用没有 HEADER LINE 的内表。

除非一些特殊情况，才会使用 HEADER LINE 内表。

2.2.3 内表数据处理

1. 遍历读取内表数据 (LOOP … ENDLOOP.)

LOOP 
AT emptab WHERE
country BETWEEN
‘A’ AND 
‘D’.
 
     WRITE:  / emptab-country, emptab-name1, emptab-sales.
 
ENDLOOP.
 
IF 
sy-subrc NE 0.  
 
     WRITE: / ‘NO
ENTRIES’.   
 
ENDIF.

解析：

a.LOOP 语句后，允许使用WHERE语句筛选数据。

b.程序中，出现 sy-subrc 变量，这是系统全局变量，用于检查是否符合条件,

如若符合条件 sy-subrc 返回0 ，如果不符合，则返回4.

2. 读取内表数据 (READ TABLE …)

在数据内表，可以通过READ TABLE关键字根据具体行数或主键字段读取内表中的某行记录：

TABLES: employee.
 
TYPES: 
BEGIN OF
emp,
         country    
LIKE employee-country,
         name1      
LIKE employee-name1,
        END
OF emp.
 
DATA: emptab
TYPE STANDARD
TABLE OF 
emp INITIAL SIZE
10 WITH 
HEADER LINE.
 
SELECT 
* FROM EMPLOYEE.
 
    MOVE-CORRESPONDING
employeeTO emptab.
    APPEND
EMPTAB.
 
ENDSELECT.
 
READ 
TABLE ….

READ TABLE 选项：

1) READ TABLE <EMPTAB>.

2) READ TABLE <EMPTAB> WITH KEY <k1> = <v1>… <kn> = <vn>.

3) READ TABLE <EMPTAB> WITH TABLE KEY <k1> = <v1> … <kn> = <vn>.

4) READ TABLE <EMPTAB> WITH KEY = <value>.

5) READ TABLE <EMPTAB> WITH KEY . . . BINARY SEARCH.

6) READ TABLE <EMPTAB> INDEX <i>.

7) READ TABLE <EMPTAB> COMPARING <f1> <f2> . . . .

8) READ TABLE <EMPTAB> COMPARING ALL FIELDS.

9) READ TABLE <EMPTAB> TRANSPORTING <f1> <f2> . . . .

10) READ TABLE <EMPTAB> TRANSPORTING NO FIELDS.

关键字说明：

[KEY|TABLE KEY]: 通过内表的主键字段查找

[BINARY SEARCH]: 二分法查找，使用该方法时，在READ TABLE之前，必须对内表排序

[INDEX]: 根据内表索引查找

[COMPARING]:只查找设置的字段

[COMPARING ALL FIELDS]:查找内表所有的字段

[TRANSPORTING]: 只输出设置的字段数据

[TRANSPORTING NO FIELDS]: 不输出任何数据

3. 内表排序

对内表进行排序，指定具体排序的排序字段、排序方式（升序/降序）

默认情况下，为升序。

语法：

SORT itab [BY <f1> <f2> …] [ASCENDING|DESCENDING]

4. 内表分类汇总（COLLECT TABLE …）

通过COLLECT TABLE关键字，可以对内表中相同记录合并，若有数字类型(I、P、F)的字段，会将其合并汇总。

语法：

COLLECT [<work area> INTO] itab.

TABLES: EMPLOYEE.
 
TYPES: 
BEGIN OF
EMP,
      COUNTRY   
LIKE EMPLOYEE-COUNTRY,
      SALES     
LIKE EMPLOYEE-SALES,
        END
OF EMP.
 
DATA:  EMPTAB  
TYPE STANDARD
TABLE OF 
EMP INITIAL SIZE
10 WITH 
HEADER LINE,
       EMPTAB_C
TYPE STANDARD
TABLE OF 
EMP INITIAL SIZE
10 WITH 
HEADER LINE.
 
DATA:  EMPTAB_WA
TYPE EMP.
 
* 赋值
EMPTAB-COUNTRY =
'D'.
EMPTAB-SALES         = 400.
APPEND 
EMPTAB.
 
EMPTAB-COUNTRY =
'USA'.
EMPTAB-SALES         = 1000.
APPEND 
EMPTAB.
 
EMPTAB-COUNTRY =
'GB'.
EMPTAB-SALES         = 500.
APPEND 
EMPTAB.
 
EMPTAB-COUNTRY =
'D'.
EMPTAB-SALES         = 7800.
APPEND 
EMPTAB.
 
SORT 
EMPTAB BY COUNTRY.
 
LOOP 
EMPTAB.
      
     MOVE-CORRESPONDING
EMPTAB TO 
EMPTAB_WA.
 
     COLLECT
EMPTAB INTO 
EMPTAB_C.
 
ENDLOOP.

输出结果：

D 8200

GB 500

USA 1000

或者直接从数据表取数汇总：

SELECT 
* FROM EMPLOYEE.
 
   MOVE-CORRESPONDING
EMPLOYEE TO 
EMPTAB.
   COLLECT
EMPTAB.
 
ENDSELECT.
 
LOOP 
AT EMPTAB.
 
   WRITE:  / EMPTAB-COUNTRY, EMPTAB-SALES.
 
ENDLOOP.

5.系统字段 SY-TABIX

与前面提到的 SY-SUBRC 字段一样，SY-TABIX 也为系统的全局变量；

用于在循环遍历内表时，当前记录的索引值：

SELECT 
* FROM EMPLOYEE
   INTO
CORRESPONDING FIELDS
OF TABLE 
EMPTAB.
 
LOOP 
AT EMPTAB.
 
   WRITE:  / SY-TABIX, EMPTAB-COUNTRY, EMPTAB-NAME1.
 
ENDLOOP.

2.2.4 维护内表数据

1.通过索引值维护内表

语法:

INSERT <EMPTAB> INDEX <i>.

MODIFY <EMPTAB> INDEX <i>.

DELETE <EMPTAB> INDEX <i>.

说明：

INSERT：向内表数据I处插入数据记录

MODIFY：修改内表数据I处记录

DELETE：删除内表I处数据记录

如：

SELECT 
* FROM EMPLOYEE.
   MOVE-CORRESPONDING
EMPLOYEE TO 
EMPTAB.
   APPEND
EMPTAB.
ENDSELECT.
 
READ 
TABLE EMPTAB INDEX
1.
MOVE 
'ABC' TO EMPTAB-NAME1.
MODIFY 
EMPTAB INDEX SY-TABIX.
 
* 每次执行完之后，判断SY-SUBRC是否为0
IF 
SY-SUBRC NE 0.
 
   WRITE:  / ‘Attempt
to modify failed.’.
 
ELSE.
 
  WRITE:  / EMPTAB-COUNTRY, EMPTAB-NAME1.
 
ENDIF.
 
INSERT 
EMPTAB INDEX 1.
DELETE 
EMPTAB INDEX SY-TABIX.

2. 维护没有HEADER LINE的内表

APPEND <work area> TO <internal table>.

COLLECT <work area> INTO <internal table>.

INSERT <work area> INTO <internal table>.

MODIFY <internal table> FROM <work area>.

READ TABLE <internal table> INTO <work area>.

LOOP AT <internal table> INTO <work area>.

说明：

APPEND：向内表追加数据

COLLECT：内表数据分类汇总

INSERT：向内表插入数据

MODIFY：修改内表数据

READ TABLE：读取内表数据

LOOP AT：遍历内表数据

3. 清空内表

清空内表有4种方式：

CLEAR <internal table> ：仅清空HEADER LINE，对内表数据存储空间不影响

REFRESH <internal table>：清空内表数据存储空间，对HEADER LINE不影响

FREE <internal table>：清空内表数据存储空间，对HEADER LINE不影响

4.获取内表信息

可以通过 DESCRIBE 关键字获取内表的相关信息。

语法：

DESCRIBE TABLE <internal table> [LINES <var1>] [OCCURS <var2>].

说明：

LINES: 获取内表存储记录数

OCCURS：获取内表存储空间大小

原著地址：http://www.sapjx.com/abap-internal-table-and-data-structure.html

查看全文
如若内容造成侵权/违法违规/事实不符，请联系编程学习网邮箱：809451989@qq.com进行投诉反馈，一经查实，立即删除！

将ABAP编辑器设置为黑色主题（Default Theme vs. Dark Theme）
在传统的ABAP Editor（Tx: SE80）中，SAP允许用户调节编辑器的相关属性，但并未像Eclipse一样，为开发者提供预定义的主题使用。对于喜欢经典“黑色主题”的开发人员来说，可能只能通过自己手动的逐项配置完成。本文提供了一个已经配置好的ABAP Editor的黑色主题，开发者可以下…...
2024/5/7 19:29:19
Java Websocket实例【项目实战系列】
现很多网站为了实现即时通讯，所用的技术都是轮询(polling)。轮询是在特定的的时间间隔（如每1秒），由浏览器对服务器发出HTTP request，然后由服务器返回最新的数据给客服端的浏览器。这种传统的HTTP request 的模式带来很明显的缺点 – 浏览器需要不断的向服务器发出请求，…...
2024/5/7 15:11:49
ABAP, Java和JavaScript三种语言的比较
写这个系列的初衷是SAP Chengdu office有越来越多的应届毕业生加入，这些新同事通过在大学的专业学习，具备了Java和JavaScript背景，但是进入SAP之后大家觉得ABAP没有Java和JavaScript好学。其实任何编程语言总是有很多相通之处，这个系列就是把这三种语言的很多知识点拿来横…...
2024/4/20 16:07:51
Java自学基础、进阶、项目实战网站推荐
推荐一个自学的好平台，有Java基础，前端，后端，基础的内容都有讲解，还有框架的讲解和实战项目，特别适合自学 JAVA 自学网站 JAVA 练习题 Spring 教程 Mybatis 教程 Spring MVC 教程 Spring Boot 教程 Spring Cloud 教程模仿天猫官网后端JEE 模范天猫官网SSH 模范天猫官网S…...
2024/5/8 1:22:01
在ABAP里模拟实现Java Spring的依赖注入
Dependency Injection- 依赖注入，在Java Spring框架中有着广泛地应用。通过依赖注入，我们不必在应用代码里繁琐地初始化依赖的资源，非常方便。那么ABAP能否从语言层面上也支持依赖注入，享受这种设计思路带来的便利呢？让我们做一次尝试。尝试的场景在现实生活中，每一盏灯都…...
2024/5/7 4:29:57
2019最新Java实战项目开发视频教程分享
第01项目 oa_赵庆轩(有代码) 2018-09-02 14:30:49 第02项目：CRM客户关系管理项目(两套) 2018-09-02 14:30:48 第03项目：宅急送项目 2018-09-02 14:30:48 第04项目：杰信商贸SSH版 2018-09-02 14:30:48 第05项目：电力项目 2018-09-02 14:30:47 第23项目JAVAEE开发双…...
2024/4/27 15:21:04
ABAP宏的调试
我们都知道高级语言宏一般是无法调试的。但是ABAP的宏例外。比如我写了下面一段宏，名为insert_table. 执行这段代码，调试器会在第23行停下来。ABAP调试器里有个工具可以用于宏的调试，如下图：双击之后，可看到如下调试界面：按F5即可开始单步调试。上图的22，23行STRLEN，I…...
2024/4/21 9:50:48
SAP Kernel 和 ABAP版本之间的关系
1.什么是Kernel?SAP系统的内核（Kernel）是由C语言编写的，Kernel是SAP系统的基础技术平台。Kernel向下面对特定的操作系统、数据库，向上架构起ABAP运行平台。Kernel作为底层与业务层之间的支撑平台，它抹平各操作系统、数据库之间的差异，所以ABAP程序可在某一SAP服务器平台…...
2024/4/21 9:50:46
redis实战（java项目应用）
首先，简单介绍下Redis,redis是一个key-value存储系统，并提供多种语言的API。和Memcached类似，它支持存储的value类型相对更多，包括string(字符串)、list(链表)、set(集合)、zset(sorted set --有序集合)和hash（哈希类型）。更详细的介绍可以参照官网（点击打开链接）,本文…...
2024/4/21 9:50:45
Java 项目实战坦克大战（0）--前言
做了有一个星期了，java语言太强大了，也算是学得最认真的一门语言了，本次课设花的心思也就比较多了。关键总是追求完美总是想原创，最终做出来效果不错，但感觉代码逻辑很乱，今天开始就好好整理一番，以教程形式贴出来，边重写，边完善，最主要目的还是巩固java编程能力，锻…...
2024/4/21 9:50:45
ABAP面向对象的开发
在程序中, 对象的识别和寻址是通过对象引用来实现的,对象引用变量可以访问对象的属性和方法. ABAP 中的类也有程序内部的局域类和全局类之分, 其作用范围不同. ABAP中的全局类是通过ABAP工作台中的类创建工具 Class Builder SE24开发的, 保存在系统类库程序 Class Pool 中, 可…...
2024/4/21 9:50:43
几种PHP实现网页抓取的程序代码
网页抓取就像搜索引擎一个可以去自动抓取其它服务器上的内容了，下面我整理的几个php常用做法，大家一起来看看。抓取某一个网页中的内容，需要对DOM树进行解析，找到指定节点后，再抓取我们需要的内容，过程有点繁琐。LZ总结了几种常用的、易于实现的网页抓取方式，如果熟悉JQ…...
2024/5/6 18:13:10
JAVA项目集锦 Java项目视频20套
783 127课程介绍学技术的目的就是为了应用，尤其是的编程开发技术，三天不练手生是大实话同时对于JAVA初学者来说，急需的就是能够参与项目开发，让自己迅速的成长起来，掌握JAVA的核心技术-------------------课程目录-------------------第01项目：OA办公自动化项目(四套)第0…...
2024/4/20 9:55:18
SAP ABAP for HANA
SAP HANA是SAP推出的最先进的内存计算高性能数据库套件，它最大的优点就是极大的提高了性能和速度，你如果使用了HANA，那么可以真正实时地运行业务流程，实时地响应客户需求，最快最好地为自己的客户提供服务。那么我们从开发技术的角度,特别是ABAP开发的角度来看看，现在和以…...
2024/4/24 11:25:06
ABAP 标准列表和选择屏幕
1.连接相似语句使用“:”连接相似语句，在 ABAP 中，冒号是非常常见的，比如说最常见的程序 “WIRTE::111, 222, 333.”。“:”并不是 WRITE语法，而是ABAP 本身语法，是通过“:” 将三个相似语句连接，相当于 WRITE ’111’. WRITE ’222’. WRITE ’333’.2.标准列表输出T…...
2024/4/21 9:50:39
2019年最新Java实战开发今日头条资讯网站项目实战(完整)
2017年最新Java实战开发今日头条资讯网站视频教程 2017年最新Java实战开发今日头条资讯网站视频教程 2017年最新Java实战开发今日头条资讯网站视频教程下载地址：百度网盘...
2024/4/20 18:01:08
Java 项目实战坦克大战（一）--准备
准备（一）Graphics类的相关方法API解释drawOvalpublic abstract void drawOval(int x,int y,int width,int height)绘制椭圆的边框。得到一个圆或椭圆，它刚好能放入由 x、y、width 和 height 参数指定的矩形中。椭圆覆盖区域的宽度为 width + 1 像素，高度为 height + 1 像素…...
2024/4/28 15:22:02
ABAP开发工具及技术概览
ABAP开发工具及技术概览 overview: 1、REPORT(报表) ：报表程序的主要作用是从数据库中抓取数据通过整理陈列出来，给企业高层或具有相关需求的人员查看。如无特殊需求，此类程序一般不需客制screen、menu、title。 A、ABAP LIST（最简单的一种报表程序，显示在屏…...
2024/4/20 18:01:06
java项目中使用dubbo实战
上篇文章讲到了如何搭建zookeeper+dubbo平台，但搭建平台的最终目的还是在项目中应用，接下来我再说下如何在java代码中实际应用。 dubbo作为RPC的管理工具，它的作用是管理服务的使用者调用服务提供者的情况。在实际应用中，可建立一个独立的java project，里面的内容全部都是…...
2024/4/24 16:02:34
SAP之ABAP吐槽
工作快一年了,误打误撞一头扎进SAP,用起了以前从未听过的abap语言. abap语言就是在黑客与画家中被Paul Graham极力挖苦的cobol语言的后代.当初看到add 1 to counter.也是被极度震惊了,现在则更多的是麻木,因为abap语言中弱智的语法太多了.最近的项目就是扫描abap源代码,更是见识…...
2024/4/20 18:01:05

ABAP 开发系列(05): ABAP 内表与内表结构

2.内表和内表结构

相关文章

最新文章