Hiding a selection screen

[Former Member]

Hi,

I have a small issue in hding a selection screen.I am able to hide the screen but when i use a push button to display it i am not able to it.Can some one tell me where i am going wrong .I am herewith sending you the code.If i use the flas then it works.

TABLES VBAK.

SELECTION-SCREEN BEGIN OF SCREEN 9000.

SELECTION-SCREEN PUSHBUTTON 10(5) PB1 USER-COMMAND AB1.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : P_VBELN FOR VBAK-VBELN MODIF ID A1.

SELECTION-SCREEN END OF BLOCK B1.

*DATA FLAG.

SELECTION-SCREEN END OF SCREEN 9000.

INITIALIZATION.

PB1 = 'Push'.

*FLAG = 0.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'A1'.

SCREEN-ACTIVE = 0.

• SCREEN-ACTIVE = FLAG.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

START-OF-SELECTION.

CALL SELECTION-SCREEN 9000.

AT SELECTION-SCREEN.

CASE SY-UCOMM.

WHEN 'AB1'.

• CLEAR FLAG.

• FLAG = 1.

CLEAR SCREEN.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'A1'.

SCREEN-ACTIVE = 1.

• SCREEN-ACTIVE = FLAG.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDCASE.

I do not want to use the flag.Can someone tell me what should i do to rectify it.

Thanks

Regards

Harish

[Former Member]

Try this

TABLES: VBAK.
DATA ok_code TYPE sy-ucomm.

SELECTION-SCREEN BEGIN OF SCREEN 9000.
SELECTION-SCREEN PUSHBUTTON 10(5) PB1 USER-COMMAND AB1.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : P_VBELN FOR VBAK-VBELN MODIF ID A1.
SELECTION-SCREEN END OF BLOCK B1.
*DATA FLAG.
SELECTION-SCREEN END OF SCREEN 9000.

INITIALIZATION.

PB1 = 'Push'.
*FLAG = 0.

AT SELECTION-SCREEN.
  ok_code = sy-ucomm.

AT SELECTION-SCREEN OUTPUT.

CASE ok_code.

WHEN 'AB1'.

LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'A1'.
SCREEN-ACTIVE = 1.
* SCREEN-ACTIVE = FLAG.
MODIFY SCREEN.
ENDIF.
ENDLOOP.

WHEN OTHERS.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'A1'.
SCREEN-ACTIVE = 0.
* SCREEN-ACTIVE = FLAG.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDCASE.

START-OF-SELECTION.
CALL SELECTION-SCREEN 9000.

[Former Member]

Hi,

Thanks a lot.It worked fine.

Harish