Without selection screen how can we featch the file.

Question

Hi all,
     without selection screen(parameter,select-options iam not using these both.) how can we featch the flat file what ever it may be (file format is xls.textor any thing) how ot do...plz it's urgent for me.
Regards,
Krishna,

Answer 1

Hi varun,
  this is my sample code.here we are geting selection screen.without selection screen hoe to get file from out internal table.
plz gothrough this code and replay to me varun.
tables:pa0002.
type-pools:truxs.
*data:W_TRUXS_T_TEXT_DATA TYPE TRUXS_T_TEXT_DATA ,
     it_p0001 type standard table of pa0001.
TYPES: BEGIN OF it_p0002,
        pernr like pa0002-pernr,
        nachn like pa0002-nachn,
        vorna like pa0002-vorna,
       end of it_p0002.
DATA: t_p0002 type standard table of it_p0002,
      wa_p0002 type It_p0002.
DATA: it_raw TYPE truxs_t_text_data.
SELECTION-SCREEN BEGIN OF BLOCK S_BLK WITH FRAME TITLE TEXT-000.
parameters: P_EXCEL   TYPE RLGRAP-FILENAME.
SELECTION-SCREEN end OF BLOCK S_BLK.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_EXCEL.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
   PROGRAM_NAME        = SYST-CPROG
   DYNPRO_NUMBER       = SYST-DYNNR
   FIELD_NAME          = 'P_EXCEL'
IMPORTING
   FILE_NAME           = P_EXCEL .
START-OF-SELECTION.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
  EXPORTING
  I_FIELD_SEPERATOR          =
   I_LINE_HEADER              = 'X'
    I_TAB_RAW_DATA             = it_raw
    I_FILENAME                 = p_excel
  TABLES
    I_TAB_CONVERTED_DATA       = t_p0002[]
EXCEPTIONS
   CONVERSION_FAILED          = 1
   OTHERS                     = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
end-of-selection.
    loop at t_p0002 into wa_p0002.
       write:/ wa_p0002-pernr,
               wa_p0002-nachn,
               wa_p0002-vorna.
    endloop.