how to open new Selection Screen on pushbutton?

Question

I want to display data, which is entered into text-box, in a new screen on submit ( Pushbutton) click event in ABAP Report program.

TABLES: SSCRFIELDS.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN:BEGIN OF LINE,
COMMENT 10(15) TEXT-S01.
PARAMETERS: P_NAME TYPE C LENGTH 17.


SELECTION-SCREEN:END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 33(10) submit USER-COMMAND CLI1.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.
 submit = 'CLI1'.

AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'CLI1'.
CALL FUNCTION 'ZFM_OPEN_SCREEN'
ENDCASE.

In Function module 'ZFM_OPEN_SCREEN', I'm creating a new Selection-Screen. But problem is click event is not working, it just refresh the current screen.

FUNCTION ZFM_OPEN_SCREEN.
WRITE: P_NAME.
ENDFUNCTION.

Its not giving an error,but doesn't execute.