abap語(yǔ)法詳解第104章通過(guò)事件控制

1、通過(guò)事件控 制 ABAP/4 程序流第四章概覽內(nèi)容定義過(guò) ABAP/4 處理程序事件及其事 件關(guān)鍵字INITIALIZATIONAT SELECTION-SCREENSTART-OF-SELECTIONGET GET LATEEND-OF-SELECTION終止過(guò)無(wú)條件地離 開(kāi)過(guò)有條件地離 開(kāi)過(guò)無(wú)條件地離 開(kāi) GET 事件有條件地離 開(kāi) GET 事件ABAP/4 是事件驅(qū)動(dòng) 語(yǔ)言。這意 味著通過(guò)外 部事件控制 一般的 ABAP/4 程序流。程 序的一部分 組成過(guò)，并將該過(guò)分配到 特定的事件 。事件關(guān)鍵字 提供了事件 和程序之間 的接口。系 統(tǒng)總是在相 應(yīng)事件出現(xiàn) 時(shí)啟動(dòng)過(guò)（參見(jiàn) ABAP/4中

2、 流控制的概 念 (頁(yè) 71) ） 。在控制 ABAP/4 程序流 (頁(yè) 71) 中介紹了過(guò)的外部 控制和可能 涉及到的事 件。可以學(xué)到中的流 控制（內(nèi)部 控制）。本 節(jié)介紹 ABAP/4 程序定義過(guò)可以在 ABAP/4 中通過(guò)使用 事件關(guān)鍵字 定義過(guò)件關(guān)鍵字 進(jìn)行了說(shuō)明 。在 事件及其事 件關(guān)鍵字 (頁(yè) ) 中對(duì)可能的 事沒(méi)有緊跟著 事件關(guān)鍵字 或 FORM-ENDFORM 塊的語(yǔ)句自 動(dòng)成為默認(rèn) 事件 START-OF-SELECTION過(guò)的一 部分（關(guān)于 此默認(rèn)事件 的詳細(xì)信息 ，參見(jiàn) START-OF-SELECTION (頁(yè) ) ）。這樣將 有下列影響 ：如果在 REPORT 或 P

3、ROGRAM 語(yǔ)句與第一 個(gè)事件關(guān)鍵 字或 FORM 語(yǔ)句之間寫(xiě)語(yǔ)句，則將 把這些語(yǔ)句 包括在 START-OF-SELECTION 過(guò)中。如果沒(méi) 有把 START-OF-SELECTION 關(guān)鍵字包括 在報(bào)表中， 則這些語(yǔ)句整個(gè) START-OF-SELECTION 過(guò)。如果將 START-OF-SELECTION 關(guān)鍵字包括 在報(bào)表中， 則將把這些 語(yǔ)句此塊的開(kāi)始 部分。-到如果沒(méi)有 在程序中指 定事件關(guān)鍵 字，則該程 序 FORM 語(yǔ)句之前的 所有語(yǔ)句START-OF-SELECTION 過(guò)。注 意，這種情 況下，永遠(yuǎn) 不會(huì)執(zhí)行 FORM -ENDFORM 塊之后的所 有語(yǔ)句。因?yàn)橥ㄟ^(guò)事

4、 件唯一切換 執(zhí)行順序， 所以在程序 中過(guò)的 出現(xiàn)順序是 沒(méi)有任何關(guān) 系的。但是 ，為了保證 可讀性，在 程序中應(yīng)該 以過(guò)的 執(zhí)行順序排 列它們。與操作或控 制語(yǔ)句不一 樣，系統(tǒng)在 生成程序時(shí) 而不是在運(yùn) 行時(shí)間中執(zhí) 行說(shuō)明性語(yǔ) 句（關(guān)于說(shuō) 明性語(yǔ)句的 詳細(xì)信息， 參見(jiàn) 關(guān)鍵字 (頁(yè) 22) ）。對(duì)它們 的執(zhí)行與它 們?cè)诔绦虼?碼中的位置 無(wú)關(guān)，并且 可以屬于任 何過(guò)。 為清楚起見(jiàn) ，應(yīng)該把所 有說(shuō)明性的 關(guān)鍵字放到 程序或子程 序的開(kāi)始處 。REPORT SAPMZTST.WRITE / Sement 1.兩個(gè)事件關(guān) 鍵字之間或 事件關(guān)鍵字 與 FORM 語(yǔ)句之間的 所有語(yǔ)句（ 參見(jiàn) 定義子

5、程序 (頁(yè) 96) ）過(guò)。出現(xiàn)事 件時(shí)，系統(tǒng) 將在相應(yīng)事 件關(guān)鍵字之 后處理過(guò)。ABAP/4 報(bào)表程序中 的所有語(yǔ)句 都是過(guò)或子程序的 一部分。ABAP/4 處理程序報(bào)表程序是 過(guò) 的集 合，執(zhí)行該 程序以對(duì)特 定事件作出 反應(yīng)，特別 是使用邏輯 數(shù)據(jù)庫(kù)時(shí)。 可以把這些 塊視為可調(diào) 用模塊。在 程序代碼中 ，它們不需 要以任何特 殊的順序出 現(xiàn)。一旦調(diào) 用報(bào)表程序 ，系統(tǒng)就啟 動(dòng)另一個(gè)進(jìn) 程（控制程 序），該進(jìn) 程調(diào)用這些 模塊，并控 制外部程序 流。此控制程序 是 ABAP/4 處理程序。 它監(jiān)視 ABAP/4 報(bào)表程序、 邏輯數(shù)據(jù)庫(kù) 程序和其他 程序模塊（ 例如 屏 幕）之間的 交互作用。

6、 它也解釋 ABAP/4 程序的運(yùn)行 時(shí)間對(duì)象。 必須生成每 個(gè) ABAP/4 程序，在 ABAP/4 編輯器中編 寫(xiě)這些程序 ，以創(chuàng)建其 運(yùn)行時(shí)間對(duì) 象。這既適 用于報(bào)表程 序，也適用 于邏輯數(shù)據(jù) 庫(kù)程序。即 可以在 ABAP/4 編輯器中通 過(guò)選擇“程 序 - 生成”執(zhí)行 該生成，也 可以在 “ABAP/4 編輯器：初 始屏幕”上 通過(guò)選擇“ 生成”執(zhí)行 。第一次啟 動(dòng)報(bào)表程序 時(shí)，自動(dòng)生 成該報(bào)表程 序。通過(guò)在程序 中使用的事 件關(guān)鍵字控 制 ABAP/4 處理程序和 不同程序之 間的交互作 用。例如在報(bào)表程 序 START-OF-SELECTION、 GET 中，等等，參見(jiàn) 事件及其事

7、 件關(guān)鍵字 (頁(yè) ) ，在邏輯數(shù) 據(jù)庫(kù)程序 PUT 中，等等，參見(jiàn) 邏輯數(shù)據(jù)庫(kù) 的特征和(頁(yè) Error! Not a valid link.) 。根據(jù)由事件 關(guān)鍵字定義 的流，ABAP/4 處理程序解 釋相應(yīng)程序 單元，并開(kāi) 始處理它們 。事件及其事 件關(guān)鍵字這里有幾組 事件關(guān)鍵字 ，這些事件 關(guān)鍵字在特 定環(huán)境下控 制 ABAP/4 程序流。FORM ROUTINE.WRITE / Subroutine.ENDFORM.WRITE / Sement 2. PERFORM ROUTINE.WRITE / Sement 3.輸出如下所 示：Sement 1在此程序中 ，只執(zhí)行了 START-O

8、F-SELECTION 過(guò)。此 塊包含第一 個(gè) WRITE語(yǔ)句。現(xiàn)在，按照 下列方法把 START-OF-SELECTION 語(yǔ)句程 序中：REPORT SAPMZTST.WRITE / Sement 1. FORM ROUTINE.WRITE / Subroutine.ENDFORM.START-OF-SELECTION.WRITE / Sement 2. PERFORM ROUTINE.WRITE / Sement 3.輸出如下所 示：Sement 1Sement 2 Subroutine Sement 3在此程序中 ，START-OF-SELECTION 過(guò)包含 除 FORM-ENDFO

9、RM 塊之外的所有語(yǔ)句。下 列是此程序 更易讀的形 式：REPORT SAPMZTST. START-OF-SELECTION.WRITE / S ement 1. WRITE / S ement 2. PERFORM ROUTINE.WRITE / S ement 3.FORM ROUTINE.WRITE / Subroutine.ENDFORM.在程序的這 種形式中， 也可以忽略 START-OF-SELECTION 語(yǔ)句。邏輯數(shù)據(jù)庫(kù) 是典型報(bào)表 程序的外部 流控制的中 心點(diǎn)（參見(jiàn) 用邏輯數(shù)據(jù) 庫(kù)數(shù)據(jù) (頁(yè) 11) ）。如果將 邏輯數(shù)據(jù)庫(kù)到報(bào)表 程序，將導(dǎo) 致顯示選擇 屏幕，并決 定系統(tǒng)如

10、何 從數(shù)據(jù)庫(kù)表 中數(shù)據(jù) 。這引起在 下列表中說(shuō) 明的事件序 列。關(guān)于事 件出現(xiàn)順序 的詳細(xì)信息 ，參見(jiàn) 邏輯數(shù)據(jù)庫(kù)和 ABAP/4 報(bào)表 (頁(yè) Error! Not a valid link.) 。下列事件出 現(xiàn)在典型報(bào) 表程序的運(yùn)行時(shí)間處， 該報(bào)表程序 使用邏輯數(shù) 據(jù)庫(kù)：事件關(guān)鍵字INITIALIZATION (頁(yè) )事件在顯示選擇 屏幕之前的 點(diǎn)AT SELECTION-SCREEN (頁(yè) )選擇屏幕仍 然活動(dòng)時(shí)， 處理用戶在 選擇屏幕上 輸入之后的 點(diǎn)START-OF-SELECTION (頁(yè) )處理選擇屏 幕之后的點(diǎn)GET (頁(yè) )點(diǎn)位于邏輯 數(shù)據(jù)庫(kù)提供 數(shù)據(jù)庫(kù)表 的行處。GET LA

11、TE (頁(yè) )處理所有表 之后的點(diǎn)， 在邏輯數(shù)據(jù) 庫(kù)的結(jié)構(gòu)中 ，使這些表 位于數(shù)據(jù)庫(kù) 表 的下層。END-OF-SELECTION (頁(yè) )處理完邏輯 數(shù)據(jù)庫(kù)提供 的所有行之 后的點(diǎn)。下 列說(shuō)明 這些事件的 過(guò)。處理和顯示 報(bào)表程序輸 出列表時(shí)，出現(xiàn)其他沒(méi) 有連接到邏 輯數(shù)據(jù)庫(kù)的 事件?？梢?用這些事件 格式化輸出 列表，并使 報(bào)表程序成 為交互式的 。在適當(dāng)?shù)?節(jié)中將繼續(xù) 說(shuō)明這些事 件。處理報(bào)表程 序輸出列表 時(shí)，出現(xiàn)下 列事件：可以用這 些關(guān)鍵字改 善輸出列表 的格式。說(shuō) 明參見(jiàn)創(chuàng)建列表 (頁(yè) Error! Not a valid link.) 。下列事件出 現(xiàn)在報(bào)表程 序輸出列表 的顯

12、示中：事件關(guān)鍵字事件ILECTION用 戶在該點(diǎn)處 選擇行ATMAND用 戶在該點(diǎn)處 按下功能鍵 或在命令字 段中輸入命 令A(yù)T PF用 戶在該點(diǎn)處 按下有功能 代碼 PF 的功能鍵可 以使用這些 關(guān)鍵字編寫(xiě) 交互式的程序。詳 情參見(jiàn) 交互式列表 (頁(yè) Error! Not a valid link.) 。關(guān)于所有事 件關(guān)鍵字的 詳細(xì)說(shuō)明， 參見(jiàn)事件關(guān) 鍵字文檔。INITIALIZATION啟動(dòng)已定義 選擇屏幕的 程序（在程 序自身或在 被的邏 輯數(shù)據(jù)庫(kù)程 序中）時(shí)， 系統(tǒng)通常首 先處理此選 擇屏幕。如 果希望在處 理選擇屏幕 之前執(zhí)行過(guò)，可以 把它分配到 事件關(guān)鍵字INITIALIZATIO

13、N。在此塊中， 指定初始化 選擇屏幕的 語(yǔ)句，例如 通過(guò)更改參 數(shù)或選擇標(biāo) 準(zhǔn)的默認(rèn)值 。這只對(duì)在 邏輯數(shù)據(jù)庫(kù) 中定義的參 數(shù)或選擇標(biāo) 準(zhǔn)才有效。 對(duì)于選擇標(biāo) 準(zhǔn)，應(yīng)該通 過(guò)更改選擇 表 的表頭行并 把它附加到 表中，至少 定義選擇表 的組件 -SIGN 、 -OPTION 、-LOW（ 參見(jiàn) 選擇表 (頁(yè) 214) ）。否則， 可能未定義 部分選擇標(biāo) 準(zhǔn)。如果希望通 過(guò)檢查邏輯 數(shù)據(jù)庫(kù) SAPDB 自己（使用 事務(wù) SLDB 或通過(guò)選擇 “工具 - ABAP/4 開(kāi)發(fā)工作臺(tái) - 開(kāi)發(fā) - 編程環(huán)境 - 邏輯數(shù)據(jù)庫(kù) ”），或通 過(guò)檢索字段 的技術(shù)信息 而更改內(nèi)部 字段，可以 找到該字段 的名稱

14、。為 此，在選擇 屏幕上選擇 輸入字段， 并按下 F1。然后 ，選擇 框中的“技術(shù)信息”。 在下列窗口 的字段“屏 幕字段”中 ，將會(huì)看到 程序中使用 的字段名稱 。假定有到邏輯數(shù)據(jù) 庫(kù) F1S 的報(bào)表程序 ：REPORT SAPMZTST.PARAMETERSDAY LIKE SY-DATUM DEFAULT SY-DATUM. TABLES SPFLI.啟動(dòng)此程序 時(shí)，將自動(dòng) 出現(xiàn)下列選 擇屏幕：在邏輯數(shù)據(jù) 庫(kù) F1S 中定義有選 擇文本“承 運(yùn)方 ID”的選 擇標(biāo)準(zhǔn)，以 及有選擇文 本 “從”和 “到”的參 數(shù)（參見(jiàn) 選擇文本 (頁(yè) 54) ）。在程序 自身中定義 參數(shù)DAY。事件關(guān)鍵字

15、事件TOP-OF啟 動(dòng)新頁(yè)時(shí)， 列表處理中 的點(diǎn)END-OF結(jié) 束頁(yè)時(shí)，列 表處理中的 點(diǎn)AT SELECTION-SCREEN事件關(guān)鍵字 AT SELECTION-SCREEN 提供了好幾 種在系統(tǒng)處 理選擇屏幕 時(shí)執(zhí)行過(guò)的方法。為了對(duì)處理 選擇屏幕時(shí) 出現(xiàn)的不同 事件都有效 ，關(guān)鍵字 AT SELECTION-SCREEN 有不同選項(xiàng) 。與 PARAMETERS 和 SELCECT-OPTIONS 語(yǔ)句的特殊 選項(xiàng)一起， 在 使用選擇屏幕 (頁(yè) 21) 中顯示了關(guān) 鍵字 AT-SELECTION 屏幕的某些 應(yīng)用。如果指定字 段的關(guān)鍵字 沒(méi)有任何選 項(xiàng)，則在系 統(tǒng)處理完選 擇屏幕之后 啟動(dòng)

16、相應(yīng)過(guò)。如果 從此過(guò)中發(fā)送 ERROR MESSAGE， 則系統(tǒng)將又 顯示選擇屏 幕，并且可 以更改所有 輸入字段。 必須提供適 當(dāng)?shù)?ERROR MESSAGE。例如，此方 法可以輸入 字段命令， 盡管沒(méi)有在 邏輯數(shù)據(jù)庫(kù) 程序中使用 PARAMETERS 或SELECT-OPTIONS 語(yǔ)句的 OBLIGATORY 選項(xiàng)定義它 們。將邏輯數(shù)據(jù) 庫(kù) F1S 附加到下列 報(bào)表程序： REPORT SAPMZTST MESSAGE-ID HB. TABLES SPFLI.AT SELECTION-SCREEN.IF CARRID-LOW IS INITIAL OR CITY FR IS INITI

17、AL OR CITY TO IS INITIAL. MESSAGE E000.ENDIF.在表 T100 中和MESSAGE。 通過(guò)語(yǔ)言、 兩個(gè)字符的 ID 和三位數(shù)字 對(duì)它們進(jìn)行 分組，可以 從程序中以 不同條件發(fā) 送 MESSAGE：A：Abend， 終止當(dāng)前事 務(wù)E：錯(cuò)誤 ，系統(tǒng)等待 新輸入數(shù)據(jù)I：信息 ，處理 ENTER 之后，系統(tǒng) 繼續(xù)處理S：確認(rèn) ，消息出現(xiàn) 在下一屏上W：警告 ，可以更改 輸入數(shù)據(jù)或 通過(guò)按 ENTER 繼續(xù)必須在程序 的 REPORT 或 PROGRAM 語(yǔ)句之后指 定 MESSAGE-ID。 通過(guò) ABAP/4 編輯器，選 擇“編輯 -語(yǔ)句.” ，可以很容 易

18、地將 MESSAGE 包括到程序 中。也可以 從這里更改 MESSAGE。 關(guān)于報(bào)表中 MESSAGE 處理的詳細(xì) 信息，參見(jiàn) 列表中的消 息 (頁(yè) Error! Not a valid link.) 。例如，現(xiàn)在 選擇“承運(yùn) 方 ID”的第 一個(gè)輸入字 段，按下 F1，然后 選擇“技術(shù) 信息”，以 找到選擇表 的名稱：在字段“屏 幕字段”中 ，將看到名 稱 CARRID-LOW， 它是對(duì)應(yīng)于 選擇輸入的 選擇表的組 件。從這里 看到選擇標(biāo) 準(zhǔn)的名稱是 CARRID。 在上面所述 的相同過(guò)程 中，可以發(fā) 現(xiàn)把輸入字 段“從”和 “到”命名 為 CITY_FR 和 CITY_TO?，F(xiàn)在，可以 按

19、照下列方 法更改報(bào)表 程序：REPORT SAPMZTST.PARAMETERSDAY LIKE SY-DATUM DEFAULT SY-DATUM. TABLES SPFLI.INITIALIZATION.CITY FR = NEW YORK. CITY TO = FRFURT. CARRID-SIGN = I.CARRID-OPTION = EQ. CARRID-LOW= AA. APPEND CARRID.DAY+6(2) = 01.啟動(dòng) SAPMZTST 之后，選擇 屏幕如下：更改了選擇 標(biāo)準(zhǔn)的默認(rèn) 值和所有參 數(shù)。事件關(guān)鍵字 AT SELECTION-SCREEN 的選項(xiàng)使您 能夠在

20、處理 選擇屏幕時(shí) 為特定事件 創(chuàng)建過(guò)。在下列中說(shuō)明這 些事件：在下列中即將介紹 這些選項(xiàng)。 詳細(xì)信息， 參見(jiàn)關(guān)于 AT SELECTION-SCREEN 的關(guān)鍵字文 檔。處理特殊輸 入字段要在處理選 擇屏幕的特 殊輸入字段 之后啟動(dòng)過(guò)，請(qǐng)按 照下列方法 使用關(guān)鍵字 AT SELECTION屏幕：語(yǔ)法：AT SELECTION-SCREEN ON .系統(tǒng)處理了 變量 的輸入字段 之后，啟動(dòng) 相應(yīng)過(guò)。如果從此 過(guò)中發(fā) 送 ERRORMESSAGE， 則系統(tǒng)再次 顯示選擇屏 幕，用戶僅 必須更改變 量 的輸入字段 。處理多重選 擇將特殊選擇 標(biāo)準(zhǔn)的復(fù)雜 選擇輸入到 選擇屏幕的 “多重選擇 ”窗口，并

21、 處理此窗口 之后（參見(jiàn) SELECT-OPTIONS 語(yǔ)句的基本格式 (頁(yè) 217) 中的例子） ，可以調(diào)用 過(guò) ，為 此，請(qǐng)按照 下列方法使 用 AT SELECTION-SCREEN 語(yǔ)句：語(yǔ)法AT SELECTION-SCREEN ON END OF .在處理選擇 標(biāo)準(zhǔn) 的“復(fù)雜選 擇”窗口結(jié) 束處啟動(dòng)相 應(yīng)過(guò)表 中的條目。 可以使用這 些選項(xiàng)檢查 內(nèi)將邏輯數(shù)據(jù) 庫(kù) F1S 附加到下列 報(bào)表程序中 。 REPORT SAPMZTST MESSAGE-ID HB. TABLES SPFLI.AT SELECTION-SCREEN ON END OF CARRID. LOOP AT CAR

22、RID.IF CARRID-HIGH NE .IF CARRID-LOW IS INITIAL. MESSAGE W020.ENDIF. ENDIF.ENDLOOP.啟 動(dòng) SAPMZTST 之后，如果 用戶在選擇 屏幕上單擊 箭頭圖標(biāo)，然后在“多 重選擇”窗 口中輸入范 圍選擇的上 限，而不輸 入下限，則 出現(xiàn)下列框，并發(fā) 出警告：將邏輯數(shù)據(jù) 庫(kù) F1S 附加到下列 報(bào)表程序。 REPORT SAPMZTST MESSAGE-ID HB. TABLES SPFLI.AT SELECTION-SCREEN ON CITY FR. IF CITY FR NE NEW YORK.MESSAGE E

23、010.ENDIF.如果用戶沒(méi) 有在選擇屏 幕中的字段 “從”中“NEW YORK” ，則下列 ERROR MESSAGE 會(huì)出現(xiàn)在屏 幕的狀態(tài)欄 中，,直到用戶作 出正確輸入 。在表 T100 中，以此 ID HB 為例編寫(xiě)了 MESSAGE 010 代碼。此報(bào)表使用 有 ID HB 的 MESSAGE。 啟動(dòng) SAPMZTST 之后，選擇 屏幕顯示在 邏輯數(shù)據(jù)庫(kù) F1S 中定義的內(nèi) 容。一旦用 戶不把值輸 入到每個(gè)輸 入字段中， 下列錯(cuò)誤信 息就將出現(xiàn) 在屏幕的狀 態(tài)欄中。在表 T100 中，以 ID HB 為此例子編 寫(xiě)了 MESSAGE 000 代碼。創(chuàng)建輸入值 列表You 通過(guò)按照下

24、 列方法使用 AT SELECTION-SCREEN 語(yǔ)句，可以 為選擇屏幕 上的輸入字 段創(chuàng)建可能輸入值的列 表：語(yǔ)法AT SELECTION-SCREEN ON VALUE-REQUEST FOR .如果使用此 語(yǔ)句，在選 擇屏幕上選 定參數(shù)或選 擇標(biāo)準(zhǔn) 的輸入字段 時(shí)，會(huì)自動(dòng) 緊跟著該字 段出現(xiàn)可能 的登錄按鈕 。必須在 AT SELECTION-SCREEN ON VALUE REQUEST 語(yǔ)句的過(guò)內(nèi)為 編寫(xiě)建議值 列表程序。 用戶單擊可 能的登錄按 鈕或按下 F4 時(shí)，將顯示 此列表。如 何編寫(xiě)這種 列表的代碼 是編程的范疇，并 在編寫(xiě)字 - 和值 - 幫助程序 (頁(yè) Error!

25、 Not a valid link.) 中作了介 紹。創(chuàng)建輸入字 段的幫助通過(guò)按照下 列方法使用 AT SELECTION-SCREEN 語(yǔ)句，可以 為選擇屏幕 上的輸入字 段創(chuàng)建自己 的幫助：語(yǔ)法AT SELECTION-SCREEN ON HELP-REQUEST FOR .如果使用此 語(yǔ)句，用戶 在選擇屏幕 上選擇 的輸入字段 ，并按下 F1 鍵時(shí)，將顯 示幫助文本 。必須在 AT SELECTION-SCREEN ON HELP REQUEST 語(yǔ)句的過(guò)內(nèi)編寫(xiě)幫 助文本的程 序。如何編寫(xiě)這種幫助 的代碼是編程的范 疇，并在 編寫(xiě)字 - 和值 - 幫助程序 (頁(yè) Error! Not a

26、 valid link.)中作了介紹 。處理單選按 鈕組在選擇屏幕 上處理完單 選按鈕組之 后（參見(jiàn) 在選擇屏幕 上創(chuàng)建單選 按鈕組 (頁(yè) 210) ），要啟動(dòng) 過(guò)，請(qǐng) 按照下列方 法使用關(guān)鍵 字 AT SELECTION 屏幕：語(yǔ)法：AT SELECTION-SCREEN ON RADIOBUTTON GROUP .系統(tǒng)處理單 選按鈕組 后啟動(dòng)相應(yīng) 過(guò)。如 果從過(guò)中發(fā)送 ERROR MESSAGE， 則系統(tǒng)又顯 示選擇屏幕 ，用戶只必 須更改單選 按鈕 的輸入字段 。只可以在報(bào) 表程序中使 用此語(yǔ)句。 在邏輯數(shù)據(jù) 庫(kù)程序中， 使用 PARAMETERS 和SELECT-OPTIONS 語(yǔ)句的

27、 HELP-REQUEST 選項(xiàng)（參見(jiàn) 關(guān)鍵字文檔 ）。PARAMETERS FIELD(10).AT SELECTION-SCREEN ON VALUE-REQUEST FOR FIELD.參數(shù)如下：如果為 FIELD 編寫(xiě)了建議 值列表，并 且用戶單擊 了可能的登 錄按鈕，則 將顯示它。只可以在報(bào) 表程序中使 用此語(yǔ)句。 在邏輯數(shù)據(jù) 庫(kù)程序中， 可以使用 PARAMETERS和 SELECT-OPTIONS 語(yǔ)句的 VALUE-REQUEST 選項(xiàng)(參見(jiàn) 關(guān)鍵字文檔 )。在表 T100 中，以此 ID HB 為例編寫(xiě)了 MESSAGE 020 代碼。處理輸入字 段塊在選擇屏幕 上處理完元

28、素塊（參見(jiàn)創(chuàng)建元素塊 (頁(yè) 235) ）之后啟動(dòng) 過(guò)關(guān)鍵 字 AT SELECTION 屏幕：，請(qǐng) 按照下列方 法使用語(yǔ)法：AT SELECTION-SCREEN ON BLOCK .系統(tǒng)處理完 元素塊 時(shí)啟動(dòng)相應(yīng) 過(guò)。如 果從此過(guò)再次 顯示選擇屏 幕，用戶只 必須更改塊 的輸入字段 。中發(fā)送 ERROR MESSAGE， 則系統(tǒng)選擇屏幕的 PBO要在每個(gè) ENTER 的選擇屏幕 PBO 中啟動(dòng)過(guò)，請(qǐng)使用 下列 AT SELECTION-SCREEN 語(yǔ)句：語(yǔ)法AT SELECTION-SCREEN OUTPUT.例如，在這 些事件中， 可以申請(qǐng)對(duì) 選擇屏幕上 的字段作出 修改。詳情 和例子，

29、參 見(jiàn) 給修改組分 配參數(shù) (頁(yè) 212) 。START-OF-SELECTION過(guò)的可 能。例如， 可以使用這 些過(guò)設(shè) 置內(nèi)表的值 ，或?qū)⑿畔?語(yǔ)句寫(xiě)到輸 出屏幕上。在 START-OF-SELECTION 事件處，也 處理沒(méi)有附 加到事件關(guān) 鍵字的所有 語(yǔ)句， 或在 FORM-ENDFORM 塊后寫(xiě)這些 語(yǔ)句（例子 參見(jiàn) 定義過(guò)(頁(yè) ) ）。REPORT SAPMZTST MESSAGE-ID HB. SELECTION-SCREEN BEGIN OF BLOCK PART1WITH FRAME TITLE TEXT-001.PARAMETERS: NUMBER1 TYPE I,NUMBE

30、R2 TYPE I, NUMBER3 TYPE I.SELECTION-SCREEN END OF BLOCK PART1.AT SELECTION-SCREEN ON BLOCK PART1.IF NUMBER3 LT NUMBER2 OR NUMBER3 LT NUMBER1 OR NUMBER2 LT NUMBER1.MESSAGE E040.ENDIF.啟動(dòng) SAPMZTST 后，用戶可 以把號(hào)碼輸 入到塊 PART1 的輸入字段 中。如果他 沒(méi)有按升序 輸入號(hào)碼，則下列 ERROR MESSAGE 將出現(xiàn)在狀 態(tài)欄中：在表 T100 中，以此 ID HB 為例編寫(xiě)了 MESSAGE

31、040 代碼。REPORT SAPMZTST MESSAGE-ID HB.PARAMETERS: R1 RADIOBUTTON GROUP RAD1 DEFAULT X, R2 RADIOBUTTON GROUP RAD1,R3 RADIOBUTTON GROUP RAD1.AT SELECTION-SCREEN ON RADIOBUTTON GROUP RAD1.IF R1 = X.MESSAGE I030.ENDIF.如果用戶沒(méi) 有更改選擇 屏幕上的單 選按鈕，將 出現(xiàn)下列 INFORMATION MESSAGE：在表 T100 中，以此 ID HB 為例編寫(xiě)了 MESSAGE 030 代

32、碼。GET 對(duì)于有附加 邏輯數(shù)據(jù)庫(kù) 的報(bào)表程序 ，最重要的 事件是邏輯 數(shù)據(jù)庫(kù)程序 從數(shù)據(jù)庫(kù)表 中了行 的時(shí)刻（參 見(jiàn)用邏輯數(shù)據(jù) 庫(kù)數(shù)據(jù) (頁(yè) 11) ）。要在此 事件處啟動(dòng) 過(guò)語(yǔ)句：，請(qǐng) 按照下列方 法使用 GET語(yǔ)法GET FIELDS .此語(yǔ)句之后 ，可以使用 數(shù)據(jù)庫(kù)表 的當(dāng)前行。 在表工作區(qū) 中提供了數(shù) 據(jù)。邏輯數(shù)據(jù)庫(kù) 從所有數(shù)據(jù) 庫(kù)表中 所有列，沒(méi) 有為邏輯數(shù) 據(jù)庫(kù)中的字 段指定這些 數(shù)據(jù)庫(kù)表， 并且這些數(shù) 據(jù)庫(kù)表優(yōu)于 邏輯數(shù)據(jù)庫(kù) 路徑上 的 （ 參見(jiàn) 從報(bào)表程序 中控制數(shù)據(jù) 庫(kù) (頁(yè) 14) ）。不管是 否為這些表 指定了 GET 語(yǔ)句，這都 與事實(shí)無(wú)關(guān) 。只有在程 序中使用 TA

33、BLES 語(yǔ)句表 之后，才可 以這些 表的數(shù)據(jù)。對(duì)于為邏輯 數(shù)據(jù)庫(kù)中的 選擇字段指 定的表，性 能可以更好 一些（參見(jiàn) 編輯選擇 (頁(yè) Error! Not a validlink.) ）。如果這 樣的表優(yōu)于 邏輯數(shù)據(jù)庫(kù)路徑上 的 ， 并且沒(méi)有為 它們指定 GET 語(yǔ)句，則系 統(tǒng)只從在程 序中用 TABLES 語(yǔ)句的 表中所 有列的數(shù)據(jù) 。從在程序 中沒(méi)有用 TABLES語(yǔ)句的 表中，系統(tǒng) 只關(guān)鍵 字段（邏輯 數(shù)據(jù)庫(kù)需要 關(guān)鍵字段生 成路徑 ）。使用 FIELDS 選項(xiàng)，可以 外在地指定 應(yīng)該由邏輯 數(shù)據(jù)庫(kù)的數(shù)據(jù)庫(kù)表 的列。在 外在地指定 數(shù)據(jù)庫(kù)表的 字段 (頁(yè) ) 中對(duì) FIELDS 選項(xiàng)作

34、了介 紹。外在地指定 數(shù)據(jù)庫(kù)表的 字段要指定在 GET 事件處使用 數(shù)據(jù)庫(kù)表的 哪一個(gè)字段 ，請(qǐng)按照下 列方法使用 GET 語(yǔ)句的 FIELDS 選項(xiàng)：語(yǔ)法GET LATE FIELDS .使用 FIELDS 選項(xiàng)，從數(shù) 據(jù)庫(kù)表 中，邏輯數(shù) 據(jù)庫(kù)程序只FIELDS 選項(xiàng)的使用 可以引起相 應(yīng)性能改善 。字段 . 和關(guān)鍵字段 。將邏輯數(shù)據(jù) 庫(kù) F1S 附加到了下 列報(bào)表程序 。F1S 的結(jié)構(gòu)為：報(bào)表程序 SAPMZTST 的代碼為：REPORT SAPMZTST.TABLES: SPFLI, SFLIGHT, SBOOK. START-OF-SELECTION.WRITE Test Progra

35、m fET.GET SPFLI. SKIP.WRITE: / From:, SPFLI-CITYFROM, To:, SPFLI-CITYTO.GET SFLIGHT. SKIP.WRITE: / Carrid:, SFLIGHT-CARRID, Connid:, SFLIGHT-CONNID.ULINE.GET SBOOK.WRITE: / Fldate:,SFLIGHT-FLDATE, Bookid:,SBOOK-BOOKID, Luggweight, SBOOK-LUGGWEIGHT.ULINE.啟動(dòng) SAPMZTST 之后，假定 用戶按照下 列方法填寫(xiě) 選擇屏幕：這樣，輸出 列表的第一

36、 部分如下：注意，在 GET SBOOK 后的過(guò)中使用表工 作區(qū) SPFLI。邏輯數(shù)據(jù)庫(kù) 不所有 非關(guān)鍵字段 的字段和所 有沒(méi)有在 FIELDS 后列出的字 段。在 GET 事件中，沒(méi) 有使用 FIELDS 選項(xiàng)定義表 工作區(qū) 的相應(yīng)組件 內(nèi)容。也沒(méi) 有在數(shù)據(jù)庫(kù) 表的 GET 事件中定義 它們，這些 數(shù)據(jù)庫(kù)表次 于邏輯數(shù)據(jù) 庫(kù)分層中的 。 不應(yīng)該定位 這些未定義 的字段，并 且不調(diào)用外 部子程序， 程序使用這 些字段。GET LATE要在系統(tǒng)處 理完邏輯數(shù) 據(jù)庫(kù)（它們 在層次上低 于特定數(shù)據(jù) 庫(kù)表）的所 有數(shù)據(jù)庫(kù)表 之后啟動(dòng)過(guò)請(qǐng)按 照下列方法 使用事件關(guān) 鍵字 GET：，語(yǔ)法GET LATE

37、FIELDS .與只使用 SELECT 語(yǔ)句的報(bào)表 程序（參見(jiàn)方法比 較 (頁(yè) 12) 中的表）相 似，在數(shù)據(jù) 庫(kù)表 的 SELECT 循環(huán)中，GET LATE 語(yǔ)句的過(guò)直接出現(xiàn) 在 ENDSELECT 語(yǔ)句的前面 。FIELDS 選項(xiàng)的作用 與 GET 事件相同， 在 外在地指定 數(shù)據(jù)庫(kù)表的 字段 (頁(yè) ) 中對(duì)它作了解釋。將邏輯數(shù)據(jù) 庫(kù) F1S 連接到下列 報(bào)表程序。REPORT SAPMZTST.TABLES: SPFLI, SFLIGHT, SBOOK. DATA WEIGHT TYPE I VALUE 0.START-OF-SELECTION.WRITE Test Program f

38、ET LATE.GET SPFLI. SKIP.WRITE: / From:, SPFLI-CITYFROM, To:,SPFLI-CITYTO, Connid:, SPFLI-CONNID.ULINE.GET SFLIGHT. SKIP.WRITE: / Date:, SFLIGHT-FLDATE.GET SBOOK.WEIGHT = WEIGHT + SBOOK-LUGGWEIGHT.GET SFLIGHT LATE.WRITE: / Total luggage weight =, WEIGHT.假定邏輯數(shù) 據(jù)庫(kù) F1S 為字段選擇 指定了數(shù)據(jù) 庫(kù)表 SFLIGHT 和 SBOOK。 這樣

39、，可以 寫(xiě)下列程序 ：TABLES: SFLIGHT, SBOOK.GET SFLIGHT FIELDS CARRID CONNID. GET SBOOK FIELDS CUSTOMID.GET SFLIGHT LATE FIELDS PLANETYPE.在此例中， 系統(tǒng)從 SFLIGHT 中字段 MANDT、 CARRID、 CONNID、 FLDATE 和PLANETYPE從 SBOOK 中字段 MANDT、 CARRID、 CONNID、 FLDATE 和 BOOKID注意，系統(tǒng) 從 SFLIGHT 中字段 MANDT 和 FLDATE from SFLIGHT， 這是因?yàn)镸ANDT 和

40、 FLDATE 是此表的關(guān) 鍵字段。在此例子中 ，從 SBOOK 中只關(guān) 鍵字段。到報(bào)表 程序的邏輯 數(shù)據(jù)庫(kù)必須 為字段選擇 指定數(shù)據(jù)庫(kù) （ 參見(jiàn) 編輯選擇(頁(yè) Error! Not a valid link.) ）。END-OF-SELECTION要在系統(tǒng)和處理完 邏輯數(shù)據(jù)庫(kù)的所有數(shù)據(jù)庫(kù)表之后定義過(guò)，請(qǐng)使用關(guān)鍵字END-OF-SELECTION。終止過(guò)ABAP/4 提供了好幾 種離開(kāi)過(guò)的語(yǔ)句。 取決于當(dāng)前事件，不同 語(yǔ)句可以將程序流轉(zhuǎn)向 不同過(guò)程塊。可以無(wú)條 件地或有條 件地全部離 開(kāi)過(guò)的 語(yǔ)句。下列介 紹輯數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)表 ，GET 語(yǔ)句后的過(guò)如果使用邏終止有 某些特殊性 質(zhì)。另外兩 個(gè)介紹

41、無(wú)條件地離 開(kāi)過(guò)可以通過(guò)下 列方法無(wú)條 件地離開(kāi)過(guò)：轉(zhuǎn)向 END-OF-SELECTION可以立即離 開(kāi)任何過(guò)，并通過(guò) 按照下列方 法使用 STOP 語(yǔ)句轉(zhuǎn)向 END-OF-SELECTION 過(guò)：語(yǔ)法STOP.運(yùn)行 STOP 語(yǔ)句后，系 統(tǒng)執(zhí)行 END-OF-SELECTION 過(guò)，并 停止運(yùn)行程 序。將邏輯數(shù)據(jù) 庫(kù) F1S 附加到下列 報(bào)表程序：REPORT SAPMZTST.TABLES: SPFLI, SFLIGHT, SBOOK.將邏輯數(shù)據(jù) 庫(kù) F1S 連接到下列 報(bào)表程序。REPORT SAPMZTST. TABLES SBOOK.DATA NUMBER TYPE I VALUE

42、0.START-OF-SELECTION.WRITE Test Program for END-OF-SELECTION. SKIP.WRITE: / CITY_FR, CITY_TO.GET SBOOK.NUMBER = NUMBER + 1.END-OF-SELECTION.WRITE: / Total number of bookings:, NUMBER.對(duì)于 GET (頁(yè) ) 例子中的相 同選擇，輸 出如下：在事件 GET SBOOK 處計(jì)算從法福到柏 林的預(yù)訂號(hào) 并編寫(xiě)到事 件END-OF-SELECTION 的屏幕中。ULINE. WEIGHT = 0.對(duì)于 GET (頁(yè) ) 例

43、子中的相 同選擇，輸 出屏幕的第 一部分如下 ：在事件 GET SBOOK 處為每個(gè)航 班計(jì)算行李 總重量。將 它寫(xiě)到屏幕 上，并在事 件GET SFLIGHT LATE 處重新設(shè)置 它。轉(zhuǎn)向輸出屏 幕可以立即離 開(kāi)任何過(guò)（除在 AT 事件以外） ，并通過(guò)按 照下列方法 使用 EXIT 語(yǔ)句轉(zhuǎn)向輸 出屏幕：語(yǔ)法EXIT.EXIT 語(yǔ)句后，系 統(tǒng)顯示輸出 列表，并停 止運(yùn)行程序 。它不執(zhí)行 END-OF-SELECTION 過(guò)。離開(kāi) AT 事件如果在 AT 事件的過(guò)中使用 EXIT 語(yǔ)句（有以 AT 開(kāi)頭的事件 關(guān)鍵字的所 有事件，參 見(jiàn) 事件及其事 件關(guān)鍵字 (頁(yè) ) ），則系統(tǒng) 離開(kāi)此過(guò)，并

44、轉(zhuǎn)向 下一個(gè)出現(xiàn) 事件的過(guò)。在所有其他 事件的過(guò)中，EXIT 轉(zhuǎn)向輸出屏 幕。關(guān)于 EXIT 語(yǔ)句在循環(huán) 中如何起作 用的詳細(xì)信 息，參見(jiàn) 中止循環(huán) (頁(yè) 720) 。將邏輯數(shù)據(jù) 庫(kù) F1S 附加到下列 報(bào)表程序：REPORT SAPMZTST.TABLES: SPFLI, SFLIGHT, SBOOK. START-OF-SELECTION.WRITE Test Program for EXIT.GET SBOOK.WRITE: Bookid, SBOOK-BOOKID. EXIT.END-OF-SELECTION.WRITE: / End of selection.輸出如下：Test Pr

45、ogram for EXIT Bookid 00010001SBOOK 的第一行之 后，系統(tǒng)直 接處理輸出 列表，而不 是END-OF-SELECTION 語(yǔ)句塊。EXIT 語(yǔ)句在 AT 事件的過(guò)中的功能 不同（參見(jiàn) 離開(kāi) AT 事件 (頁(yè) ) ）。關(guān)于 EXIT 語(yǔ)句在循環(huán) 中有何種功 能的詳細(xì)信 息，參見(jiàn) 中止循環(huán) (頁(yè) 720) 。START-OF-SELECTION.WRITE Test Program for STOP.GET SBOOK.WRITE: Bookid, SBOOK-BOOKID. STOP.END-OF-SELECTION.WRITE: / End of select

46、ion.輸出如下：Test Program for STOP Bookid 00010001End of selection從 SBOOK 中第一 行之后，系 統(tǒng)直接執(zhí)行 END-OF-SELECTION 語(yǔ)句塊。有條件地離 開(kāi)過(guò)通過(guò)按照下 列方法使用 CHECK 語(yǔ)句的兩個(gè) 變式，可以 有條件地離 開(kāi)任何過(guò)：語(yǔ)法CHECK .如果 CHECK 語(yǔ)句中的條 件為假，則 系統(tǒng)離開(kāi)過(guò)并轉(zhuǎn)向 下一個(gè)出現(xiàn) 事件的過(guò)。對(duì)于， 可以使用 編程邏輯表達(dá)式 (頁(yè) 73) 中介紹的任 何邏輯表達(dá) 式。語(yǔ)法CHECK .如果數(shù)據(jù)庫(kù) 表的表工作 區(qū)的內(nèi)容與 選擇表 中的條件不 匹配，并且 將選擇表 附加到該數(shù) 據(jù)庫(kù)

47、表（參 見(jiàn)在 GET 事件中與 CHECK 語(yǔ)句一起使 用選擇表 (頁(yè) 229) ），則系統(tǒng) 離開(kāi)過(guò)。將邏輯數(shù)據(jù) 庫(kù) F1S 附加到下列 報(bào)表程序：REPORT SAPMZTST.TABLES: SPFLI, SFLIGHT, SBOOK. START-OF-SELECTION.CHECK CITY FR NE .WRITE: / Selected City-From:, CITY FR. ULINE.CHECK CITY_TO NE .CHECK 語(yǔ)句是與上 下文緊密相 關(guān)的。關(guān)于 GET 事件中下一 個(gè)出現(xiàn)事件 的定義，參 見(jiàn) 有條件地離 開(kāi) GET 事件 (頁(yè) ) 。關(guān)于 CHECK 語(yǔ)

48、句在循環(huán) 中如何起作 用的詳細(xì)信 息，參見(jiàn) 中止循環(huán) (頁(yè) 720) 。將邏輯數(shù)據(jù) 庫(kù) F1S 附加到下列 報(bào)表程序：REPORT SAPMZTST.TABLES: SPFLI, SFLIGHT, SBOOK. DATA FLAG.AT SELECTION-SCREEN.IF CARRID-LOW IS INITIAL. FLAG = X.EXIT. ENDIF.START-OF-SELECTION. IF FLAG = X.WRITE / No selection for CARRID made. EXIT.ENDIF.GET SPFLI.GET SFLIGHT.GET SBOOK.END-

49、OF-SELECTION.WRITE / End of Selection.如果用戶沒(méi) 有在“承運(yùn) 方 ID”字段 中輸入值， 則輸出如下 ：No selection for CARRID made注意，EXIT 語(yǔ)句是與上 下文緊密相 關(guān)的。第一 個(gè) EXIT 語(yǔ)句后，也 就是執(zhí)行START-OF-SELECTION 塊。第二個(gè) EXIT 語(yǔ)句后，將 顯示輸出列 表。無(wú)條件地離 開(kāi) GET 事件要無(wú)條件地 離開(kāi) GET 事件的過(guò)，有四種 可能：轉(zhuǎn)向當(dāng)前數(shù) 據(jù)庫(kù)表的下 一行要離開(kāi) GET 語(yǔ)句的過(guò)，并轉(zhuǎn)向 邏輯數(shù)據(jù)庫(kù) 同一層上的 下一 GET 事件，請(qǐng)按 照下列方法 使用REJECT：語(yǔ)法RE

50、JECT.此語(yǔ)句后， 系統(tǒng)立即處 理相同數(shù)據(jù) 庫(kù)表的下一 GET 事件。這意 味著它從當(dāng) 前表中啟動(dòng) 相同過(guò)的新行。轉(zhuǎn)向數(shù) 據(jù)庫(kù)表的下 一行要離開(kāi) GET 語(yǔ)句的過(guò)，并執(zhí)行 邏輯數(shù)據(jù)庫(kù)REJECT 語(yǔ)句：的下一 GET 事件，請(qǐng)按 照下列方法 使用語(yǔ)法REJECT .將邏輯數(shù)據(jù) 庫(kù) F1S 連接到下列 報(bào)表程序。REPORT SAPMZTST.TABLES: SPFLI, SFLIGHT, SBOOK. GET SFLIGHT.SKIP.WRITE: / Connid:, SFLIGHT-CONNID, Carrid:, SFLIGHT-CARRID, Fldate:, SFLIGHT-FLDATE.ULINE.GET SBOOK.IF SBOOK-BOOKID GT 00010002.REJECT. ENDIF.WRITE: / Bookid:, SBOOK-BOOKID.對(duì)于 GET (頁(yè) ) 例子中的相