【正文】 2. LINECOL2 = 4. LINECOL3 = 8.READ TABLE ITAB INTO LINE INDEX 4 COMPARING COL1 COL2.WRITE: / SYSUBRC, SYTABIX.READ TABLE ITAB INTO LINE INDEX 4 COMPARING COL1 COL2.WRITE: / SYSUBRC, SYTABIX.其輸出為： 2 4 0 4在此創(chuàng)建并 填充內(nèi)表 ITAB 。在第一個(gè) READ 語(yǔ)句之后， 將 SYSUBRC 設(shè)置為2， 因?yàn)檎业搅?索引為 4 的行，但內(nèi) 表和目標(biāo)區(qū) 域 LINE 的 COL1 和 COL2 內(nèi)容不同。 但將內(nèi)表讀 入 LINE 并在下一個(gè) READ 語(yǔ)句之后 SYSUBRC 返回0。下 圖顯示主要 步驟：19讀取部分單 行要讀取部分 單行，請(qǐng)使 用 READ 語(yǔ)句的 TRANSPORTING 選項(xiàng)，用法 如下：語(yǔ)法READ TABLE itab [INTO wa] keyoption TRANSPORTING fields.系統(tǒng)讀取由 關(guān)鍵字或 key option 中索引指定 的單行。讀 取行之后， 將 fields 中指定的組 件傳輸給目 標(biāo)區(qū)域?？?以使用 INTO 選項(xiàng)指定目 標(biāo)區(qū)域 wa。 如果表格有 表頭行，可 以忽略 INTO 選項(xiàng)。這樣 ，表格工作 區(qū)域就成了 目標(biāo)區(qū)域。對(duì)于 fields， 可以用... F1 ...fn 指定一系列 組件。也可以用... NO FIELDS指定不傳輸 任何組件。對(duì)于后一種 情況，READ 語(yǔ)句只影響 系統(tǒng)字段 SYSUBRC 和 SYTABIX。關(guān)于 READ 語(yǔ)句的詳細(xì) 信息，參見(jiàn) 關(guān)鍵字文檔 。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, COL3 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DO 10 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. LINECOL3 = SYINDEX ** 3. APPEND LINE TO ITAB.ENDDO.CLEAR LINE.READ TABLE ITAB INTO LINE INDEX 5 TRANSPORTING COL2.WRITE: / LINECOL1, LINECOL2, LINECOL3.其輸出為： 0 25 0在此創(chuàng)建并 填充內(nèi)表 ITAB。 READ 語(yǔ)句僅將 COL2 字段讀入字 段串 LINE。20確定內(nèi)表屬 性如果在處理 過(guò)程中想知 道內(nèi)表一共 包含多少行 ，或者想知 道定義的 OCCURS 參數(shù)的大小 ，請(qǐng)使用 DESCRIBE 語(yǔ)句，用法 如下：語(yǔ)法DESCRIBE TABLE itab [LINES lin] [OCCURS occ].如果使用 LINES 參數(shù)，則將 填充行的數(shù) 量寫(xiě)入變量 lin。 如果使用 OCCURS 參數(shù)，則將 行的初始號(hào) 寫(xiě)入變量 occ。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DATA: LIN TYPE I, OCC TYPE I.DESCRIBE TABLE ITAB LINES LIN OCCURS OCC.WRITE: / LIN, OCC.DO 1000 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB.ENDDO.DESCRIBE TABLE ITAB LINES LIN OCCURS OCC.WRITE: / LIN, OCC.其輸出為： 0 10 10在此創(chuàng)建內(nèi) 表 ITAB。 在填充表格 前后執(zhí)行 DESCRIBE 語(yǔ)句。更改 當(dāng)前行號(hào)， 但無(wú)法更改 初始行號(hào)。21更改和刪除 內(nèi)表行要修改已填 充的內(nèi)表內(nèi) 容，可以更改行刪除行21用 MODIFY 更改行要用 MODIFY 語(yǔ)句更改行 ，請(qǐng)使用：語(yǔ)法MODIFY itab [FROM wa] [INDEX idx].FROM 選項(xiàng)中指定 的工作區(qū)域 wa 代替 itab 中的行。如 果表格有表 頭行，可以 忽略 FROM 選項(xiàng)。這樣 ，表格工作 區(qū)域就代替 行。如果使用 INDEX 選項(xiàng)，則新 行代替索引 為 idx 的現(xiàn)有行。 如果替換成 功，則將 SYSUBRC 設(shè)置為0。 如果內(nèi)表包 含的行少于 idx， 則不更改任 何行并且 SYSUBRC 包含4。如果使用沒(méi) 有 INDEX 選項(xiàng)的 MODIFY 語(yǔ)句，則系 統(tǒng)只能在 LOOP ENDLOOP 塊中通過(guò)更 改當(dāng)前行（ 例如由 SYTABIX 返回其索引 的行）來(lái)處 理它。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DO 3 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB.ENDDO.LINECOL1 = 10. LINECOL2 = 10 ** 2 .MODIFY ITAB FROM LINE INDEX 2.LOOP AT ITAB INTO LINE. WRITE: / SYTABIX, LINECOL1, LINECOL2.ENDLOOP.其輸出為： 1 1 1 2 10 100 3 3 9在此創(chuàng)建內(nèi) 表 ITAB， 并用三行對(duì) 其進(jìn)行填充 。用字段串 LINE 的內(nèi)容代替 第二行。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DO 3 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB.ENDDO.LOOP AT ITAB INTO LINE. IF SYTABIX = 2. LINECOL1 = SYTABIX * 10. LINECOL2 = ( SYTABIX * 10 ) ** 2 . MODIFY ITAB FROM LINE. ENDIF.ENDLOOP.LOOP AT ITAB INTO LINE. WRITE: / SYTABIX, LINECOL1, LINECOL2.ENDLOOP.其輸出為： 1 3 5 2 20 400 3 3 9在此創(chuàng)建內(nèi) 表 ITAB， 并用兩行對(duì) 其進(jìn)行填充 。在第一個(gè) LOOP ENDLOOP 塊中，用字 段串 LINE 的內(nèi)容代替 第二行。22用 WRITE TO 更改行要用 WRITE TO 語(yǔ)句更改行 ，請(qǐng)使用下 列語(yǔ)法：語(yǔ)法WRITE f[+o1][(l1)] TO itab[+o2][(l2)] INDEX idx.將字段 f 中偏移量為 o1， 長(zhǎng)度為 l1 部分的內(nèi)容 復(fù)制到索引 為 idx 的表格行中 ，覆蓋偏移 量為 o2， 長(zhǎng)度為 l2 的部分。請(qǐng) 注意，即使 對(duì)于有表頭 行的表格， 帶 INDEX 選項(xiàng)的 WRITE TO 語(yǔ)句也不訪 問(wèn)表格工作 區(qū)域，而是 訪問(wèn)表格的 某一行。該語(yǔ)句是 用偏移量規(guī)范分配值 (頁(yè) 6–3) 中所述的 WRITE TO 語(yǔ)句的變式 。WRITE TO 語(yǔ)句不能識(shí) 別表格行的 結(jié)構(gòu)。SAP 建議只在（ 例如）轉(zhuǎn)換 已知其確切 位置的標(biāo)志 時(shí)才使用該 語(yǔ)句。另一 種情況是用 一個(gè)基本字 符字段定義 的內(nèi)表。該 結(jié)構(gòu)的表格 非常重要， 例如，用于 程序的動(dòng)態(tài) 生成（參見(jiàn) 動(dòng)態(tài)生成程序）。DATA CODE(72) OCCURS 10 WITH HEADER LINE.CODE = 39。This is the first line.39。.APPEND CODE.CODE = 39。This is the second line. It is ugly.39。.APPEND CODE.CODE = 39。This is the third and final line.39。.APPEND CODE.WRITE 39。nice.39。 TO CODE+31 INDEX 2.LOOP AT CODE. WRITE / CODE.ENDLOOP.其輸出為：This is the first line.This is the second line. It is nice.This is the third and final line.在此用72個(gè) 字符長(zhǎng)的基 本類(lèi)型 C 字段定義內(nèi) 表 CODE。 用三行對(duì)表 格進(jìn)行填充 之后，使用 WRITE TO 語(yǔ)句更改第 二行。單詞 “ugly” 由單詞“nice” 代替。23在循環(huán)中刪 除行要在循環(huán)中 從內(nèi)表中刪 除行，請(qǐng)使 用 DELETE 語(yǔ)句，用法 如下：語(yǔ)法DELETE itab.系統(tǒng)只能在 LOOP ENDLOOP 塊中處理該 語(yǔ)句（參見(jiàn) 逐行讀取內(nèi)表 (頁(yè) Error! Reference source not found.) ）。這刪除 當(dāng)前行（例 如有 SYTABIX 返回的索引 的行）。刪除第一行 后，可以取 消當(dāng)前行的 定義并取消 其對(duì) SYTABIX 內(nèi)容的賦值 。要在該循 環(huán)內(nèi)進(jìn)一步 處理行，請(qǐng) 僅使用有 INDEX 選項(xiàng)的語(yǔ)句 。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DO 30 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB.ENDDO.LOOP AT ITAB INTO LINE. IF LINECOL1 28. DELETE ITAB. ENDIF.ENDLOOP.LOOP AT ITAB INTO LINE. WRITE: / SYTABIX, LINECOL1, LINECOL2.ENDLOOP.其輸出為： 1 28 784 2 29 841 3 30 900在此創(chuàng)建內(nèi) 表 ITAB并 用30行對(duì) 其進(jìn)行填充 。在第一個(gè) LOOP ENDLOOP 塊中，刪除 COL1 字段中所有 條目小于28的 行。23用索引刪除 行要使用索引 刪除行，請(qǐng) 使用有 INDEX 選項(xiàng)的 DELETE 語(yǔ)句，用法 如下：語(yǔ)法DELETE itab INDEX idx.如果使用 INDEX 選項(xiàng)，則從 ITAB 中刪除索引 為 idx 的行。刪除 行之后，下 面行的索引 減1。如果操作成 功，則將 SYSUBRC 設(shè)置為0。 否則，如果 不存在索引 為 idx 的行，則 SYSUBRC 包含 4。如果在 LOOP ENDLOOP 塊中刪除某 一條目，則 當(dāng)前行及其 對(duì) SYTABIX 內(nèi)容的賦值 可成為未定 義。要在該 循環(huán)內(nèi)進(jìn)一 步處理行， 請(qǐng)僅使用有 INDEX 選項(xiàng)的語(yǔ)句 。DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DO 5 TIMES. LINECOL1 = SYINDEX. LINECOL2 = SYINDEX ** 2. APPEND LINE TO ITAB.ENDDO.DELETE ITAB INDEX: 2, 3, 4.WRITE: 39。SYSUBRC39。,SYSUBRC.