*
* データ宣言 : BP_JOB_SELECT
*
DATA JSELECT LIKE BTCSELECT.

DATA SEL_JOBLIST LIKE TBTCJOB OCCURS 100.

*
* データ宣言 : BP_JOBLIST_PROCESSOR
*
DATA SELECTED_JOB LIKE TBTCJOB.
*
* サンプル選択基準
*
JSELECT-JOBNAME = ' 総称名 *'.
JSELECT-USERNAME = SY-UNAME.

CALL FUNCTION 'BP_JOB_SELECT'
EXPORTING
JOBSELECT_DIALOG = BTC_NO
JOBSEL_PARAM_IN = JSELECT
IMPORTING
JOBSEL_PARAM_OUT = JSELECT
TABLES
JOBSELECT_JOBLIST = SEL_JOBLIST
EXCEPTIONS NO_JOBS_FOUND = 1
SELECTION_CANCELED = 2
OTHERS = 99.

IF SY-SUBRC > 0.
< エラー処理 >
ENDIF.

CALL FUNCTION 'BP_JOBLIST_PROCESSOR'
EXPORTING
JOBLIST_OPCODE = BTC_JOBLIST_EDIT “ モードの設定
“ その他の定数 :
“ BTC_JOBLIST_SHOW
“ BTC_JOBLIST_SELECT
JOBLIST_REFR_PARAM = JSELECT
TABLES
JOBLIST = SEL_JOBLIST
IMPORTING “ 選択モードの場合
JOBLIST_SEL_JOB = SELECTED_JOB “ のみ有用
EXCEPTIONS
INVALID_OPCODE = 1
JOBLIST_IS_EMPTY = 2
OTHERS = 99.

IF SY-SUBRC > 0.
< エラー処理 >
ENDIF.