トップページ

ABAP サンプル

トランザクションコード ABAPDOCU を見るのが一番いいです。ここでは他にも便利なものを紹介します。

[ファイル選択のポップアップが出てくる]

・
・

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

* 出力ファイル名　検索ヘルプ
PERFORM WS_FILENAME_GET USING P_FILE.

・
・
・


FORM WS_FILENAME_GET USING LC_FILE.

CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = ' '
DEF_PATH = 'C:\'
MASK = ',*.*,*.*. '
MODE = 'O'
TITLE = ' '
IMPORTING
FILENAME = LC_FILE
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.

ENDFORM. " WS_FILENAME_GET

[RANGE型テーブル]

このタイプのテーブルはSELECT−OPTIONS同様、WHERE条件節で「IN　テーブル」として抽出条件に使えます。ただしレコード数が多いとエラーとなります。以下の例ではテーブルSELがINによるWHERE条件節として用いることができます。ちょうど、SELECT-OPTIONSで値を選択条件を入力している操作をMOVE文で実現したようなものです。

DATA: BEGIN OF SEL OCCURS 10,
SIGN(1),
OPTION(2),
LOW LIKE テーブル名-項目名,
HIGH LIKE テーブル名-項目名,
END OF SEL.

MOVE: 'I' TO SEL-SIGN,
'EQ' TO SEL-OPTION,
値１ TO SEL-LOW.
APPEND SEL.

MOVE: 'I' TO SEL-SIGN,
'EQ' TO SEL-OPTION,
値２ TO SEL-LOW.
APPEND SEL.

[汎用モジュールのINCLUDE使用法]

SE37　の属性タブで　プログラム名　SAPLZ_汎用モジュール名　をダブルクリック。

*******************************************************************
* User-defined Include-files (if necessary). *
*******************************************************************
* INCLUDE LZ_EDIT_REC_OF_TBL_CO_01F... " Subprograms
* INCLUDE LZ_EDIT_REC_OF_TBL_CO_01O... " PBO-Modules
* INCLUDE LZ_EDIT_REC_OF_TBL_CO_01I... " PAI-Modules

ここに追加してください

INCLUDE プログラム名.

[他のプログラムの呼び出し]

SUBMIT レポート名 WITH パラメータ名 = 選択値 AND RETURN.

[パターン]

ABAPエディタのメニュー「編集」-「パターン」　を使うと汎用モジュール等がモジュール名を入れるだけで、自動的にプログラムに挿入されます。

[バッチインプットで画面左下のメッセージを取得する方法]