How to upload comm seperated flate file into sap r/3?

Question

plz send me any simple report program

Answer 1

Hi,
Please refer code below:
data : begin of itab1 occurs 0,
        values(1000) type c,
       end of itab1.
PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.
DATA : filename TYPE string.
DATA : w_textout LIKE t100-text.
DATA: BEGIN OF messtab OCCURS 0.
        INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF messtab.
data : begin of itab occurs 0,
           BLDAT(10) TYPE C,
           BLART(2) TYPE C,
           BUKRS(4) TYPE C,
           BUDAT(10) TYPE C,
           MONAT(2) TYPE C,
           WAERS(5) TYPE C,
           NEWBS(2) TYPE C,
           NEWKO(17) TYPE C,
           WRBTR(13) TYPE C,
           SGTXT(50) TYPE C,
           GSBER(4) TYPE C,
           KOSTL(10) TYPE C,
           AUFNR(10) TYPE C,
           TNEWBS(2) TYPE C,
           TNEWKO(17) TYPE C,
           TWRBTR(13) TYPE C,
       end of itab.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CLEAR p_file.
  CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      file_name = p_file.
start-of-selection.
  filename = p_file.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
     FILENAME                      = filename
     FILETYPE                      = 'ASC'
     HAS_FIELD_SEPARATOR           = 'X'
*   HEADER_LENGTH                 = 0
*   READ_BY_LINE                  = 'X'
*   DAT_MODE                      = ' '
*   CODEPAGE                      = ' '
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = '#'
*   CHECK_BOM                     = ' '
*   VIRUS_SCAN_PROFILE            =
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
    TABLES
      DATA_TAB                      = itab1
* 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
  LOOP AT ITAB1.
      SPLIT ITAB1 AT ',' INTO ITAB-BLDAT ITAB-BLART ITAB-BUKRS ITAB-BUDAT ITAB-MONAT
                         ITAB-WAERS ITAB-NEWBS ITAB-NEWKO ITAB-WRBTR ITAB-SGTXT ITAB-GSBER ITAB-KOSTL ITAB-AUFNR.
    APPEND ITAB.
  ENDLOOP.
Thanks,
Sriram Ponna.