Shortdump when using tab strip control

[Former Member]

I have a screen with a tab strip control with 3 tabs. When I press tab2 on the screen, the program is dumping in FM 'AC_SYSTEM_FLUSH '. Can anybody tell me what could be the problem?

<u>Here is the code:</u>

<b>PROCESS BEFORE OUTPUT.</b>

MODULE get_dynnr_o10.

MODULE ts_active_tab_set.

CALL SUBSCREEN

area INCLUDING g_ts-prog g_ts-subscreen.

<b>PROCESS AFTER INPUT.</b>

MODULE event_handler_i00.

CALL SUBSCREEN area.

MODULE ts_active_tab_get.

***********************************

<b>MODULE ts_active_tab_set OUTPUT.</b>

ts-activetab = g_ts-pressed_tab.

CASE g_ts-pressed_tab.

WHEN c_ts-tab1.

g_ts-subscreen = '0109'.

WHEN c_ts-tab2.

g_ts-subscreen = '0110'.

WHEN c_ts-tab3.

g_ts-subscreen = '0113'.

WHEN OTHERS.

ENDCASE.

<b>ENDMODULE. "TS_ACTIVE_TAB_SET OUTPUT</b>

<b>MODULE ts_active_tab_get INPUT.</b>

ok_code = sy-ucomm.

CASE ok_code.

WHEN c_ts-tab1.

g_ts-pressed_tab = c_ts-tab1.

WHEN c_ts-tab2.

g_ts-pressed_tab = c_ts-tab2.

WHEN c_ts-tab3.

g_ts-pressed_tab = c_ts-tab3.

WHEN OTHERS.

ENDCASE.

<b>ENDMODULE. "TS_ACTIVE_TAB_GET INPUT</b>

Here is the source code where the program is dumping:

1 FUNCTION AC_SYSTEM_FLUSH .

2 *"----

---

3 ""Lokale Schnittstelle:

4 *" IMPORTING

5 *" VALUE(CALLED_BY_SYSTEM) TYPE C OPTIONAL

6 *" EXCEPTIONS

7 *" CNTL_SYSTEM_ERROR

8 *" CNTL_ERROR

9 *"----

---

0 data: sysubrc like sy-subrc.

1

2 CALL FUNCTION 'AC_FLUSH_CALL'

3 EXPORTING

4 SYSTEM_FLUSH = 'X'

5 CALLED_BY_SYSTEM = CALLED_BY_SYSTEM

6 IMPORTING

7 MESSAGE_NR = sysubrc

8 MESSAGE_TEXT = SY-MSGLI.

9

0 sy-subrc = sysubrc.

1

2 CASE SY-SUBRC.

3 WHEN 0.

4 WHEN 1.

5 * system_error

6 MESSAGE ID 'CNDP' TYPE 'X' NUMBER 007 RAISING CNTL_SYSTEM_ERROR.

7 WHEN 2.

8 * method_call_error

> MESSAGE ID 'CNDP' TYPE 'X' NUMBER 006 RAISING CNTL_ERROR.

0 WHEN 3.

1 * property_set_error

2 MESSAGE ID 'CNDP' TYPE 'X' NUMBER 006 RAISING CNTL_ERROR.

3 WHEN 4.

4 * property_get_error

5 MESSAGE ID 'CNDP' TYPE 'X' NUMBER 006 RAISING CNTL_ERROR.

6 WHEN OTHERS.

7 RAISE CNTL_ERROR.

[RichHeilman]

Do you have any controls on your subscreens? Like maybe an ALV Grid?

REgards,

Rich Heilman

[Former Member]

I have a table control in one of these subscreens.

[RichHeilman]

Throw in debug mode and see exactly what statement you are getting this dump. My guess is that this dump is happening at the very end of the PBO, right?

Regards,

RIch Heilman

[Former Member]

Yes, it is dumping at the end of PBO of screen 103.

[Former Member]

I have tab strip control on screen 103 and it is dumping after PBO.

[Former Member]

I have couple othe modules in my PBO and I believe one of those modules is creating a shortdump. When I comment <b>get_action_controls</b> and <b>actionbox_tre</b>e modules out, it is working fine.

Here is the PBO :

<b>MODULE ts_active_tab_set.</b>

CALL SUBSCREEN

area INCLUDING g_ts-prog g_ts-subscreen.

<b>MODULE get_action_controls.</b>

<b> MODULE actionbox_tree.</b>

<b> MODULE status_0103.</b>

************************

<b>PAI is same as posted above</b>

***********************

<b>MODULE get_action_controls OUTPUT.</b>

DATA: it_viqmel TYPE viqmel.

DATA: g_actionbox_design TYPE qnqmactionbox.

data: v_fcode type T185F-FCODE.

v_fcode = ok_code.

SELECT SINGLE * FROM viqmel INTO it_viqmel WHERE qmnum = it_tc-qmnum. "it_alv_output-qmnum.

CALL FUNCTION 'QM07_CREATE_ACTIONBOX'

EXPORTING

i_viqmel = it_viqmel

i_actionbox_design = g_actionbox_design

i_aktyp = 'V'

i_okcode = v_fcode

• I_MANUM =

• IMPORTING

• E_ACTIONBOX =

• TABLES

• TI_QMSM =

• TI_QMMA =

.

<b>

ENDMODULE. " GET_ACTION_CONTROLS OUTPUT</b>

<b>MODULE actionbox_tree OUTPUT.</b>

<b> PERFORM create_actionbox_tree_f75.

ENDMODULE. " actionbox_tree_o75 OUTPUT</b>

<b>FORM create_actionbox_tree_f75 .</b>

DATA: l_repid LIKE sy-repid.

DATA g_tree_ab_dynnr LIKE sy-dynnr.

IF g_tree_ab_dynnr IS INITIAL.

g_tree_ab_dynnr = sy-dynnr.

l_repid = sy-repid.

• call function 'QM07_CREATE_TOOLBAR_ACTIONBOX'

CALL FUNCTION 'QM07_CREATE_TREE_ACTIONBOX'

EXPORTING

i_repid = l_repid

i_dynnr = g_tree_ab_dynnr.

ELSEIF g_tree_ab_dynnr <> sy-dynnr.

g_tree_ab_dynnr = sy-dynnr.

l_repid = sy-repid.

CALL FUNCTION 'QM07_LINK_TREE_ACTIONBOX'

EXPORTING

i_repid = l_repid

i_dynnr = g_tree_ab_dynnr.

ENDIF.

<b>ENDFORM. " create_actionbox_tree_f75</b>

[RichHeilman]

Not sure what the action box or tree is, but I'm thinking that either or both may use a control, which is the reason for your problem.

Regards,

RIch Heilman

[Former Member]

Ok..I will look into this. Thanks Rich