Skip to Content
0
Former Member
Jul 29, 2010 at 11:26 AM

Aggregation level activation problem

123 Views

Hello experts.

I have a problem with activation of aggregation level with abap program. When I debug the program i saw error like 'BWTK907074 BEX report is unavailable.' . Its a request code. Now i dont know how to pass this step and activate aggregation level.

Best Regards

Bilal

"If it is Nescessary my code is:

REPORT z_activate_obj.

DATA stat TYPE rsobjstat.

DATA cube TYPE rsinfocube.

TYPE-POOLS rsds.

DATA : rspar_tab TYPE TABLE OF rsparams ,

rspar_line LIKE LINE OF rspar_tab.

DATA zaglevel LIKE STANDARD TABLE OF rspls_alvl.

DATA wa1 LIKE LINE OF zaglevel .

  • ZFI_M01

SELECT SINGLE infocube objstat

INTO (cube,stat)

FROM rsdcube

WHERE objvers EQ 'A'.

IF stat NE 'ACT'.

PERFORM act_mpro USING cube.

ENDIF.

SELECT *

INTO TABLE zaglevel

FROM rspls_alvl

WHERE objvers EQ 'A'

AND objstat EQ 'INA'.

LOOP AT zaglevel INTO wa1.

PERFORM act_agglevel USING wa1-aggrlevel.

ENDLOOP.

&----


*& Form ACT_mpro

&----


FORM act_mpro USING p_cube.

rspar_line-selname = 'P_AREA'.

rspar_line-kind = 'P'.

rspar_line-sign = 'I'.

rspar_line-option = 'EQ'.

rspar_line-low = 'X'.

APPEND rspar_line TO rspar_tab.

rspar_line-selname = 'SO_MPRO'.

rspar_line-kind = 'S'.

rspar_line-sign = 'I'.

rspar_line-option = 'EQ'.

rspar_line-low = p_cube.

APPEND rspar_line TO rspar_tab.

DATA: number TYPE tbtcjob-jobcount,

name TYPE tbtcjob-jobname ,

print_parameters TYPE pri_params.

CONCATENATE 'Activate' p_cube INTO name SEPARATED BY space.

CALL FUNCTION 'JOB_OPEN'

EXPORTING

jobname = name

IMPORTING

jobcount = number

EXCEPTIONS

cant_create_job = 1

invalid_job_data = 2

jobname_missing = 3

OTHERS = 4.

SUBMIT rsdg_mpro_activate WITH SELECTION-TABLE rspar_tab

VIA JOB name NUMBER number

AND RETURN.

IF sy-subrc = 0.

CALL FUNCTION 'JOB_CLOSE'

EXPORTING

jobcount = number

jobname = name

strtimmed = 'X'

EXCEPTIONS

cant_start_immediate = 1

invalid_startdate = 2

jobname_missing = 3

job_close_failed = 4

job_nosteps = 5

job_notex = 6

lock_failed = 7

OTHERS = 8.

ENDIF.

ENDFORM. " ACT

&----


*& Form ACT_AGGLEVEL

&----


FORM act_agglevel USING p_agglevel.

DATA: l_t_return TYPE STANDARD TABLE OF bapiret2,

l_s_return TYPE bapiret2,

l_subrc TYPE sysubrc,

  • l_t_alvl TYPE STANDARD TABLE OF rspls_alvl,

  • l_s_alvl TYPE rspls_alvl,

l_t_alvl_iobj TYPE STANDARD TABLE OF rspls_s_rfc_alvl_iobj.

data zreturn like LINE OF l_t_return.

CALL FUNCTION 'RSPLS_ALVL_CHANGE'

EXPORTING

i_aggrlevel = p_agglevel

IMPORTING

e_subrc = l_subrc

TABLES

i_tk_alvl_iobj = l_t_alvl_iobj

e_tk_return = l_t_return.

CHECK l_subrc = 0.

CALL FUNCTION 'RSPLS_ALVL_CHECK'

EXPORTING

i_aggrlevel = p_agglevel

i_objvers = 'A'

IMPORTING

e_subrc = l_subrc

TABLES

e_tk_return = l_t_return.

CHECK l_subrc = 0.

CALL FUNCTION 'RSPLS_ALVL_ACTIVATE'

EXPORTING

i_aggrlevel = p_agglevel

IMPORTING

e_subrc = l_subrc

TABLES

e_tk_return = l_t_return.

loop at l_t_return into zreturn.

WRITE zreturn-message.

ENDLOOP.

ENDFORM. " ACT_AGGLEVEL