ABAP6处理内表.docVIP

Processing Internal Table 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 0. 宣告一个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 宣告 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 加入另一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.