Anfang des Inhaltsbereichs

Programmbeispiel: Job-Listen generieren   Dokument im Navigationsbaum lokalisieren

*
* Datendeklarationen: BP_JOB_SELECT
*
DATA JSELECT LIKE BTCSELECT.

DATA SEL_JOBLIST LIKE TBTCJOB OCCURS 100.

*
* Datendeklarationen: BP_JOBLIST_PROCESSOR
*
DATA SELECTED_JOB LIKE TBTCJOB.
*
* Beispiel: Auswahlkriterien
*
JSELECT-JOBNAME = 'Generischer Name*'.
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.
<Fehlerverarbeitung>
ENDIF.

CALL FUNCTION 'BP_JOBLIST_PROCESSOR'
EXPORTING
JOBLIST_OPCODE = BTC_JOBLIST_EDIT " Modus setzen.
" Andere Konstanten:
" BTC_JOBLIST_SHOW
" BTC_JOBLIST_SELECT
JOBLIST_REFR_PARAM = JSELECT
TABLES
JOBLIST = SEL_JOBLIST
IMPORTING " Nur sinnvoll im
JOBLIST_SEL_JOB = SELECTED_JOB " Auswahlmodus
EXCEPTIONS
INVALID_OPCODE = 1
JOBLIST_IS_EMPTY = 2
OTHERS = 99.

IF SY-SUBRC > 0.
<Fehlerverarbeitung>
ENDIF.