Uploading Excel file to SAP

Question

Hi Friends,
Iam trying to Upload Excel file into SAP using the FM
ALSM_EXCEL_TO_INTERNAL_TABLE. But it is going to dump n the error is                                                                             
The call to the function module "ALSM_EXCEL_TO_INTERNAL_TABLE" is incorrect:                                                                               
In the function module interface, you can specify only                          
fields of a specific type and length under "INTERN".                            
Although the currently specified field                                          
"ITAB" is the correct type, its length is incorrect.                            
I have attached the code also.
Please let me know where iam getting the error.
Code :
Tables : mara,
         ztable.
parameters : p_infile like rlgrap-filename.
data : begin of itab occurs 0,
       matnr like mara-matnr,
       mbrsh like mara-mbrsh,
       matkl like mara-matkl,
       end of itab.
       CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
         EXPORTING
           FILENAME                      = p_infile
           I_BEGIN_COL                   = 1
           I_BEGIN_ROW                   = 1
           I_END_COL                     = 100
           I_END_ROW                     = 100
         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.
sort itab by matnr.
loop at itab.
write:/ itab.
*modify ztable from table itab.
endloop.

Answer 1

hi check this code:
DATA : BEGIN OF TYP_INPUT ,
           MATNR LIKE MARA-MATNR,
           WERKS LIKE MARC-WERKS,
           LGORT LIKE MARD-LGORT,
           LGNUM LIKE MLGN-LGNUM,
           LGTYP LIKE MLGT-LGTYP,
           LTKZA LIKE MLGN-LTKZA,
           LTKZE LIKE MLGN-LTKZE,
           LGBKZ LIKE MLGN-LGBKZ,
           LGPLA LIKE MLGT-LGPLA,
        END OF TYP_INPUT.
*Input File Data
DATA : IT_FILE LIKE TYP_INPUT OCCURS 0 WITH HEADER LINE.
*"INTERNAL TAB TO TAKE EXCEL SHEET.
DATA : IT_EXCEL    LIKE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
       CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
        EXPORTING
             FILENAME                = P_PFILE
             I_BEGIN_COL             = 1
             I_BEGIN_ROW             = 2
             I_END_COL               = 9
             I_END_ROW               = 6000
        TABLES
             INTERN                  = IT_EXCEL
        EXCEPTIONS
             INCONSISTENT_PARAMETERS = 1
             UPLOAD_OLE              = 2
             OTHERS                  = 3.
* IT_EXCEL CONTAINS DATA IN THE FORM OF ROW, COL, VALUE       *
* CONVERTING THAT INTERNAL TABLE TO FORMAT THAT OF EXCEL SHEET *
   IF NOT IT_EXCEL[] IS INITIAL.
     SORT IT_EXCEL BY ROW COL.
     LOOP AT IT_EXCEL.
       CASE IT_EXCEL-COL.
        WHEN 1.
              IT_FILE-MATNR = IT_EXCEL-VALUE.
        WHEN 2.
              IT_FILE-WERKS = IT_EXCEL-VALUE.
        WHEN 3.
              IT_FILE-LGORT = IT_EXCEL-VALUE.
        WHEN 4.
              IT_FILE-LGNUM = IT_EXCEL-VALUE.
        WHEN 5.
              IT_FILE-LGTYP = IT_EXCEL-VALUE.
        WHEN 6.
              IT_FILE-LTKZA = IT_EXCEL-VALUE.
        WHEN 7.
              IT_FILE-LTKZE = IT_EXCEL-VALUE.
        WHEN 8.
              IT_FILE-LGBKZ = IT_EXCEL-VALUE.
        WHEN 9.
              IT_FILE-LGPLA = IT_EXCEL-VALUE.
       ENDCASE.
       AT END OF ROW.
         APPEND IT_FILE.
         CLEAR IT_FILE.
       ENDAT.
     ENDLOOP.
   ELSE.
     MESSAGE I000  WITH 'The input file is empty'.
     STOP.
   ENDIF.