【正文】 ITE / 39。Flag is initial39。.ELSE. WRITE / 39。Flag is not initial39。.ENDIF.CLEAR FLAG.IF FLAG IS INITIAL. WRITE / 39。Flag is initial39。.ELSE. WRITE / 39。Flag is not initial39。.ENDIF.這產(chǎn)生如下 輸出：Flag is not initialFlag is initial.這里，DATA 語句之后， 字符串 FLAG 不包含初始 值，因為用 VALUE 參數(shù)設置為 ‘X’。執(zhí) 行 CLEAR 語句之后， 將其重置為 初始值。26檢查選擇條 件要檢查字段 內(nèi)容是否與 選擇表中的 選擇條件匹 配，可以如 下使用帶有 IN 參數(shù)的邏輯 表達式：語法... f IN seltab ....如果字段 f 內(nèi)容的符合 選擇表 seltab 中的條件， 則表達式為 真。關于選擇條 件的詳細信 息，參見 使用選擇標準。關于邏輯表 達式中檢查 選擇條件的 詳細信息， 包括示例， 參見 使用邏輯表達式中的選擇表。26組合幾個邏 輯表達式通過使用邏 輯連接運算 符 AND、OR 和 NOT，可 以將幾個邏 輯表達式組 合為單個表 達式： _ 要將幾個 邏輯表達式 組合為單個 表達式，且 該表達式僅 當所有組件 表達式為真 時才為真， 則表達式之 間要用 AND 連接。_ 要將幾個 邏輯表達式 組合為單個 表達式，且 只要其中一 個組件表達 式為真時， 該表達式即 為真，則表 達式之間要 用 OR 連接。_ 要轉(zhuǎn)化邏 輯表達式的 結果，請在 其前面指定 NOT。NOT 優(yōu)先于 AND，AND 優(yōu)先于 OR。但是 ，可以用任 何括弧組合 指定處理順 序。由于 ABAP/4 將括弧解釋 為單字，前 面或后面必 須至少有一 個空格。ABAP/4 從左到右處 理邏輯表達 式。如果確 定組件表達 式之一是真 或假，就不 再執(zhí)行該組 件中其余的 比較或檢查 。這意味著 采取這種方 法組織邏輯 表達式可以 提高性能， 就是將經(jīng)常 為假的比較 放置在 AND 鏈的開頭， 而將費時的 比較，如字 符串查找放 等到最后。DATA: F TYPE F VALUE 39。39。, N(3) TYPE N VALUE 39。12339。, C(3) TYPE C VALUE 39。45639。.WRITE 39。The following logical expression is true:39。.IF ( C LT N ) AND ( N GT F ). WRITE: / 39。(39。,C,39。lt39。,N,39。) AND (39。,N,39。gt39。,F,39。)39。.ELSE. WRITE: / 39。(39。,C,39。ge39。,N,39。) OR (39。,N,39。le39。,F,39。)39。.ENDIF.這產(chǎn)生如下 輸出：下列邏輯表達式為真： ( 456 ge 123 ) OR ( 123 le +02 )在本例中， 在 IF 語句中使用 邏輯表達式 。如果邏輯 表達式為真 ，則將其在 屏幕上顯示 出來。如果 為假，則屏 幕上出現(xiàn)相 反的表達式 。27編程分支和 循環(huán)可以在程序 中定義條件 和無條件分 支和循環(huán)。 為此，ABAP/4 提供了幾個 在下列主題 中描述的語 句。分支循環(huán)27使用 IF 的條件分支IF 語句允許依 據(jù)條件將程 序流轉(zhuǎn)到特 定的語句塊 中。該語句 塊包括 IF 語句及其后 面的 ELSEIF、 ELSE 或 ENDIF 之間的所有 命令。語法IF condition1. statement blockELSEIF condition2. statement blockELSEIF condition3. statement block.....ELSE. statement blockENDIF.如果第一個 條件是真， 系統(tǒng)將執(zhí)行 所有語句直 到第一個語 句塊結束， 然后繼續(xù)處 理 ENDIF 語句之后的 程序。要采 用選擇性條 件，可以使 用 ELSEIF 語句。如果 第一個條件 是假，系統(tǒng) 使用與 IF 語句一樣的 方式處理后 面的 ELSEIF 語句。如果 IF 或 ELSEIF 條件都為假 ，則執(zhí)行 ELSE 開始的語句 塊。最后的 語句塊必須 用 ENDIF 結束。要用公式表 達 IF 和 ELSEIF 語句中的條 件，可以使 用任何 編程邏輯表 達式 (頁 8–２０) 描述的邏輯 表達式。ABAP/4 允許無限地 嵌套 IF ENDIF 語句塊，但 是必須在相 同的處理塊 中終止。換 句話說，就 是 IF ENDIF 塊不能包含 事件關鍵字 。DATA: TEXT1(30) VALUE 39。This is the first text39。, TEXT2(30) VALUE 39。This is the second text39。, TEXT3(30) VALUE 39。This is the third text39。, STRING(5) VALUE 39。eco39。.IF TEXT1 CS STRING. WRITE / 39。Condition 1 is fulfilled39。.ELSEIF TEXT2 CS STRING. WRITE / 39。Condition 2 is fulfilled39。.ELSEIF TEXT3 CS STRING. WRITE / 39。Condition 3 is fulfilled39。.ELSE. WRITE / 39。No condition is fulfilled39。.ENDIF.產(chǎn)生如下輸 出：Condition 2 is fulfilled.這里，第二 個邏輯表達 式 TEXT2 CS STRING 是真，因為 字符串“eco” 存在于 TEXT2 中。28使用 CASE 的條件分支要根據(jù)特殊 數(shù)據(jù)字段的 內(nèi)容執(zhí)行不 同的語句塊 ，可以如下 使用 CASE 語句：語法CASE f. WHEN F1. statement block WHEN F2. statement block WHEN F3. statement block WHEN ... ...... WHEN OTHERS. statement blockENDCASE.系統(tǒng)執(zhí)行 WHEN 語句之后的 語句塊，如 果 f 內(nèi)容等于 fi 的內(nèi)容，且 繼續(xù)處理 ENDCASE 語句后面的 語句。如果 f 的內(nèi)容不等 于 fi 的內(nèi)容，則 執(zhí)行選項 WHEN OTHERS 后面的語句 塊。最后的 語句塊必須 用 ENDCASE 結束。使用 CASE 的條件分支 是帶 IF 的類似處理 的短格式：IF f = F1. statement blockELSEIF f = F2. statement blockELSEIF f = F3. statement blockELSEIF f = ... ...ELSE. statement blockENDIF.在 ABAP/4 中，可以嵌 套 CASE ENDCASE 塊，且可以 與 IF ENDIF 結合使用， 但必須在同 一處理塊中 終止。DATA: TEXT1 VALUE 39。X39。, TEXT2 VALUE 39。Y39。, TEXT3 VALUE 39。Z39。, STRING VALUE 39。A39。.CASE STRING. WHEN TEXT1. WRITE: / 39。String is39。, TEXT1. WHEN TEXT2. WRITE: / 39。String is39。, TEXT2. WHEN TEXT3. WRITE: / 39。String is39。, TEXT3. WHEN OTHERS. WRITE: / 39。String is not39。, TEXT1, TEXT2, TEXT3.ENDCASE.產(chǎn)生如下輸 出：String is not X Y Z這里，執(zhí)行 WHEN OTHERS 后面的語句 塊，因為 STRING 的內(nèi)容“A” 不等于“X” 、“Y”或 “Z”。29使用 DO 的無條件循 環(huán)如果想要多 次執(zhí)行語句 塊，則可以 如下使用 DO 語句編程循 環(huán)：語法DO [n TIMES] [VARYING f FROM F1 NEXT F2]. statement blockENDDO.在發(fā)現(xiàn) EXIT、 STOP 或 REJECT 語句之前， 系統(tǒng)繼續(xù)執(zhí) 行由 DO 引導、ENDDO 結束的語句 塊（參見 終止循環(huán) (頁 8–３２) ）?？梢允褂?TIMES 選項限制循 環(huán)次數(shù)。n 可以是文字 或變量。如 果 n 是 0 或負數(shù)，系 統(tǒng)不執(zhí)行該 循環(huán)。系統(tǒng)字段 SYINDEX 中包含已處 理過的循環(huán) 次數(shù)。使用 DO 語句時要避 免死循環(huán)。 如果不使用 TIMES 選項，則在 語句塊中至 少應包含一 個 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)將自動 改變相應的 字段 fi。應保證循環(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。31使用 WHILE 的條件循環(huán)如果只要條 件為真，就 不止一次執(zhí) 行語句，可 以如下使用 WHILE 語句編程：語法WHILE condition [VARY f FROM F1 NEXT F2]. statement blockENDWHILE.只要 condition 是真，或系 統(tǒng)發(fā)現(xiàn) EXIT、 STOP