I want to generate value for parameter

Question

Hi experts,
I write one code to generate employee id automatic based on the previous fields in selection screen. ID is generated successfully but I am not able to appear it selection at run time. Please help here is my code.
REPORT  ZSELECT_TOP.
TYPE-POOLS: VRM.
DATA: NAME  TYPE VRM_ID,
      LIST  TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST.
data: id1(4) type c VALUE 'ACEN'.
data: dep like ZACENTIQ_PAGE1-sno.
data: slno(13) TYPE c.
DATA:WA33 TYPE ZACENTIQ_PAGE1.
PARAMETERS:UserName(20) type C ,
            Password(10) type C .
PARAMETERS:Depart(15) AS LISTBOX VISIBLE LENGTH 17.
PARAMETERS: Emp_ID(13) TYPE c DEFAULT slno.
AT SELECTION-SCREEN OUTPUT.
NAME = 'DEPART'.
   VALUE-KEY = 'DEV'.
   VALUE-TEXT = 'DEVELOPMENT'.
   APPEND VALUE TO LIST.
   VALUE-KEY = 'MARK'.
   VALUE-TEXT = 'MARKETING'.
   APPEND VALUE TO LIST.
   VALUE-KEY = 'CRM'.
   VALUE-TEXT = 'CRM'.
   APPEND VALUE TO LIST.
   CALL FUNCTION 'VRM_SET_VALUES'
     EXPORTING
       ID     = NAME
       VALUES = LIST.
   SELECT * FROM ZACENTIQ_PAGE1 INTO wa33 UP TO 1 ROWS ORDER BY sno DESCENDING.
  dep = wa33-sno.
ENDSELECT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
   EXPORTING
     INPUT         = dep
  IMPORTING
    OUTPUT        = dep
   CONCATENATE id1 '/' depart '/' dep into slno.
*----------------------------- At selection screen -------------------------------------
   AT SELECTION-SCREEN.
Message was edited by: Manish Kumar : Moderator message: I have edited your post to correct spelling mistakes, all CAPS (shouting) and applied fixed-width font on code for readability. Good formatting can yield better responses.

Answer 1

I allready used it in At-SELECTION-SCREEN OUTOUT BUT STILL NOT COMING.
HERE IS MY CODE
TYPE-POOLS: VRM.
DATA: NAME  TYPE VRM_ID,
       LIST  TYPE VRM_VALUES,
       VALUE LIKE LINE OF LIST.
data: id1(4) type c VALUE 'ACEN'.
data: dep like ZACENTIQ_PAGE1-sno.
data: slno(13) TYPE c.
DATA:WA33 TYPE ZACENTIQ_PAGE1.
DATA INT(3)  TYPE I.
PARAMETERS:UserName(20) type C ,
            Password(10) type C .
PARAMETERS:Depart(15) AS LISTBOX VISIBLE LENGTH 17 DEFAULT 'DEV'.
PARAMETERS: Emp_ID(13) TYPE c  MODIF ID g1.
AT SELECTION-SCREEN OUTPUT.
NAME = 'DEPART'.
   VALUE-KEY = 'DEV'.
   VALUE-TEXT = 'DEVELOPMENT'.
   APPEND VALUE TO LIST.
   VALUE-KEY = 'MARK'.
   VALUE-TEXT = 'MARKETING'.
   APPEND VALUE TO LIST.
   VALUE-KEY = 'CRM'.
   VALUE-TEXT = 'CRM'.
   APPEND VALUE TO LIST.
   CALL FUNCTION 'VRM_SET_VALUES'
     EXPORTING
       ID     = NAME
       VALUES = LIST.
loop at screen.
    IF SCREEN-NAME = 'EMP_ID' AND screen-group1 = 'G1'.
SELECT * FROM ZACENTIQ_PAGE1 INTO wa33 UP TO 1 ROWS ORDER BY sno DESCENDING.
  dep = wa33-sno.
ENDSELECT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
   EXPORTING
     INPUT         = DEP
  IMPORTING
    OUTPUT        = dep.
CONCATENATE id1 '/' depart '/' DEP into slno.
EMP_ID = slno.
   MODIFY SCREEN .
   ENDIF.
   ENDLOOP.
*----------------------------- At selection screen -------------------------------------
   AT SELECTION-SCREEN.
   INITIALIZATION.
   START-OF-SELECTION.