problem in the function module RS_SET_SELSCREEN_STATUS-urgent

[Former Member]

HI ALL,

my rewuirement is i need to display my own pf status in selection screen.

when i am using below code i getting two buttons only.anybody can tell me where i made a mistake.

i am sendingf my code below.

TABLES : ZUSER_SECOBJECTS, SSCRFIELDS.

DATA : IT_sECOBJECTS LIKE ZUSER_SECOBJECTS OCCURS 0 WITH HEADER LINE.

data: begin of exclude occurs 0,

func(10) type c,

end of exclude.

PARAMETER : P_KUNNR LIKE KNA1-KUNNR.

CASE sscrfields-ucomm.

WHEN 'BACK' or 'EXIT'.

SET SCREEN 0.

LEAVE SCREEN.

WHEN 'EXECUTE'.

LEAVE TO LIST-PROCESSING . "<--- RIGHT HERE

SELECT * FROM ZUSER_SECOBJECTS

INTO TABLE IT_SECOBJECTS.

*CHECK SY-SUBRC EQ 0.

*LOOP AT IT_SECOBJECTS.

*WRITE : IT_SECOBJECTS.

*ENDLOOP.

ENDCASE.

at selection-screen output.

if sy-dynnr eq '1000'.

call function 'RS_SET_SELSCREEN_STATUS'

exporting

p_status = 'SELK1'

tables

p_exclude = exclude

exceptions

others = 1.

ENDIF.

thanks,

maheedhar.t

[Former Member]

have u checked this program?

DEMO_SEL_SCREEN_STATUS

[h_senden2]

You are missing a AT USER-COMMAND statement.

regards,

Hans

Please reward all helpful answers !!!!!

[Former Member]

Hi,

check this....

REPORT demo_sel_screen_status.

DATA itab TYPE TABLE OF sy-ucomm.

PARAMETERS test(10) TYPE c.

AT SELECTION-SCREEN OUTPUT.

APPEND: 'PRIN' TO itab,

'SPOS' TO itab.

CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'

EXPORTING

p_status = sy-pfkey

TABLES

p_exclude = itab.

regards,

navjot

reawrd if helpfull

[Former Member]

HI,

Write ur code AT USER_COMMAND Event

and comment LEAVE TO LIST-PROCESSING . "<--- RIGHT HERE code.

Regards

Santosh