How to set dynamic file path in LSMW

Question

I am working on LSMW  object to upload say excel file from my desktop.. if someone runs my lsmw application on their system obviously it fails.. is there way where I can dynamically set the path..I mean whomsoever runs the application it picks the file from their location and execute the program.

Answer 1

hi,,,
change your code accordingly
here i am  inserting data into ztable from excel .
*& Report  ZBI_UPLOAD_DATA_MAST                                             *
REPORT  zbi_upload_data_mast                        .
DATA : it_tab TYPE filetable,
       gd_subrc TYPE i.
TYPES : BEGIN OF wa_wrkctr,
        fictr TYPE zbi_fictr_mast-fictr,
        prctr TYPE zbi_fictr_mast-prctr,
        type TYPE zbi_fictr_mast-type,
        END OF wa_wrkctr.
DATA : wa_save TYPE zbi_fictr_mast.
DATA : gd_scol   TYPE i VALUE '1',
       gd_srow   TYPE i VALUE '1',
       gd_ecol   TYPE i VALUE '256',
       gd_erow   TYPE i VALUE '65536'.
DATA : it_datatab TYPE STANDARD TABLE OF wa_wrkctr WITH HEADER LINE INITIAL SIZE 0.
      it_phy_data TYPE STANDARD TABLE OF wa_energy WITH HEADER LINE INITIAL SIZE 0.
*data : w_current_inv_no(5) TYPE n,
      w_pop_up_text LIKE  wfcsr_ui_popup_text.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:  p_file LIKE rlgrap-filename OBLIGATORY
             DEFAULT 'C:\Physical Stock.xls'  .
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Select File Name'
      default_extension       = '*.xls'
      default_filename        = '*.xls'
      file_filter             = '*.xls'
      initial_directory       = 'c:\'
   MULTISELECTION          =
   WITH_ENCODING           =
    CHANGING
      file_table              = it_tab
      rc                      = gd_subrc.
   USER_ACTION             =
   FILE_ENCODING           =
EXCEPTIONS
   FILE_OPEN_DIALOG_FAILED = 1
   CNTL_ERROR              = 2
   ERROR_NO_GUI            = 3
   NOT_SUPPORTED_BY_GUI    = 4
   others                  = 5
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    READ TABLE it_tab INTO p_file INDEX 1.
  ENDIF.
START-OF-SELECTION.
START-OF-SELECTION.
  PERFORM upload_excel_file TABLES   it_datatab
                             USING   p_file
                                     gd_scol
                                     gd_srow
                                     gd_ecol
                                     gd_erow.
PERFORM eventtab_build CHANGING lt_eventtab.
PERFORM display_data.
*&      Form  UPLOAD_EXCEL_FILE
      text
     -->P_IT_DATATAB  text
     -->P_P_FILE  text
     -->P_GD_SCOL  text
     -->P_GD_SROW  text
     -->P_GD_ECOL  text
     -->P_GD_EROW  text
FORM upload_excel_file  TABLES   p_it_datatab
                        USING    p_file
                                 p_scol
                                 p_srow
                                 p_ecol
                                 p_erow.
  DATA : lt_intern TYPE  kcde_cells OCCURS 0 WITH HEADER LINE.
Has the following format:
            Row number   | Colum Number   |   Value
     i.e.     1                 1             Name1
              2                 1             Joe
  DATA : ld_index TYPE i.
  FIELD-SYMBOLS : <fs>.
Note: Alternative function module - 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename                = p_file
      i_begin_col             = p_scol
      i_begin_row             = p_srow
      i_end_col               = p_ecol
      i_end_row               = p_erow
    TABLES
      intern                  = lt_intern
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  IF sy-subrc <> 0.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'Error Uploading file'.
    EXIT.
  ENDIF.
  IF lt_intern[] IS INITIAL.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'No Data Uploaded'.
    EXIT.
  ELSE.
    SORT lt_intern BY row col.
    LOOP AT lt_intern.
      MOVE lt_intern-col TO ld_index.
      ASSIGN COMPONENT ld_index OF STRUCTURE it_datatab TO <fs>.
      MOVE lt_intern-value TO <fs>.
      AT END OF row.
        APPEND it_datatab.
        CLEAR it_datatab.
      ENDAT.
    ENDLOOP.
  ENDIF.
  IF it_datatab[] IS NOT INITIAL.
    DELETE FROM zbi_fictr_mast.
    COMMIT WORK.
    LOOP AT it_datatab.
      wa_save-fictr = it_datatab-fictr.
      wa_save-prctr = it_datatab-prctr.
      wa_save-type  = it_datatab-type.
      INSERT INTO zbi_fictr_mast VALUES wa_save.
      IF sy-subrc = 0.
        COMMIT WORK.
        MESSAGE 'Data upload complete' TYPE 'S'.
      ENDIF.
      CLEAR wa_save.
      CLEAR it_datatab.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " UPLOAD_EXCEL_FILE
i hope this will help .
Regards
Deepak