【文章內(nèi)容簡介】 少應(yīng)包含一 個 EXIT、 STOP 或 REJECT 語句，以便 系統(tǒng)能夠退 出循環(huán)。本例顯示 DO 循環(huán)的基本 格式。DO.WRITE SYINDEX. IF SYINDEX = 3. EXIT. ENDIF.ENDDO.產(chǎn)生如下輸 出： 1 2 3這里，處理 3 次循環(huán)，然 后在 EXIT 語句后退出 循環(huán)?？梢匀我馇?套 DO 循環(huán)，也可 以與其他循 環(huán)組合使用 。本例顯示 2 個嵌套循環(huán) ，都使用 TIMES 選項。DO 2 TIMES. WRITE SYINDEX. SKIP. DO 3 TIMES. WRITE SYINDEX. ENDDO. SKIP.ENDDO.產(chǎn)生如下輸 出： 1 1 2 3 2 1 2 3外部循環(huán)執(zhí) 行 2 次。每次執(zhí) 行外部循環(huán) 時，內(nèi)部循 環(huán)都執(zhí)行 3 次。注意系 統(tǒng)字段 SYINDEX 記錄每個循 環(huán)各自的循 環(huán)次數(shù)?？梢允褂?VARYING 選項在每次 循環(huán)中給變 量 f 重新賦值。 F F F ... 必需是內(nèi)存 中類型相同 和長度相等 的一系列等 距字段。第 一次循環(huán)中 ，將 F1 分配給 f，第 二次循環(huán)中 ，將 F2 分配給 f，以 此類推。可 以在一個 DO 語句中使用 多個 VARYING 選項。如果在 DO 循環(huán)中改變 控制變量 f，則 系統(tǒng)將自動 改變相應(yīng)的 字段 fi。應(yīng)保證循環(huán) 次數(shù)不超過 涉及到的變 量 F F F3 的數(shù)量。該示例說明 如何在 DO 循環(huán)中使用 VARYING 選項。DATA: BEGIN OF TEXT, WORD1(4) VALUE 39。This39。, WORD2(4) VALUE 39。is39。, WORD3(4) VALUE 39。a39。, WORD4(4) VALUE 39。loop39。, END OF TEXT.DATA: STRING1(4), STRING2(4).DO 4 TIMES VARYING STRING1 FROM TEXTWORD1 NEXT TEXTWORD2. WRITE STRING1. IF STRING1 = 39。is39。. STRING1 = 39。was39。. ENDIF.ENDDO.SKIP.DO 2 TIMES VARYING STRING1 FROM TEXTWORD1 NEXT TEXTWORD3 VARYING STRING2 FROM TEXTWORD2 NEXT TEXTWORD4. WRITE: STRING1, STRING2.ENDDO.這產(chǎn)生如下 輸出：This is a loopThis was a loop字段串 TEXT 代表內(nèi)存中 四個等距字 段序列。每 次執(zhí)行第一 個 DO 循環(huán)時，都 依次將其組 件分配到 STRING1 中。如果 STRING1 包含“is” ，則將其改 變?yōu)椤皐as” ，而且自動 將 TEXTWORD2 改變?yōu)椤皐as” 。每次執(zhí)行 第二個 DO 循環(huán)時，將 TEXT 的組件傳遞 給STRING1和 STRING2。15使用 WHILE 的條件循環(huán)如果只要條 件為真，就 不止一次執(zhí) 行語句，可 以如下使用 WHILE 語句編程：語法WHILE condition [VARY f FROM F1 NEXT F2]. statement blockENDWHILE.只要 condition 是真，或系 統(tǒng)發(fā)現(xiàn) EXIT、 STOP 或 REJECT 語句，系統(tǒng) 將繼續(xù)執(zhí)行 由 WHILE 語句引導(dǎo)、 ENDWHILE 結(jié)束的語句 塊（參見 終止循環(huán) (頁 8–３２) ）。對于 condition， 可以使用 編程邏輯表 達(dá)式 (頁 8–２０) 中描述的任 何邏輯表達(dá) 式。系統(tǒng)字段 SYINDEX 中包含已執(zhí) 行的循環(huán)次 數(shù)?？梢匀我馇?套 WHILE 循環(huán)，也可 與其他循環(huán) 結(jié)合使用。WHILE 語句的 VARY 選項與 DO 循環(huán)的 VARYING 選項工作方 式一樣（參 見使用 DO 的無條件循 環(huán) (頁 8–２９) ）。允許 每次執(zhí)行循 環(huán)時為變量 f 重新賦值。 F F F ... 必需是內(nèi)存 中類型相同 和長度相等 的一系列等 距字段。第 一次循環(huán)時 ，將 F1 分配給 f，第 二次循環(huán)時 ，將 F2 分配給 f，以 此類推?？?以在一個 WHILE 語句中使用 多個 VARY 選項。使用 WHILE 語句要避免 死循環(huán)。請 記住，在一 段時間之后 ，WHILE 語句條件應(yīng) 變?yōu)榧?，?者系統(tǒng)能夠 找到 EXIT、 STOP 或 REJECT 語句退出循 環(huán)。DATA: LENGTH TYPE I VALUE 0, STRL TYPE I VALUE 0, STRING(30) TYPE C VALUE 39。Test String39。.STRL = STRLEN( STRING ).WHILE STRING NE SPACE. WRITE STRING(1). LENGTH = SYINDEX. SHIFT STRING.ENDWHILE.WRITE: / 39。STRLEN: 39。, STRL.WRITE: / 39。Length of string:39。, LENGTH.產(chǎn)生如下輸 出：T e s t S t r i n gSTRLEN: 11Length of string: 11此處使用 WHILE 循環(huán)確定字 符串的長度 。做法是： 每次執(zhí)行循 環(huán)時，都將 字符串左移 一位，直到 僅包含空格 。選擇本例 主要是為了 說明 WHILE 語句。但是 ，確定字符 串長度更簡 便和有效的 辦法是通過 使用內(nèi)置的 函數(shù) STRLEN， 這在示例中 也可看出。16終止循環(huán)要終止循環(huán) 過程，請使 用下列關(guān)鍵 字之一。關(guān)鍵 字用途無條 件終 止 循 環(huán)過 程 (頁 8–３２) CONTINUE 有條 件終 止 循 環(huán)過 程 (頁 8–３３) CHECK 完全 終止 循 環(huán) (頁 8–３３) EXIT 在循環(huán)中只 能使用 CONTINUE， 但在循環(huán)外 還可使用關(guān) 鍵字 CHECK 和 EXIT， 分別完成不 同的功能。 例如，可以 終止子程序 或整個程序 塊。關(guān)于 CHECK 和 EXIT 語句及其如 何在循環(huán)外 使用的詳細(xì) 信息，參見終止子系統(tǒng) 和 終止處理塊 。以下主題說 明如何在 DO 和WHILE 循環(huán)以及下 列循環(huán)中使 用 CONTINUE、 CHECK 和 EXIT：_ LOOP ENDLOOP 循環(huán)，用于 處理內(nèi)表（ 參見 循環(huán)處理 (頁 Error! Not a valid link.) ）。_ SELECT ENDSELECT 循環(huán)，用于 從數(shù)據(jù)表中 讀取數(shù)據(jù)（ 參見 從幾行選擇所有數(shù)據(jù)）。17無條件終止 循環(huán)過程要立即無條 件終止循環(huán) ，請如下使 用 CONTINUE 語句：語法CONTINUE.在CONTINUE 語句之后， 系統(tǒng)跳過當(dāng) 前語句塊中 所有剩余語 句塊，繼續(xù) 該語句后面 的循環(huán)。DO 4 TIMES. IF SYINDEX = 2. CONTINUE. ENDIF. WRITE SYINDEX.ENDDO.產(chǎn)生如下輸 出： 1 3 4此處系統(tǒng)不 處理 WRITE 語句就終止 第二次循環(huán) 。17有條件終止 循環(huán)過程要有條件終 止循環(huán)過程 ，請如下使 用 CHECK 語句：語法CHECK condition.如果條件是 假，系統(tǒng)跳 過當(dāng)前語句 塊中所有剩 余語句塊， 繼續(xù)后面的 循環(huán)過程。 對于condition， 可使用 編程邏輯表 達(dá)式 (頁 8–２０) 中描述的任 何邏輯表達(dá) 式。DO 4 TIMES. CHECK SYINDEX BETWEEN 2 and 3. WRITE SYINDEX.ENDDO.產(chǎn)生如下輸 出： 2 3此處系統(tǒng)不 處理 WRITE 語句就終止 第一個和第 四個循環(huán)， 因為 SYINDEX 不在 2 和 3 之間。18完全終止循 環(huán)要無條件完 全終止循環(huán) ，請如下使 用 EXIT 語句：語法EXIT.EXIT 語句之后， 系統(tǒng)立即退 出循環(huán)，繼 續(xù)結(jié)束語句 (ENDDO、 ENDWHILE、 ENDSELECT)后 面的處理。 在嵌套循環(huán) 中，系統(tǒng)僅 退出當(dāng)前循 環(huán)。DO 4 TIMES. IF SYINDEX = 3. EXIT. ENDIF.WRITE SYINDEX.ENDDO.產(chǎn)生如下輸 出： 1 2此處系統(tǒng)不 處理 WRITE 語句或第四 個循環(huán)過程 ，就在第三 個循環(huán)過程 中完全終止 循環(huán)。213。194。 8: 概覽內(nèi)容ABAP/4中 流控制的概 念 編程邏輯表 達(dá)式 比較所有的 字段類型 比較字符串 和數(shù)字串 二進(jìn)制位結(jié) 構(gòu)的比較 檢查字段是 否屬于某一 范圍 檢查初始值 檢查選擇條 件 組合幾個邏 輯表達(dá)式 編程分支和 循環(huán) 使用 IF 的條件分支 使用 CASE 的條件分支 使用 DO 的無條件循 環(huán) 使用 WHILE 的條件循環(huán) 終止循環(huán) 要根據(jù)一定 條件執(zhí)行程 序組件，或 要將重復(fù)語 句序列組合 在循環(huán)中， 可以使用 ABAP/4 提供的用于 控制程序流 的標(biāo)準(zhǔn)關(guān)鍵 字。ABAP/4 也包含重要 的附加特征 。ABAP/4 程序流可以 內(nèi)部控制和 外部控制。 ABAP/4 程序流的內(nèi) 部控制和外 部控制之間 的差別在ABAP/4中 流控制的概 念 (頁 8–１９) 中 解釋。本節(jié)主要討 論內(nèi)部流控 制。為此， 可使用其他 編程語言（ 例如，C、 FORTRAN、 PASCAL 等等）中熟 悉的標(biāo)準(zhǔn)控 制關(guān)鍵字。下列主題描 述19ABAP/4中 流控制的概 念與其他高級 編程語言一 樣（如，C、 FORTRAN 和 PASCAL 等等），ABAP/4 提供也用于 控制程序流 的標(biāo)準(zhǔn)關(guān)鍵 字。這些關(guān) 鍵字用于_ 分支 (IF、CASE)_ 循環(huán) (DO、WHILE)然而，ABAP/4 與其他編程 語言不同之 處在于其具 有程序流的 內(nèi)部控制和 外部控制。_ 內(nèi)部控制 由上述標(biāo)準(zhǔn) 關(guān)鍵字引導(dǎo) 。在程序代 碼中對其進(jìn) 行定義。_ 外部控制 由事件引導(dǎo) 。事件由 ABAP/4 程序（系統(tǒng) 程序或用戶 程序）或者 交互式用戶 輸入（例如 ，使用鼠標(biāo) 在屏幕上單 擊）生成。 系統(tǒng)不必按 ABAP/4 程序中列出 的順序?qū)M(jìn) 行語句處理 。這使得 ABAP/4 成為事件驅(qū) 動編程語言 ，類似于 Microsoft 的Visual Basic。時間事件和 ABAP/4 程序的連接 由事件關(guān)鍵 字提供。ABAP/4 程序中的每 個語句都屬 于特別的事 件關(guān)鍵字。 即使在程序 中沒有指定 任何事件關(guān) 鍵字，所有 語句都自動 歸屬于標(biāo)準(zhǔn) 事件關(guān)鍵字 （STARTOFSELECTION） ，與程序中 事件語句的 次序完全不 相干。所有屬于某 一特定事件 關(guān)鍵字的語 句形成一個 處理塊。處 理塊是一個 在事件發(fā)生 時執(zhí)行的模 塊。處理塊 內(nèi)的程序流 依賴于內(nèi)部 控制。系統(tǒng) 按順序處理 語句，或按 照前面提到 的標(biāo)準(zhǔn)關(guān)鍵 字定義的順 序處理。ABAP/4 程序常規(guī)結(jié) 構(gòu)如下：假設(shè)當(dāng)用戶 選擇一行后 ，生成列表 且提供一些 細(xì)分設(shè)備的 報表程序必 須作出反應(yīng) （詳細(xì)信息 ，參見 交互列表）。需要為 該事件處理 的代碼必須 插入事件關(guān) 鍵字 AT LINESELECTION 之后。AT LINESELECTION. MOVE 39。X39。 TO FLAG. .....無論何時用 戶通過單擊 鼠標(biāo)或按 F2 鍵在列表中 選擇一個項 目時，AT LINESELECTION 和下一個事 件關(guān)鍵字之 間的所有語 句將被處理關(guān)于外部控 制的詳細(xì)信 息，如事件 及其如何與 ABAP/4 程序相互作 用的信息， 參見 C通過事件控制 ABAP/4 程序流。該節(jié)說明如 何使用外部 控制控制處 理塊內(nèi)的程 序流。要控制 ABAP/4 程序中的內(nèi) 部流，請遵 循結(jié)構(gòu)化編 程原則并將 程序模塊劃 分為單個邏 輯相關(guān)語句 塊（這些組 成控制結(jié)構(gòu) ）。其中的 每個語句塊 都執(zhí)行主任 務(wù)的一部分 。要使程序易 于閱讀，應(yīng) 該縮排控制 結(jié)構(gòu)中的語 句塊。出于 布局需要， 可以使用 ABAP/4 編輯器功能 “編輯 插入語句...” 和“程序 整齊打印程 序”(詳細(xì) 信息，參見 ABAP/4 程序布局 (頁 2–6))?？梢杂?IF、CASE、 DO 和 WHILE 之類的關(guān)鍵 字控制處理 塊中不同語 句之間的程 序流。這些 語句允許編 制條件和無 條件的分