【正文】 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 。在第一個 READ 語句之后， 將 SYSUBRC 設(shè)置為2， 因為找到了 索引為 4 的行，但內(nèi) 表和目標(biāo)區(qū) 域 LINE 的 COL1 和 COL2 內(nèi)容不同。 但將內(nèi)表讀 入 LINE 并在下一個 READ 語句之后 SYSUBRC 返回0。下 圖顯示主要 步驟：19讀取部分單 行要讀取部分 單行，請使 用 READ 語句的 TRANSPORTING 選項，用法 如下：語法READ TABLE itab [INTO wa] keyoption TRANSPORTING fields.系統(tǒng)讀取由 關(guān)鍵字或 key option 中索引指定 的單行。讀 取行之后， 將 fields 中指定的組 件傳輸給目 標(biāo)區(qū)域。可 以使用 INTO 選項指定目 標(biāo)區(qū)域 wa。 如果表格有 表頭行，可 以忽略 INTO 選項。這樣 ，表格工作 區(qū)域就成了 目標(biāo)區(qū)域。對于 fields， 可以用... F1 ...fn 指定一系列 組件。也可以用... NO FIELDS指定不傳輸 任何組件。對于后一種 情況，READ 語句只影響 系統(tǒng)字段 SYSUBRC 和 SYTABIX。關(guān)于 READ 語句的詳細 信息，參見 關(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 語句僅將 COL2 字段讀入字 段串 LINE。20確定內(nèi)表屬 性如果在處理 過程中想知 道內(nèi)表一共 包含多少行 ，或者想知 道定義的 OCCURS 參數(shù)的大小 ，請使用 DESCRIBE 語句，用法 如下：語法DESCRIBE TABLE itab [LINES lin] [OCCURS occ].如果使用 LINES 參數(shù)，則將 填充行的數(shù) 量寫入變量 lin。 如果使用 OCCURS 參數(shù)，則將 行的初始號 寫入變量 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 語句。更改 當(dāng)前行號， 但無法更改 初始行號。21更改和刪除 內(nèi)表行要修改已填 充的內(nèi)表內(nèi) 容，可以更改行刪除行21用 MODIFY 更改行要用 MODIFY 語句更改行 ，請使用：語法MODIFY itab [FROM wa] [INDEX idx].FROM 選項中指定 的工作區(qū)域 wa 代替 itab 中的行。如 果表格有表 頭行，可以 忽略 FROM 選項。這樣 ，表格工作 區(qū)域就代替 行。如果使用 INDEX 選項，則新 行代替索引 為 idx 的現(xiàn)有行。 如果替換成 功，則將 SYSUBRC 設(shè)置為0。 如果內(nèi)表包 含的行少于 idx， 則不更改任 何行并且 SYSUBRC 包含4。如果使用沒 有 INDEX 選項的 MODIFY 語句，則系 統(tǒng)只能在 LOOP ENDLOOP 塊中通過更 改當(dāng)前行（ 例如由 SYTABIX 返回其索引 的行）來處 理它。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， 并用三行對 其進行填充 。用字段串 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， 并用兩行對 其進行填充 。在第一個 LOOP ENDLOOP 塊中，用字 段串 LINE 的內(nèi)容代替 第二行。22用 WRITE TO 更改行要用 WRITE TO 語句更改行 ，請使用下 列語法：語法WRITE f[+o1][(l1)] TO itab[+o2][(l2)] INDEX idx.將字段 f 中偏移量為 o1， 長度為 l1 部分的內(nèi)容 復(fù)制到索引 為 idx 的表格行中 ，覆蓋偏移 量為 o2， 長度為 l2 的部分。請 注意，即使 對于有表頭 行的表格， 帶 INDEX 選項的 WRITE TO 語句也不訪 問表格工作 區(qū)域，而是 訪問表格的 某一行。該語句是 用偏移量規(guī)范分配值 (頁 6–3) 中所述的 WRITE TO 語句的變式 。WRITE TO 語句不能識 別表格行的 結(jié)構(gòu)。SAP 建議只在（ 例如）轉(zhuǎn)換 已知其確切 位置的標(biāo)志 時才使用該 語句。另一 種情況是用 一個基本字 符字段定義 的內(nèi)表。該 結(jié)構(gòu)的表格 非常重要， 例如，用于 程序的動態(tài) 生成（參見 動態(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個 字符長的基 本類型 C 字段定義內(nèi) 表 CODE。 用三行對表 格進行填充 之后，使用 WRITE TO 語句更改第 二行。單詞 “ugly” 由單詞“nice” 代替。23在循環(huán)中刪 除行要在循環(huán)中 從內(nèi)表中刪 除行，請使 用 DELETE 語句，用法 如下：語法DELETE itab.系統(tǒng)只能在 LOOP ENDLOOP 塊中處理該 語句（參見 逐行讀取內(nèi)表 (頁 Error! Reference source not found.) ）。這刪除 當(dāng)前行（例 如有 SYTABIX 返回的索引 的行）。刪除第一行 后，可以取 消當(dāng)前行的 定義并取消 其對 SYTABIX 內(nèi)容的賦值 。要在該循 環(huán)內(nèi)進一步 處理行，請 僅使用有 INDEX 選項的語句 。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行對 其進行填充 。在第一個 LOOP ENDLOOP 塊中，刪除 COL1 字段中所有 條目小于28的 行。23用索引刪除 行要使用索引 刪除行，請 使用有 INDEX 選項的 DELETE 語句，用法 如下：語法DELETE itab INDEX idx.如果使用 INDEX 選項，則從 ITAB 中刪除索引 為 idx 的行。刪除 行之后，下 面行的索引 減1。如果操作成 功，則將 SYSUBRC 設(shè)置為0。 否則，如果 不存在索引 為 idx 的行，則 SYSUBRC 包含 4。如果在 LOOP ENDLOOP 塊中刪除某 一條目，則 當(dāng)前行及其 對 SYTABIX 內(nèi)容的賦值 可成為未定 義。要在該 循環(huán)內(nèi)進一 步處理行， 請僅使用有 INDEX 選項的語句 。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.