Flat File Upload as CSV File in BPS.

Question

Hi Friends,
We have to upload CSV file to BPS and as of now we are able to upload tab spaced file as per the How to Document.
Kindly can some body post the COMPLETE CODE changes for Uploading the CSV File in both LOAD and WEB Function Modules.
For complete code points are guaranteed.

Answer 1

Hi BI,
please check the following thread.
Load flat file to BPS - GUI issue
I've implemented the file upload for CSV file. please note the changes i've made -
Code for INIT function module :-
FUNCTION Z_BPS_FILE_UPLOAD_INIT_CSV.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_AREA) TYPE  UPC_Y_AREA
*"     VALUE(I_PLEVEL) TYPE  UPC_Y_PLEVEL OPTIONAL
*"     VALUE(I_PACKAGE) TYPE  UPC_Y_PACKAGE OPTIONAL
*"     VALUE(I_METHOD) TYPE  UPC_Y_METHOD OPTIONAL
*"     VALUE(I_PARAM) TYPE  UPC_Y_PARAM OPTIONAL
*"     REFERENCE(IT_EXITP) TYPE  UPF_YT_EXITP OPTIONAL
*"     REFERENCE(ITO_CHASEL) TYPE  UPC_YTO_CHASEL OPTIONAL
*"     REFERENCE(ITO_CHA) TYPE  UPC_YTO_CHA OPTIONAL
*"     REFERENCE(ITO_KYF) TYPE  UPC_YTO_KYF OPTIONAL
*"  EXPORTING
*"     REFERENCE(ETO_CHAS) TYPE  ANY TABLE
*"     REFERENCE(ET_MESG) TYPE  UPC_YT_MESG
  DATA: lto_chas TYPE yto_chas,
  ls_chas     TYPE ys_chas,
  ls_exitp    TYPE upf_ys_exitp,
  ls_mesg     TYPE upc_ys_mesg,
  ls_chasel   TYPE upc_ys_chasel, "<<<INSERT
  ls_charng   TYPE upc_ys_charng. "<<<INSERT
  DATA: lt_filetab TYPE filetable,
  ls_filetab   TYPE file_table,
  l_file       TYPE string,
  l_separator  TYPE char01,
  l_action     TYPE i,
  l_count      TYPE i.
  FIELD-SYMBOLS: <f> TYPE ANY. "<<<INSERT
Try to get file name from parameter
  READ TABLE it_exitp INTO ls_exitp WITH KEY parnm = 'FILENAME'.
  IF sy-subrc = 0.
    l_file = ls_exitp-chavl.
  ENDIF.
If no file name is given, prompt user for it
  IF l_file IS INITIAL.
    CALL METHOD cl_gui_frontend_services=>file_open_dialog
      EXPORTING
        window_title            = 'Select Upload File'
        default_extension       = 'csv'
        file_filter             = 'Text Files (*.csv)'
      CHANGING
        file_table              = lt_filetab
        rc                      = l_count
        user_action             = l_action
      EXCEPTIONS
        file_open_dialog_failed = 1
        cntl_error              = 2
        OTHERS                  = 3.                        "#EC NOTEXT
    IF sy-subrc <> 0.
      CLEAR ls_mesg.
      MOVE-CORRESPONDING syst TO ls_mesg.
      APPEND ls_mesg TO et_mesg.
      EXIT.
    ENDIF.
    CALL METHOD cl_gui_cfw=>flush.
    LOOP AT lt_filetab INTO ls_filetab.
      l_file = ls_filetab.
    ENDLOOP.
    CHECK l_action = 0.
  ENDIF.
  l_separator = 'X'.
Upload file from front-end (PC)
File format is tab-delimited ASCII
l_separator = ';' .
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = l_file
     filetype                = 'DAT'
     has_field_separator     = l_separator
    TABLES
      data_tab                = gt_file_csv
    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.
  IF sy-subrc <> 0.
    CLEAR ls_mesg.
    MOVE-CORRESPONDING syst TO ls_mesg.
    APPEND ls_mesg TO et_mesg.
    EXIT.
  ENDIF.
Create one dummy combination
If we don't do this, the upload won't work since the second function
will not be executed at all in case no transaction data exists so far.
The combination must be a subset of the planning level!
  " >>> BEGIN INSERT
  CLEAR ls_chas.
  LOOP AT ito_chasel INTO ls_chasel.
    READ TABLE ls_chasel-t_charng INTO ls_charng INDEX 1.
    IF sy-subrc = 0.
      ASSIGN COMPONENT ls_chasel-chanm OF STRUCTURE ls_chas TO <f>.
      IF sy-subrc = 0.
        <f> = ls_charng-low.
      ENDIF.
    ENDIF.
  ENDLOOP.
  " <<< END INSERT
  COLLECT ls_chas INTO lto_chas.
  eto_chas = lto_chas.
ENDFUNCTION.
Include should contains following declarations-
TYPES:      begin of itab_CSV,
                       text(255) type c,
                 end of itab_CSV.
Global table to temporarily store loaded data.
DATA: gt_file_CSV TYPE STANDARD TABLE OF itab_csv WITH DEFAULT
KEY.
Hope it will help you.
Regards
Tarun