Comparing a range with rang of values

Question

Hi,
Please help me to get a solution for the below, Thank you!!
I have a table which contains values like select options.
Ex: Here table fields are SIGN, OPTION, LOW and HIGH.
i need to select these table entries using the selection screen (this is parameter) input,
where user can give input exact value or '' or somthing (Ex. IN*) or  *somthing (Ex. *03).
Or after selecting the entries from the table into internal table, i need to filter the internal table entries with selection screen input.
Here when user inputs with pattren (Ex. IN* or *03) and the table entry is
SIGN   OPTION      LOW                HIGH
I      BT             IN01                 KR01
here if user inputs *03, the above table entriy should come in the output.
as IN03 or JP03 etc...comes under above range.
Can any one suggest any solution for this?
This is quite urgent issue, pleae help me in this regard.
Thanks and regards,
Satish
Message was edited by:
        SATISH KOTTE

Answer 1

I have done similar requirement in dialog program and i used find button to get exact field in top line cursor.
Create one internal table where you are finding the data from database table.
See the logic in form routine : FORM find_field USING    command.
Below sample program :
*& Module pool       ZLWMI151_BAT1
*& Transaction:      ZBAT1
*& Programmer:       Seshu Maramreddy
*& Date      :       05/17/2005
Transport :       DV3K919574
*& Description:      This program Will Displays the Batch Conversion
*&                   data in Display mode. Batch conversion
*&                   table (ZBATCH_CROSS_REF)
PROGRAM ZLWMI151_BAT1 .
INCLUDE ZLWMI151_BAT1_TOP.
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
  case ok_code.
    when 'BACK'.
      leave to screen 0.
    when 'EXIT'.
      leave to screen 0.
    when 'CANC'.
      leave to screen 0.
    when 'EXCE'.
      perform down_load.
    WHEN '%SC'.
      perform find_field using ok_code.
  endcase.
  clear ok_code.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  STATUS_0100  OUTPUT
      GUI Status
MODULE
STATUS_0100 OUTPUT.
  SET PF-STATUS 'STLI'.
  DESCRIBE TABLE T_zbatch LINES G_LINE.
  TC1-LINES = TC1-LINES + 18.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Form  down_load
      text
FORM down_load.
  CALL FUNCTION 'DOWNLOAD'
       EXPORTING
            FILENAME                = ' '
            FILETYPE                = 'DAT'
       TABLES
            DATA_TAB                = t_zbatch
       EXCEPTIONS
            INVALID_FILESIZE        = 1
            INVALID_TABLE_WIDTH     = 2
            INVALID_TYPE            = 3
            NO_BATCH                = 4
            UNKNOWN_ERROR           = 5
            GUI_REFUSE_FILETRANSFER = 6
            CUSTOMER_ERROR          = 7
            OTHERS                  = 8.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " down_load
*&      Module  modify  OUTPUT
      text
MODULE modify OUTPUT.
  select * from zbatch_cross_ref into corresponding fields of table
  t_zbatch.
  sort t_zbatch by werks werks cmatnr srlno.
ENDMODULE.                 " modify  OUTPUT
*&      Form  find_field
      text
     -->P_OK_CODE  text
FORM find_field USING    command.
  data: position like sy-tabix.
  data: found(1).
  data: find_pos like sy-tabix,
        loop_curr like sy-tabix.
  select * from zbatch_cross_ref into table t_find.
  sort t_find by werks cmatnr srlno.
  if command = '%SC'.                 "Suchen
    position  = 1.
    perform popup_get_value using 'FSTR' ''
                            changing rsdxx-findstr.
  else.     "FIWE          "Suchen wiederholen
    position  = loop_first + 1.
    if rsdxx-findstr = space.
      perform popup_get_value using 'FSTR' ''
                              changing rsdxx-findstr.
    endif.
  endif.
  if ok_code = 'ABR'.
    clear ok_code.
    leave screen.
  else.
    clear found.
    loop at t_find from position.
      if t_find cs rsdxx-findstr
      or t_find cp rsdxx-findstr.
        found     = 'X'.
        find_pos = sy-tabix.
        exit.
      endif.
    endloop.
    if found = 'X'.
      loop_curr = 1.
      tabpos = loop_first = find_pos.
      if use_old is initial.
        tc1-top_line = find_pos.
       set cursor field tc1-top_line.
      endif.
    else.
      message s042(e2) with rsdxx-findstr.
    endif.
  endif.
ENDFORM.                    " find_field
FORM POPUP_GET_VALUE USING FCT MODE
                     CHANGING VALUE.
  DATA: ANSWER,
        popup_title(35),
        TITLE LIKE POPUP_TITLE,
        FIELDS LIKE SVAL OCCURS 1 WITH HEADER LINE.
  CASE FCT.
    WHEN 'FIND'.                       "Suchen Feld
      TITLE = TEXT-TFI.
      FIELDS-TABNAME = 'RSEDD0'.
      FIELDS-FIELDNAME = 'FIELDNAME'.
      FIELDS-NOVALUEHLP = 'X'.
      FIELDS-VALUE = VALUE.
      APPEND FIELDS.
    WHEN 'FSTR'.                       "Suchen String
      TITLE = TEXT-TFS.
      FIELDS-TABNAME = 'RSDXX'.
      FIELDS-FIELDNAME = 'FINDSTR'.
      FIELDS-NOVALUEHLP = 'X'.
      FIELDS-VALUE = VALUE.
      APPEND FIELDS.
    WHEN 'ACCL'.                       "Aktivierungsart
      TITLE = TEXT-TAC.
      FIELDS-TABNAME = 'DD02D'.
      FIELDS-FIELDNAME = 'AUTHCLASS'.
      FIELDS-VALUE = VALUE.
      IF MODE = 'S'.
        FIELDS-FIELD_ATTR = '02'.
      ENDIF.
      APPEND FIELDS.
    WHEN 'DELC'.                       "Auslieferungsklasse
      TITLE = TEXT-TDC.
      FIELDS-TABNAME = 'DD25D'.
      FIELDS-FIELDNAME = 'CUSTOMAUTH'.
      FIELDS-VALUE = VALUE.
      IF MODE = 'S'.
        FIELDS-FIELD_ATTR = '02'.
      ENDIF.
      APPEND FIELDS.
  ENDCASE.
  CALL FUNCTION 'POPUP_GET_VALUES'
       EXPORTING
            POPUP_TITLE     = TITLE
       IMPORTING
            RETURNCODE      = ANSWER
       TABLES
            FIELDS          = FIELDS
       EXCEPTIONS
            ERROR_IN_FIELDS = 1
            OTHERS          = 2.
  IF SY-SUBRC = 0
  AND ANSWER = SPACE.
    VALUE = FIELDS-VALUE.
  ENDIF.
ENDFORM.
  INCLUDE ZLWMI151_BAT1_TOP                                          *
tables : zbatch_cross_ref,
         rsdxx.
data t_zbatch like zbatch_cross_ref occurs 0 with header line.
data :ok_code(4) type c,
      g_line type sy-index,
      loop_first like sy-tabix,
      tabpos like sy-tabix,
      USE_OLD type char1.
controls tc1 type tableview using screen 0100.
data : begin of t_find occurs 0.
  include structure zbatch_cross_ref.
data : end of t_find.
Reward Points if it is useful
Thanks
Seshu