Select vendors in character format

Question

hi ,
I have an internal Table with 53,890 vendors in first column.
the others columns contains vendor descirptions and their address.
for e,g say i have records in my internal table as follows.
LIFNR
1) 0000001109
2) 0000001111
3) 0000005581
4) E-115174
5) E-115175
6) E-115176
7) E-115177
8) MR84
9) MR85
10) MR86
now i want to delete records starting from 1 to 3 as they are number format
but i don't want to delete records from 4 to 10 as they are character format.
i can do that deletion based on number and character formats
using the below code.
*Final Table for Diplsay of Vendors
LOOP AT t_lfa1 INTO wa_lfa1.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
string_in = wa_lfa1-lifnr
IMPORTING
htype = w_type.
IF w_type = 'NUMC'.
DELETE t_lfa1 WHERE lifnr = wa_lfa1-lifnr.
ENDIF.
ENDLOOP.
the above code fulfills my requirement but it takes lot of time when moved for testing since there are
53,890 records and DELETE will always increases the index cost and performance problem comes.
My requirement is there any condition we can put in my SELECT syntax where in i can select only
those records in character format

Answer 1

HI,
     Declare another internal table and append the record to that internal table instead of deleting regenerating index. Once your other internal table filled clear the contents of the first internal table. see below the sample code, this might help you.
TYPES : BEGIN OF ty_lfa1,
         lifnr TYPE lfa1-lifnr,
        END OF ty_lfa1.
DATA : it_lfa1 TYPE TABLE OF ty_lfa1,
       it_lfa2 TYPE TABLE OF ty_lfa1,
        wa_lfa1 TYPE ty_lfa1.
DATA : w_lifnr TYPE lfa1-lifnr,
       w_type TYPE dd01v-datatype.
LOOP AT it_lfa1 INTO wa_lfa1.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input  = wa_lfa1-lifnr
    IMPORTING
      output = wa_lfa1-lifnr.
  CALL FUNCTION 'NUMERIC_CHECK'
    EXPORTING
      string_in = wa_lfa1-lifnr
    IMPORTING
      htype     = w_type.
  IF w_type NE 'NUMC'.
    APPEND  wa_lfa1 TO it_lfa2.
  ENDIF.
ENDLOOP.
FREE it_lfa1.
BREAK-POINT.
Regards
Bala Krishna