前回の課題では、 ABAP エディタを使用してコードを TOP INCLUDE ファイルに追加しました。今回の課題では、コードをコピーして事前定義機能を自動挿入するために、ワークベンチ環境でキーボードと特殊機能を使用してコードを入力します。

1. プログラムオブジェクト一覧で PBO モジュールフォルダを開きます。
2. INITIALIZE_100 モジュールを選択指定し、 変更を選択します。

変更モードでモジュールが開かれます。

3. モジュール initialize_100 出力の次の行に、以下の内容を入力します 。

set pf-status ’100’.
set titlebar ’100’.

4. 変更を保存し、プログラム一覧に戻ります。

1. オブジェクトブラウザの第一画面に戻ります。
2. プログラムを選択指定し、プログラム名に TUTPROG を入力します。

サンプルプログラムが呼び出されます。

3. 照会を選択します。
4. PAI モジュール FRAGMENT を開きます。

モジュールが照会モードで開かれます。

5. fcode = ok-code と入力された行にカーソルを移動します。
6. 選択を選択します。

その行がマークされます 。

7. 97 行目に入力された endcase を選択指定し、 選択を選択します。
8. ブロック / クリップボード → クリップボードへコピーを選択指定します。
9. モジュールを終了し、プログラムオブジェクト一覧に戻ります。

マーカ機能を使用してユーザのオブジェクト一覧に戻ることもできます。

10. FCODE_100 モジュールを選択指定し、 変更を選択します。
11. module fcode_100 input の下の空白行にカーソルを移動します。
12. ブロック / クリップボード → クリップボードから挿入を選択します。

FRAGMENT からセクションが挿入されます。

13. 編集 → 置換の機能を使用して、 wbtable を自分のテーブル名で置き換えます 。
14. 変更を保存します。

ABAP エディタの内蔵機能を使用して、機能テンプレートをコードに自動挿入することができます。次に、これらのテンプレートをアプリケーションに合わせてカスタマイズします。次のようにして、機能を自動的にコードに挿入します。

1. fcode_100 モジュールを変更モードで開きます。
2. when space というエントリの直前にある endif のエントリを探します。

97 行目近辺の endif エントリを探してください。

3. endif の行の前に空白行を挿入します。
4. 編集 → 命令挿入と選択指定します。

命令挿入のダイアログが表示されます。

5. CALL FUNCTION を選択指定します。
6. 指定の場所に POPUP_TO_CONFIRM_LOSS_OF_DATA と入力します。
7. 続行を選択します。

この機能に対してテンプレートが入力されます。

8. コードを IF 命令に追加し、機能テンプレートの仕上げをします。

これが終了すると、コードは以下のように表されます。赤のテキストはユーザが追加しなければならない情報を表します。

message e004 with <tablename> -flid.
else.
call function ' POPUP_TO_CONFIRM_LOSS_OF_DATA '
exporting
textline1 = ' フライトを削除しますか ?'
TEXTLINE2 = ' '
titel = ' 注意 '
START_COLUMN = 25
START_ROW = 6
importing
answer = answer.
check answer ne 'N'.
delete <tablename>.
clear <tablename>.
message s003 with <tablename>-flid.
endif.

9. 変更を保存します。

プログラム → チェック機能を使用して、モジュールの構文をチェックします。