selection-screen

Hi All,

Iam handling one issue in this my problem is how to deduce the size of selection-screen (column wise) , iam sending sample code , plz any body can suggest me how to selection-screen size.

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.

PARAMETERS: p1(10) TYPE c,

p2(10) TYPE c,

p3(10) TYPE c.

SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

PARAMETERS: q1(10) TYPE c,

q2(10) TYPE c,

q3(10) TYPE c.

SELECTION-SCREEN END OF SCREEN 200.

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

TAB (20) button1 USER-COMMAND push1,

TAB (20) button2 USER-COMMAND push2,

END OF BLOCK mytab.

INITIALIZATION.

button1 = 'Selection Screen 1'.

button2 = 'Selection Screen 2'.

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.