【文章內(nèi)容簡(jiǎn)介】 .DATA ITAB LIKE LINE OCCURS 10.DO 2 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB.ENDDO.LINECOL1 = 11. LINECOL2 = 22.INSERT LINE INTO ITAB INDEX 2.INSERT INITIAL LINE INTO ITAB INDEX 1.LOOP AT ITAB INTO LINE. WRITE: / SYTABIX, LINECOL1, LINECOL2.ENDLOOP.其輸出為： 1 0 0 2 1 1 3 11 22 4 2 4本示例創(chuàng)建 內(nèi)表 ITAB， 并用兩行對(duì) 其進(jìn)行填充 。在第二行 之前插入包 含值的新行 。然后，在 第一行之前 插入一個(gè)初 始化行。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DO 2 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB.ENDDO.LOOP AT ITAB INTO LINE. LINECOL1 = 3 * SYTABIX. LINECOL2 = 5 * SYTABIX. INSERT LINE INTO ITAB.ENDLOOP.LOOP AT ITAB INTO LINE. WRITE: / SYTABIX, LINECOL1, LINECOL2.ENDLOOP.其輸出為： 1 3 5 2 1 1 3 6 10 4 2 4本示例創(chuàng)建 內(nèi)表 ITAB， 并且用兩行 對(duì)其進(jìn)行填 充。在第一 個(gè) LOOP ENDLOOP 循環(huán)的每個(gè) 現(xiàn)有行之前 插入一個(gè)新 行。下圖顯 示示例是如 何工作的：10附加內(nèi)表行要將部分或 全部?jī)?nèi)表附 加到另一個(gè) 內(nèi)表中，請(qǐng) 使用 APPEND 語(yǔ)句，用法 如下：語(yǔ)法APPEND LINES OF itab1 [FROM n1] [TO n2] TO itab2.如果沒有 FROM 和 TO 選項(xiàng)，該語(yǔ) 句將整個(gè)表 格 ITAB1 附加到 ITAB2 中。如果使 用這些選項(xiàng) ，則可通過 索引 n1 或 n2 指定 ITAB1 中要附加的 第一或最后 一行。用該方式將 表格行附加 到另一個(gè)表 格中的速度 比在循環(huán)中 逐行進(jìn)行附 加快3到4倍 。在 APPEND 語(yǔ)句之后， 系統(tǒng)字段 SYTABIX 包含附加的 最后一行的 索引。DATA: BEGIN OF ITAB OCCURS 10. COL1 TYPE C, COL2 TYPE I, END OF ITAB.DATA JTAB LIKE ITAB OCCURS 10 WITH HEADER LINE.DO 3 TIMES. ITABCOL1 = SYINDEX. ITABCOL2 = SYINDEX ** 2. APPEND ITAB. JTABCOL1 = SYINDEX. JTABCOL2 = SYINDEX ** 3. APPEND JTAB.ENDDO.APPEND LINES OF JTAB FROM 2 TO 3 TO ITAB.LOOP AT ITAB. WRITE: / ITABCOL1, ITABCOL2.ENDLOOP.本示例創(chuàng)建 兩個(gè)相同類 型的內(nèi)表 ITAB 和 JTAB， 且都有表頭 行。在 DO 循環(huán)中，用 一系列平方 數(shù)填充 ITAB， 用一系列立 方數(shù)填充 JTAB。 然后將 JTAB 的最后兩行 附加到 ITAB 中。ITAB 的輸出如下 所示：1 12 43 92 83 2711插入內(nèi)表要將部分或 全部?jī)?nèi)表插 入到另一個(gè) 內(nèi)表中，請(qǐng) 使用 INSERT 語(yǔ)句，用法 如下：語(yǔ)法INSERT LINES OF itab1 [FROM n1] [TO n2] INTO itab2 [INDEX idx].如果沒有 FROM 和 TO 選項(xiàng)，該語(yǔ) 句將整個(gè)表 格 ITAB1 附加到 ITAB2 中。如果使 用這些選項(xiàng) ，則可通過 索引 n1 或 n2 指定 ITAB1 中要附加的 第一或最后 一行。如果使用 INDEX 選項(xiàng)，將 itab1 的行插入到 itab2 中索引為 idx 的行之前。 如果不使用 INDEX 選項(xiàng)，系統(tǒng) 只能在 LOOP ENDLOOP 塊中通過在 當(dāng)前行（例 如，其索引 在 SYTABIX 中返回的行 ）之前插入 新條目來處 理它。取決于表格 大小和插入 地點(diǎn)的不同 ，用該方式 將一個(gè)表格 插入到另一 個(gè)中的速度 比在循環(huán)中 逐行進(jìn)行插 入要快近20倍 。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10, JTAB LIKE LINE OCCURS 10.DO 3 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 3. APPEND LINE TO JTAB.ENDDO.INSERT LINES OF ITAB INTO JTAB INDEX 1.LOOP AT JTAB INTO LINE. WRITE: / SYTABIX, LINECOL1, LINECOL2.ENDLOOP.本示例創(chuàng)建 兩個(gè)類型相 同的內(nèi)表： ITAB 和 JTAB， 并且用 3 行對(duì)其進(jìn)行 填充。然后 將整個(gè)表格 ITAB 插入到 JTAB 的第一行之 前。JTAB 的輸出如下 所示： 1 1 1 2 2 4 3 3 9 4 1 1 5 2 8 6 3 2712復(fù)制內(nèi)表如果想一次 將內(nèi)表的全 部?jī)?nèi)容復(fù)制 到另一內(nèi)表 中，請(qǐng)使用 MOVE 語(yǔ)句或賦值 操作符 (=)，用 法如下：語(yǔ)法MOVE itab1 TO itab2.該語(yǔ)句等價(jià) 于：itab2 = itab1.也可進(jìn)行多 重賦值，例 如，itab4 = itab3 = itab2 = itab1.也是可能的 。ABAP/4 從右到左進(jìn) 行處理：itab2 = itab1.itab3 = itab2.itab4 = itab3.這些語(yǔ)句執(zhí) 行完整操作 。復(fù)制整個(gè) 表格內(nèi)容， 包括作為表 格組件的任 何其它內(nèi)表 的數(shù)據(jù)。覆 蓋目標(biāo)表格 原來的內(nèi)容 。語(yǔ)法與復(fù)制 基本字段相 同（詳細(xì)信 息，參見 基本分配操作 (頁(yè) 6–2) ）。對(duì)于有表頭 行的表格， 表格工作區(qū) 域和表格本 身同名。要 在上述語(yǔ)句 中進(jìn)行區(qū)分 ，必須在名 稱之后輸入 兩個(gè)方括號(hào) ([]) 來定位內(nèi)表 而不是表格 工作區(qū)域。可以僅將內(nèi) 表復(fù)制到其 它內(nèi)表中。 內(nèi)表不能轉(zhuǎn) 換為字段串 或基本字段 。要將內(nèi)表 復(fù)制到其它 內(nèi)表中，其 行類型必須 是可轉(zhuǎn)換的 （關(guān)于轉(zhuǎn)換 的詳細(xì)信息 ，參見 內(nèi)表的可轉(zhuǎn)換性 (頁(yè) 6–43) ）。DATA: BEGIN OF LINE, COL1, COL2, END OF LINE.DATA ETAB LIKE LINE OCCURS 10 WITH HEADER LINE.DATA FTAB LIKE LINE OCCURS 10.LINECOL1 = 39。A39。. LINECOL2 = 39。B39。.APPEND LINE TO ETAB.MOVE ETAB[] TO FTAB.LOOP AT FTAB INTO LINE. WRITE: / LINECOL1, LINECOL2.ENDLOOP.其輸出為：A B本示例創(chuàng)建 兩個(gè)行結(jié)構(gòu) LINE 相同的內(nèi)表 ：ETAB 和 FTAB。 創(chuàng)建的ETAB 包含表格工 作區(qū)域。在 用 APPEND 語(yǔ)句填充 ETAB 之后，將其 內(nèi)容復(fù)制到 FTAB。 請(qǐng)注意方括 號(hào)([])的 用法。DATA: ITAB TYPE I OCCURS 10, FTAB TYPE F OCCURS 10, FL TYPE F.DO 3 TIMES. APPEND SYINDEX TO ITAB.ENDDO.FTAB = ITAB.LOOP AT FTAB INTO FL. WRITE: / FL.ENDLOOP.其輸出為： +00 +00 +00其中，內(nèi)表 ITAB 具有基本行 類型 I，F(xiàn)TAB 具有基本行 類型 F。這些行 類型都是可 轉(zhuǎn)換的（關(guān) 于可轉(zhuǎn)換性 的詳細(xì)信息 ，參見 基本數(shù)據(jù)類型的可轉(zhuǎn)換性 (頁(yè) 6–37) ）并且可將 ITAB 復(fù)制到 FTAB 中。DATA: BEGIN OF ILINE, NUM TYPE I, END OF ILINE, BEGIN OF FLINE, NUM TYPE F, END OF FLINE, ITAB LIKE ILINE OCCURS 10, FTAB LIKE FLINE OCCURS 10.DO 3 TIMES. ILINENUM = SYINDEX. APPEND ILINENUM TO ITAB.ENDDO.FTAB = ITAB.LOOP AT FTAB INTO FLINE. WRITE: / FLINENUM.ENDLOOP.其輸出為：其中，內(nèi)表 ITAB 和 FTAB 的行類型都 是字段串， 每個(gè)都包含 類型 I 或 F 的組件。這 些字段串可 轉(zhuǎn)換，但不 兼容。因此 ，將 ITAB 賦給 FTAB 之后，將表 格 ITAB 的內(nèi)容轉(zhuǎn)換 為類型 C 字段，然后 寫入 FTAB（ 關(guān)于字段串 可轉(zhuǎn)換性的 詳細(xì)信息， 參見 字段串的可轉(zhuǎn)換性 (頁(yè) 6–41) ）。系統(tǒng)將 傳輸?shù)臄?shù)據(jù) 解釋為類型 F 字段，并獲 得毫無意義 的結(jié)果。14讀取內(nèi)表要讀取內(nèi)表 的內(nèi)容以便 進(jìn)一步處理 ，可以使用 LOOP 或 READ 語(yǔ)句。使用 LOOP 語(yǔ)句逐行讀 取內(nèi)表?？梢杂?READ 語(yǔ)句選定單 行：讀取單行后 ，可以作如 下工作可以使用 DESCRIBE 語(yǔ)句確定內(nèi) 表屬性。14逐行讀取內(nèi) 表要將內(nèi)表逐 行讀入工作 區(qū)域，可以 使用 LOOP 語(yǔ)句編一個(gè) 循環(huán)。語(yǔ)法 如下所示：語(yǔ)法LOOP AT itab [INTO wa] [FROM n1] [TO n2] [WHERE condition]. .....ENDLOOP.用 INTO 選項(xiàng)指定目 標(biāo)區(qū)域 wa。 如果表格有 表頭行，則 可以忽略 INTO 選項(xiàng)。這樣 ，表格工作 區(qū)域就成了 目標(biāo)區(qū)域。逐行將內(nèi)表 itab 讀入 wa 或表格工作 區(qū)域 itab。 對(duì)于讀取的 每一行，系 統(tǒng)都處理以 LOOP 開始，以 ENDLOOP 結(jié)束的語(yǔ)句 塊?？梢杂?控制關(guān)鍵字 AT 在 LOOP ENDLOOP 塊內(nèi)控制語(yǔ) 句塊流（參 見 循環(huán)處理 (頁(yè) Error! Reference source not found.) ）。在語(yǔ)句塊內(nèi) ，系統(tǒng)字段 SYTABIX 包含當(dāng)前行 的索引。處 理完表格的 所有行之后 循環(huán)結(jié)束。 在 ENDLOOP 語(yǔ)句之后， 如果至少讀 取了一行， 則將系統(tǒng)字 段 SYSUBRC 設(shè)置為0。 否則，將其 設(shè)置為4?？梢允褂?FROM、 TO 或 WHERE 選項(xiàng)限制要 在循環(huán)中進(jìn) 行處理的行 數(shù)。_ 使用 FROM 選項(xiàng)，可以 用 n1 指定要讀取 的第一行_ 使用 TO 選項(xiàng)，可以 用 n2 指定要讀取 的最后一行 。_ 用 WHERE 選項(xiàng)，可以