How can I load a flat file into a ZTABLE dynamically

Question

I need to create a program which can Load a ZTABLE from a flat file structure (delimited and fixed options required).  We have many ZTables where this will be required so I was hoping to do it dynamically somehow.  Otherwise I will have to create one ABAP for every ZTable we have to load.
My Inputs should be
PARAMETERS:  p_ztable TYPE ddobjname,         "Z Table Name
             p_infile(132) LOWER CASE,        "File Name
             p_delim(1).                      "Delimiter
  I know that I can read the file by using gui_upload
    CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = c_infile
      has_field_separator     = p_delim
    TABLES
      data_tab                = indata
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
        OTHERS                  = 9.
I know that  I can split the contents of this file (if a delimiter is used).  However I will not know the actual field names of the table until runtime as to what to fields to split it into.  In the example below I have the actual table (t_rec) and each of the fields (pernr, lgart, etc) in the code but each table I
need to load will be different – it will have a different # of fields as well.
FORM read_data_pc.
  LOOP AT indata.
    PERFORM splitdata USING indata.
    APPEND t_rec.
    CLEAR t_rec.
  ENDLOOP.
ENDFORM.
FORM splitdata USING p_infile.
   SPLIT p_infile AT p_delim INTO
        t_rec-pernr                 "Employee #
        t_rec-lgart                 "Wage Type
        t_rec-begda                 "Effective date
        t_rec-endda.                 "End date
  ENDFORM.                       
Once I split the data into the fields then I can just look and insert the record.
Does anyone have any ideas?  Specific code examples would be great if you do.  Thx!!

Answer 1

Hi janice,,
Try this sample code where you can upload data from a flat file into the internal table.
REPORT  z_test.
TABLES: mara.
FIELD-SYMBOLS : <fs> .
DATA : fldname(50) TYPE c.
DATA : col TYPE i.
DATA : cmp LIKE TABLE OF rstrucinfo WITH HEADER LINE.
DATA: progname LIKE sy-repid,
dynnum LIKE sy-dynnr.
DATA itab TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
DATA: BEGIN OF ZUPLOAD1_T OCCURS 0 ,
         matnr like mara-matnr,
         ersda like mara-ersda,
         ernam like mara-ernam,
         laeda like mara-laeda,
      END OF ZUPLOAD1_T.
*DATA: ZUPLOAD1_T LIKE mara OCCURS 0 WITH HEADER LINE.
DATA: wa_data LIKE TABLE OF  ZUPLOAD1_T WITH HEADER LINE.
selection-screen
SELECTION-SCREEN: BEGIN OF BLOCK blk WITH FRAME TITLE text-001.SELECTION-SCREEN : SKIP 1. PARAMETERS : p_file LIKE rlgrap-filename.SELECTION-SCREEN : SKIP 1.SELECTION-SCREEN : END OF BLOCK blk
. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
F4 Value for File
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'   EXPORTING
                      PROGRAM_NAME        = SYST-REPID
                      DYNPRO_NUMBER       = SYST-DYNNR
                      FIELD_NAME          = ' '
     static              = 'X'
                      MASK                = ' '
    CHANGING      file_name           = p_file   EXCEPTIONS     mask_too_long       = 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.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' 
EXPORTING    filename                      = P_FILE   
i_begin_col                   = 1   
i_begin_row                   = 1   
i_end_col                     = 5   
i_end_row                     = 12507 
     tables   
   intern                        = ITAB
EXCEPTIONS  
        INCONSISTENT_PARAMETERS       = 1  
        UPLOAD_OLE                    = 2  
       OTHERS                        = 3.          .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GET_COMPONENT_LIST' 
EXPORTING  
    program          = SY-REPID   
    fieldname        = 'ZMARA' 
       tables   
       components       = CMP.
LOOP AT itab.    AT NEW row.     
IF sy-tabix = 1.        APPEND ZUPLOAD1_T.     
ENDIF.   
ENDAT.   
col = itab-col.   
READ TABLE cmp INDEX col.  
CONCATENATE 'ZUPLOAD1_T-' cmp-compname INTO fldname.  
ASSIGN (fldname) TO <fs>.  
<fs> = itab-COL.  
  APPEND ZUPLOAD1_T.  ENDLOOP.
DELETE ZUPLOAD1_T where matnr eq space.
LOOP AT ZUPLOAD1_T INTO wa_data.
insert mara from  wa_data .
    WRITE: / ZUPLOAD1_T-matnr, 20 ZUPLOAD1_T-ersda , 45 ZUPLOAD1_T-ernam, 55 ZUPLOAD1_T-laeda.
*HERE IAM JUST CHECKING I NEED TO UPDATE A ZTABLE
  ENDLOOP.
insert ZMARA FROM table itab ACCEPTING DUPLICATE KEYS.
I have tried it for mara.Please let me know whether it was helful.
Regards,
Kannan