ABAP routing in info package

Question

Hi All,
I have a requirement where about 1000 document numbers are to be used in the info package. I can wite an abap routine at the info package. Since there are many documents numbers, can I create an info object and load the numbers in it and use a simple select on the info object and compare it with the document no inside the abap routine. Though I have the idea I have not done anything like this before. Does anyone know how I can use l_t_range internal table with many individual document numbers?
Example code will be appreciated.
Thanks,
Alex.

Answer 1

Hi Alex,
I used the following code to upload from a TXT file to the infopackage selection criteria.
Note ": This does not work in Background as GUI UPLOAD does not work in background, so you will not be able to schedule it in a processchain.
data: l_idx like sy-tabix.
          read table l_t_range with key
               fieldname = 'MATERIAL'.
          l_idx = sy-tabix.
          modify l_t_range index l_idx.
          p_subrc = 0.
DATA s_line(18) TYPE N.
  DATA t_line LIKE STANDARD TABLE OF s_line.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = 'C:\input2.txt'
      filetype                      = 'ASC'
  HAS_FIELD_SEPARATOR           = ' '
  HEADER_LENGTH                 = 0
      read_by_line                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
    TABLES
      data_tab                      = t_line
   EXCEPTIONS
     file_open_error               = 1
     file_read_error               = 2
     no_batch                      = 3
     gui_refuse_filetransfer       = 4
     invalid_type                  = 5
     no_authority                  = 6
     unknown_error                 = 7
     bad_data_format               = 8
     header_not_allowed            = 9
     separator_not_allowed         = 10
     header_too_long               = 11
     unknown_dp_error              = 12
     access_denied                 = 13
     dp_out_of_memory              = 14
     disk_full                     = 15
     dp_timeout                    = 16
     OTHERS                        = 17
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  l_t_range-sign = 'I'.
  l_t_range-option = 'EQ'.
  LOOP AT t_line INTO s_line.
    l_t_range-low = s_line.
    IF sy-tabix = 1.
      MODIFY l_t_range INDEX l_idx.
    ELSE.
      APPEND l_t_range.
    ENDIF.
  ENDLOOP.
If you already have the document numbers, I guess it is easier to load it from a text file instead of creating an Infoobj.
You might need to change the declaration to suit your requirement.
The following piece to be changed as required
DATA s_line(18) TYPE N.
  DATA t_line LIKE STANDARD TABLE OF s_line.
Cheers,
Praveen.