SAP

SAP 内表2008-11-27 22:531.内表的声明
Internal Table 的宣告
    ABAP/4的 Internal Table 如同其它语言的数组结构, 在操作上可以有复制,删除,新增插入等功 
    能.
    1.使用 TYPE 叙述
   语法:
         TYPES   <t>   <type>   OCCURS   <n>
         宣告一个数组 <t>, 型态为 <type>, 长度为 <n>
         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   <f>   <type>   OCCURS   <n>   [WITH   HEADER   LINE]
            Example:
                    DATA   VECTOR   TYPE   I   OCCURS   10   WITH   HEADER   LINE.

3.直接宣告, 不使用 WORK AREA
语法:
      DATA: BEGIN   OF   <f>   OCCURS   <n>,
              <component 宣告>
             END   OF   <f>.


    Example:
            DATA: BEGIN   OF   ITAB   OCCURS   10,
                   COL1   TYPE   I,
                   COL2   TYPE   I,
                  END   OF   ITAB.
                  如此产生的Internal Table 不会有 Work Area, 也就是宣告时不会 Reference
                  其它的 Conponent 宣告

4.Append Line
    语法:
         APPEND   [<wa>]   TO   [Initial Line To]   <itab>
         [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
5.加入另一Internal Table的元素
    语法:
          APPEND   LINES   OF   <itab1>   [FROM <n1>] [TO <n2>]   TO   <itab2>
          将<itab1>的元素加入至<itab2>中, 可选取自<n1>至<n2>的范围
          Example:
                   APPEND   LINES   OF   ITAB   TO   JTAB.
                   将ITAB所有元素加入JTAB中

&Collect   Line
    在加入新元素时将有相同standard key(非数值字段)的数值字段汇总
    语法:
         COLLECT   [<wa>   INTO]   <itab>

        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   [<wa> INTO] [INITIAL   LINE   INTO]   <itab>   [INDEX   <idx>]
        
          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   <itab1>   [FROM <n1> TO <n2>]   TO   <itab2>   INDEX <idx>
         将<itab1>的元素插入至<itab2>中, 位置在 <idx>之前, 可选取自<n1>至<n2>的范围
          Example:
                   APPEND   LINES   OF   ITAB   TO   JTAB   INDEX   3.
                   将ITAB所有元素插入JTAB中, 位置在第三个元素之前

&Internal Table元素数据的读取
    语法:
          LOOP   AT   <itab>   [INTO <wa>] [FROM <n1> TO <n2>] [WHERE <condition>]
             <loop   expression>
          ENDLOOP.
          根据设定的范围选取原素资料, 读完后自动移往下一笔
          Example:
                   LOOP   AT   ITAB   INTO   LINE   WHERE   COL1 >100.
                      WRITE:   /   SY-TABIX,LINE-COL1.
                   ENDLOOP.
                   仅读取 COL1 > 100 的元素

&读取Internal Table指定位置的元素
    语法:
          READ   TABLE   <itab>   [INTO <wa>]   INDEX   <idx>
          自指定位置 <idx> 读取元素数据
          Example:
                    READ   TABLE   ITAB   INTO   LINE   INDEX   5
                    读取 ITAB的第5个元素数据, 放入 LINE的字段中

&根据字段内容寻找
    语法:
           READ   TABLE   <itab>   INTO   <wa>
           Example:
                   ITAB-COL1 = ‘ABC’.
                   READ   TABLE   ITAB   INTO   LINE.
                   找出ITAB 中 COL1 字段内容是 ABC 的元素, 找到的值放入 LINE 中
                   若找到 SY-SUBRC传回0, 找不到则传回 4, <itab>必须宣告有 work area
&异动元素内容
    语法:
          MODIFY   <itab>   [FROM <wa>] [INDEX <idx>] [TRANSPORTING <f1>…<f2>]
                    [WHERE <condition>]
          TRANSPORTING   <f1> ..<f2> : 指定异动的字段名称
          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   <itab>   INDEX   <idx>
         Example:
                  DELETE　ITAB   INDEX   4
                  删除第四个元素
   加上删除条件:
         DELETE   <itab> [FROM <n1> TO <n2>]   [WHERE <condition>
         Example:
                  DELETE   ITAB   FROM   3   TO   10.
                  删除第3至第10个元素
  
&Internal Table Sorting
   语法:
         SORT   <itab>   [<order>]   [BY <f1>] ….
         [<order>] : 可分成递减(DESCENDING)和递增(ASCENDING), 空白表 ASCENDING
         <f1>:为指定的字段
         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   <itab>
使用在没有 HEADER LINE 的 Internal Table中, 清除所有元素
      Example:
               REFRESH   ITAB.
 
2. CLEAR   <itab>[ ]
使用在有 HEADER LINE 的 Internal Table中, 清除所有元素
      Example:
               CLEAR   ITAB[ ].

3. FREE   <itab>
释放(Release) Internal Table所占的内存空间, 用在 REFRESH和 CLEAR指令之后
Example:
         FREE   ITAB.