Problem with internal table declaration in function gui_upload

Question

hi friends,
can u tell me how should i define internal table when i use this function?
i get error that in oo my declaration not good.
thanks,
dana.

Answer 1

see this example:-
DATA: BEGIN OF itab OCCURS 0,
        tdname   TYPE mara-matnr,
        tdline1  TYPE tline-tdline,
        tdline2  TYPE tline-tdline,
        tdline3  TYPE tline-tdline,
        tdline4  TYPE tline-tdline,
        tdline5  TYPE tline-tdline,
              END OF itab.
DATA: BEGIN OF itab_error OCCURS 0,
        tdname  TYPE mara-matnr,
        error   TYPE string,
      END OF itab_error.
DATA: lines    TYPE STANDARD TABLE OF tline WITH HEADER LINE.
DATA: temp     TYPE string.
DATA: tdspras  TYPE thead-tdspras.
DATA: tdname   TYPE thead-tdname.
DATA: tdobject TYPE thead-tdobject.
DATA: tdid     TYPE thead-tdid.
DATA :flag     TYPE c.
At Selection Screen Event
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1.
  CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      file_name = p1.
At Start of Selection Event
START-OF-SELECTION.
  PERFORM upload_data.
  PERFORM upload_text.
*&      Form  upload_data
      text
-->  p1        text
<--  p2        text
FORM upload_data .
  temp = p1.
**& Upload Data from Excel
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename            = temp
      filetype            = 'ASC'
      has_field_separator = 'X'
    TABLES
      data_tab            = itab.
ENDFORM.                    " upload_data
*&      Form  upload_text
      text
-->  p1        text
<--  p2        text
FORM upload_text .
  tdspras  = 'EN'.
  tdid = 'BEST'.
  tdobject = 'MATERIAL'.
  LOOP AT itab.
    REFRESH lines.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = itab-tdname
      IMPORTING
        output = itab-tdname.
    TRANSLATE itab-tdname TO UPPER CASE.
    tdname = itab-tdname.
    PERFORM check_material.
    lines-tdline = itab-tdline1.
    APPEND lines.
    CLEAR lines.
    lines-tdline = itab-tdline2.
    APPEND lines.
    CLEAR lines.
    lines-tdline = itab-tdline3.
    APPEND lines.
    CLEAR lines.
    lines-tdline = itab-tdline4.
    APPEND lines.
    CLEAR lines.
    lines-tdline = itab-tdline5.
    APPEND lines.
    CLEAR lines.
    CALL FUNCTION 'CREATE_TEXT'
      EXPORTING
        fid       = tdid
        flanguage = tdspras
        fname     = tdname
        fobject   = tdobject
      TABLES
        flines    = lines.
  ENDLOOP.
  IF itab_error[] IS NOT INITIAL.
    WRITE : / 'PO Text For Following Material is not Uploaded'.
    WRITE : / .
    WRITE : / 'Material', '              Error'.
    LOOP AT itab_error.
      WRITE : / itab_error-tdname, '   ',  itab_error-error.
    ENDLOOP.
  ELSE.
    MESSAGE s001(38) WITH 'Data Uploaded Succcesfully'.
  ENDIF.
ENDFORM.                    " upload_text
*&      Form  check_material
      text
-->  p1        text
<--  p2        text
FORM check_material .
  DATA : w_matnr TYPE mara-matnr.
  SELECT SINGLE matnr
  INTO w_matnr
  FROM mara
  WHERE matnr = itab-tdname.
  IF sy-subrc = 0.
    flag = 'X'.
  ELSE.
    MOVE-CORRESPONDING itab TO itab_error.
    itab_error-error = 'Material does not exist'.
    APPEND itab_error.
  ENDIF.
ENDFORM.                    " check_material