How to change the select-options fields length to long

Question

Dear friends:
   I had develop a program for sent email,and it have a field for fill mail address as below:
   data: lmail like adr6-smtp_addr.
   select-options: mailadd for lmail no intervals.
   my customer complain that the field is too short,but I can not change it to longer,the select-options component limit the visible length , how can i do for this problem!

Answer 1

Dear All:
  I had realized this function.
  I defined a parameter and a pushbutton to replace the select-option componet,
the code share as below.
data: lmail like adr6-smtp_addr.
SELECTION-SCREEN BEGIN OF LINE.
parameters: mailCopy like lmail.
selection-screen:pushbutton 64(5) pubu user-command mailButt.
SELECTION-SCREEN END OF LINE.
select-options: mailadd for lmail NO INTERVALS no-display.
at selection-screen output.
  CLEAR l_count.
  DESCRIBE TABLE mailadd LINES l_count.
  IF l_count > 1.
    write ICON_DISPLAY_MORE as icon to pubu.
  ELSE.
    write ICON_ENTER_MORE  as icon to pubu.
  ENDIF.
at selection-screen.
  CLEAR l_count.
  DESCRIBE TABLE mailadd LINES l_count.
  IF NOT mailCopy IS INITIAL AND mailadd[] IS INITIAL.
    MailAdd-low = mailCopy.
    Append mailadd.
  ENDIF.
  IF l_count = 1 and mailCopy IS INITIAL.
    refresh mailadd.
    clear mailadd.
  endif.
  if sy-ucomm = 'MAILBUTT'.
    perform show_box.
  endif.
*       FORM show_box                                                 *
FORM show_box.
  TYPE-POOLS aqadh .
  DATA: tab_and_field TYPE  rstabfield.
  tab_and_field-tablename = 'ADR6'.
  tab_and_field-fieldname = 'SMTP_ADDR'.
  CALL FUNCTION 'COMPLEX_SELECTIONS_DIALOG'
       EXPORTING
            TEXT           = 'SET E-Mail To '
            tab_and_field  = tab_and_field
       TABLES
            range          = MAILADD
       EXCEPTIONS
            no_range_tab   = 1
            cancelled      = 2
            internal_error = 3
            OTHERS         = 4.
  IF NOT MAILADD[] IS INITIAL.
    READ TABLE MAILADD INDEX 1.
    MAILCopy = MAILADD-LOW.
  ELSE.
    CLEAR MAILCopy.
  ENDIF.
ENDFORM.