Hi mani bhushan
Try like this
Data : Flag type C.
CALL SCREEN 9000.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
SET PF-STATUS 'PF_9000'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
CASE sy-ucomm.
when 'REPORT'.
CALL TRANSACTION 'MB5B'.
When 'EXIT'.
Leave TO SCREEN 0.
When 'CREATE'.
FLAG = 'C'.
endcase.
ENDMODULE. " USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
*& Module hide_head OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module hide_head output.
loop at screen .
if flag eq 'C'.
if screen-group1 eq 'G1'.
screen-input = 0.
modify screen.
endif.
ELSE.
if screen-group1 eq 'G1'.
screen-input = 1.
modify screen.
endif.
endif.
ENDLOOP.
endmodule. " hide_head OUTPUT
