Populate input in selection screen

[Former Member]

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
  SELECT-OPTIONS s_name FOR adsmtp-smtp_addr NO INTERVALS.
  PARAMETERS p_uname AS CHECKBOX DEFAULT ' '.
  SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
  IF p_uname IS INITIAL.
    PERFORM update
   ENDIF.

IF p_uname IS INITIAL.
  CLEAR v_name.
  CONCATENATE  sy-uname  INTO v_name
  TRANSLATE v_name TO LOWER CASE.
  IF NOT p_uname IS INITIAL.
"what should i code here so that
* my s_name input gets the name of the user logged in 
when i check the check box.
  ENDIF.
 endif.

Edited by: JohnMell02 on Feb 3, 2010 3:53 PM

Edited by: Rob Burbank on Feb 3, 2010 10:24 AM

[vinod_vemuru2]

Hi,

Check below sample code.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS s_name FOR sy-uname NO INTERVALS." OBLIGATORY.
PARAMETERS p_uname AS CHECKBOX DEFAULT ' ' USER-COMMAND ucomm.
SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN.
  REFRESH s_name[].

  IF p_uname EQ 'X'.
    s_name-sign = 'I'.
    s_name-option = 'EQ'.
    s_name-low = sy-uname.
    APPEND s_name.
  ENDIF.

Thanks,

Vinod.

[Former Member]

Vinod@ p_uname is not a internal table. Its a check box.

[vinod_vemuru2]

HI,

Yes. Is there any problem with above code? I am using p_uname as check box only:-)

IF p_uname EQ 'X'.  "Here it is check box.
    s_name-sign = 'I'.
    s_name-option = 'EQ'.
    s_name-low = sy-uname.
    APPEND s_name.                         "This is select option
  ENDIF.

Thanks,

Vinod.

[Former Member]

AT SELECTION-SCREEN OUTPUT.

IF p_uname IS INITIAL.

PERFORM update

ENDIF.

Please put in this event, it will automatically work.

[Former Member]

No it won't.

[Former Member]

AT SELECTION-SCREEN OUTPUT should work.