devbox
盐析白兔
这个屌丝很懒，什么也没留下！
关注作者
热门标签
热门文章
当前位置:   article > 正文

[转帖]ABAP实践学习-内表的常用处理_abap insert lines of into table

作者：盐析白兔 | 2024-02-15 13:01:47

赞

踩

abap insert lines of into table
Internal Table 的宣告
   ABAP/4 的 Internal Table （内表） 如同其它语言的数组结构 , 在操作上可以有复制 , 删除 , 新增插入等功  
   能 .
   1. 使用 TYPE 叙述
  语法 :
        TYPES     OCCURS 
        宣告一个数组 , 型态为 , 长度为
        Example:
                 TYPES A TYPE I OCCURS 10.
                 A 是个 10 个元素的数值 Internal Table
        Example:
                 TYPES: BEGIN OF LINE,
                        COL1 TYPE I,
                        COL3 TYPE I,
                        END OF LINE.
                 TYPES ITAB TYPE LINE OCCURS 10.
                 宣告一个 Internal Table ITAB, 总共有 10 个元素 , 其 WORK AREA 名称
                 为 LINE
   2. 使用 DATA 叙述       
     若使用 DATA 叙述来宣告 Internal Table, 可分成要不要有 HEADER LINE, HEADER LINE 就
     是所谓的 WORK AREA, 用在数据的存取上 .
     语法 :
           DATA     OCCURS   [WITH HEADER LINE]
           Example:
                   DATA VECTOR TYPE I OCCURS 10 WITH HEADER LINE.
 
3. 直接宣告 , 不使用 WORK AREA
语法 :
     DATA: BEGIN OF   OCCURS  ,
             宣告 >
            END OF  .
 
 
   Example:
           DATA: BEGIN OF ITAB OCCURS 10,
                  COL1 TYPE I,
                  COL2 TYPE I,
                 END OF ITAB.
                 如此产生的 Internal Table 不会有 Work Area, 也就是宣告时不会 Reference
                 其它的 Conponent 宣告
 
& Append Line
   语法 :
        APPEND [ ] TO [Initial Line To] 
        [Initial Line To] 为增加一预设初值的元素
        Example: 使用 Work Area
                DATA:  BEGIN OF LINE,
                         COL1 TYPE I,
                         COL2 TYPE I,
                         END OF LINE.
                DATA ITAB LIKE LINE OCCURS 10.
                DO 2 TIMES.
                   LINE-COL1 = SY-INDEX.      “SY-INDEX 为迥圈的 Counter
                   LINE-COL2 = SY-INDEX **2.
                   APPEND LINE INTO ITAB.             “ 新增至 Internal Table 中
                ENDDO.
                LOOP AT ITAB INTO LINE.   “ITAB 总共有两个元素
                   WRITE: / LINE-COL1,LINE-COL2.
                ENDLOOP.
                执行结果为 :
                    1        1
                    2         4
 
        Example: 不使用 Work Area
                 DATA: BEGIN OF ITAB OCCURS 10,
                         COL1 TYPE I,
                         COL2 TYPE I,
                         END OF ITAB.
                DO 2 TIMES.
                   ITAB-COL1 = SY-INDEX.
                   ITAB-COL2 = SY-INDEX **2.
                   APPEND ITAB.             “ 新增至 Internal Table 中
                ENDDO.
                LOOP AT ITAB.   “ITAB 总共有两个元素
                   WRITE: / ITAB-COL1,ITAB-COL2.
                ENDLOOP.
                执行结果为 :
                    1        1
                    2         4
 
& 加入另一 Internal Table 的元素
    语法 :
         APPEND LINES OF   [FROM ] [TO ] TO 
         将 的元素加入至 中 , 可选取自 至 的范围
         Example:
                  APPEND LINES OF ITAB TO JTAB.
                  将 ITAB 所有元素加入 JTAB 中
 
& Collect Line
   在加入新元素时将有相同 standard key( 非数值字段 ) 的数值字段汇总
   语法 :
        COLLECT [  INTO] 
 
       Example:
        DATA: BEGIN OF ITAB OCCURS 3,
               COL1(3) TYPE C,
               COL2    TYPE I,
              END OF ITAB.
              ITAB-COL1 = ‘ABC’. ITAB –COL2 = 10.
              COLLECT ITAB.
 
              ITAB-COL1 = ‘XYZ’. ITAB-COL2 = 20.
             COLLECT ITAB.
 
             ITAB-COL1 = ‘ABC’.   ITAB-COL2 = 30.
             COLLECT ITAB.    “ 汇总 COL2 至 COL1=ABC 的元素上
             LOOP AT ITAB.
                WRITE: / ITAB-COL1,ITAB-COL2.
             ENDLOOP.
             执行结果 :
                ABC      40
                XYZ      20
 
& __insert Line
   插入元素在指定的 Internal Table 位置之前
   语法 :
         __insert [ INTO] [INITIAL LINE INTO]   [INDEX  ]
        
         Example:
                  DATA: BEGIN OF LINE,
                           COL1 TYPE I,
                           COL2 TYPE I,
                           END OF LINE.
                  DATA ITAB LIKE LINE OCCURS 10.
                  DO 3 TIMES.
                     LINE-COL1 = SY-INDEX *10.
                     LINE-COL2 = SY-INDEX *20.
                     APPEND LINE INTO ITAB.
                  ENDDO.
                  LINE-COL1=100.
                  LINE-COL2=200.
                  __insert LINE INTO ITAB INDEX 2. “ 插入在位置 2 之前
                  LOOP AT ITAB INTO LINE.
                    WRITE: / SY-TABIX,LINE-COL1,LINE-COL2. “SY-TABIX 为 Table 位置
                 ENDLOOP.
                 执行结果 :
                            1        10       20
                            2       100      200 “ 插入的元素
                            3        20       40
                            4        30       60
 
& 插入另一 Internal Table 元素
   语法 :
         __insert LINES OF   [FROM TO ] TO   INDEX
        将 的元素插入至 中 , 位置在 之前 , 可选取自 至 的范围
         Example:
                  APPEND LINES OF ITAB TO JTAB INDEX 3.
                  将 ITAB 所有元素插入 JTAB 中 , 位置在第三个元素之前
 
& Internal Table 元素数据的读取
   语法:
         LOOP AT   [INTO ] [FROM TO ] [WHERE ]
           
         ENDLOOP.
         根据设定的范围选取原素资料, 读完后自动移往下一笔
         Example:
                  LOOP AT  ITAB INTO LINE WHERE COL1 >100.
                     WRITE: / SY-TABIX,LINE-COL1.
                  ENDLOOP.
                  仅读取 COL1 > 100 的元素
 
& 读取 Internal Table 指定位置的元素
   语法:
         READ TABLE   [INTO ] INDEX 
         自指定位置 读取元素数据
         Example:
                   READ TABLE ITAB INTO LINE INDEX 5
                   读取 ITAB的第5个元素数据, 放入 LINE的字段中
 
& 根据字段内容寻找
   语法:
          READ TABLE   INTO 
          Example:
                  ITAB-COL1 = ‘ABC’.
                  READ TABLE ITAB INTO LINE.
                  找出ITAB 中 COL1 字段内容是 ABC 的元素, 找到的值放入 LINE 中
                  若找到 SY-SUBRC传回0, 找不到则传回 4, 必须宣告有 work area
& 异动元素内容
   语法:
         MODIFY   [FROM ] [INDEX ] [TRANSPORTING … ]
                   [WHERE ]
         TRANSPORTING  .. : 指定异动的字段名称
         Example:
                 LINE-COL1 = 4.
                 LINE-COL2 = 100.
                 MODIFY ITAB FROM LINE.
                 将目前位置元素以LINE的内容异动
         Example:
                 LINE-COL1 = 10.
                 MODIFY ITAB FROM LINE INDEX 3 TRANSPORTING COL1.
                 将第三个元素的COL1字段异动为 10
 
& __delete Lines
  删除Internal Table 的元素
  语法:
        __delete   INDEX 
        Example:
                 __delete　ITAB INDEX 4
                 删除第四个元素
  加上删除条件:
        __delete  [FROM TO ] [WHERE
        Example:
                 __delete ITAB FROM 3 TO 10.
                 删除第3至第10个元素
  
& Internal Table Sorting
  语法:
        SORT   [ ] [BY ] ….
        [ ] : 可分成递减(DESCENDING)和递增(ASCENDING), 空白表 ASCENDING
        :为指定的字段
        Example:
                 SORT ITAB DESCENDING BY COL2.
                 将 ITAB 根据 COL2字段递减排序
& 计算数值字段总和
   语法:
         SUM
         计算得总和存在work area 中, 但只能存在 LOOP 叙述中
         Example:
                  LOOP AT ITAB INTO LINE.
                    SUM.
                  ENDLOOP.
                  WRITE: / LINE-COL1,LINE-COL2.
                  LINE-COL1 和 LINE-COL2 存数值总和
 
& Initial Table
1. REFRESH 
使用在没有 HEADER LINE 的 Internal Table中, 清除所有元素
     Example:
              REFRESH ITAB.
 
2.  CLEAR  [ ]
使用在有 HEADER LINE 的 Internal Table中, 清除所有元素
     Example:
              CLEAR ITAB[ ].
 
3. FREE 
释放(Release) Internal Table所占的内存空间, 用在 REFRESH和 CLEAR指令之后
Example:
        FREE ITAB. 
声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/盐析白兔/article/detail/84689
推荐阅读
相关标签

Copyright © 2003-2013 www.wpsshop.cn 版权所有，并保留所有权利。

  

闽ICP备14008679号