*"----------------------------------------------------------------------

*"*"Local interface:

*"----------------------------------------------------------------------

*--- local declarations

DATA: LV_LINES LIKE SY-TFILL,

LV_RLTYP LIKE TBZ0-RLTYP.

*--- initialize

*--- inquire of commisions application in SET-parameter CACSAPPL

CALL FUNCTION 'CACS_APPL_GET_SET'

EXPORTING

I_FLG_MUST_CHOOSE = 'X'

IMPORTING

E_APPL = GV_APPL

EXCEPTIONS

NO_AUTHORITY = 1

NO_APPL_CHOOSEN = 2

APPL_TOO_OLD = 3.

IF SY-SUBRC <> 0.

CALL FUNCTION 'BUS_MESSAGE_STORE'

EXPORTING

ARBGB = SY-MSGID

MSGTY = SY-MSGTY

TXTNR = SY-MSGNO.

ENDIF.

*----- Get parameters to start -----------------------------------------

CALL FUNCTION 'BUS_PARAMETERS_ISSTA_GET'

IMPORTING

E_AKTYP = GC_STAT-AKTYP

E_XSAVE = GV_XSAVE

E_XINIT = GV_XINIT

E_XUPDTASK = GV_XUPDTASK

E_XDINP = GV_XDINP

E_NODATA = GV_NODATA

TABLES

T_FLDVL = GT_FLDVL.

*--- Modul doesn’t set return codes, no checks required

ENDFUNCTION.