regd subcreen in selection screen

Hi all,

i am making subscreens in selection screen of my program. While giving the headings of the screens, it is taking only fixed amount of caharcters. please see my code below and advice whether there is any option to increase the length of the screen header???

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,

TAB (10) button1 USER-COMMAND push1,

TAB (10) button2 USER-COMMAND push2,

END OF BLOCK mytab.

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.

parameters p_post type ZHRN_RES_DEP-zpost lower case modif id g2.

SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

parameters p_hftot type ZHRN_RES_DEP-ZHALFTOT lower case modif id g2.

PARAMETERS p_hfsc type ZHRN_RES_DEP-ZHALFSC lower case modif id g2.

PARAMETERS p_hfst type ZHRN_RES_DEP-ZHALFSt lower case modif id g2.

SELECTION-SCREEN END OF SCREEN 200.

INITIALIZATION.

button1 = 'Post'.

button2 = 'Previous yr'.

button3 = 'No. joined during the half year'.

button4 = 'No. repatriated'.

button5 = 'No. in position at the end of current half year'.

mytab-prog = sy-repid.

mytab-dynnr = 100.

mytab-activetab = 'PUSH1'.

AT SELECTION-SCREEN.

CASE sy-dynnr.

WHEN 1000.

CASE sy-ucomm.

WHEN 'PUSH1'.

mytab-dynnr = 100.

WHEN 'PUSH2'.

mytab-dynnr = 200.

WHEN OTHERS.

...

ENDCASE.

...

ENDCASE.

Thanks & Regrdas,

Preeti