Uploading file under AL11 directory


Import Parameters:

 1

Codes:

 

*&———————————————————————*

*& Report  ZANIL

*&

*&———————————————————————*

*&

*&

*&———————————————————————*

report  zanil.

* Job: uploading files(pdf, xlsx, txt, docx, png)

*      from local pc to under AL11 directory..

* 1. Data

data  p_upload     type rlgrapfilename.

data  ld_file      type char255.

data  filename     type authbfilename .

data  activity(20value ‘WRITE’.

data  lv_extension type char10.

data  lv_val1      type string.

data  lv_val2      type string.

data  length       like sytabix.

data  lengthn      like sytabix.

data  gui_xstring  type xstring.

databegin of itab occurs 0,

      field(256),

      end of itab.

data lt_itab like table of itab.

data ls_itab like line of  itab.

* 2. Parameters

parametersp_fname type string

                    obligatory.

parametersp_fnamc type authbfilename

            default ‘e:usrsapdata’

            obligatory.

startofselection.

* 3. Getting file source destination…

call function ‘/SAPDMC/LSM_F4_FRONTEND_FILE’

  changing

    pathfile         p_upload

  exceptions

    canceled_by_user 1

    system_error     2

    others           3.

ld_file p_upload.

if ld_file is initial.

   message ‘No file selected!’ type ‘W’.

   exit.

endif.

* 4. Getting file extension…

call function ‘TRINT_FILE_GET_EXTENSION’

 exporting

   filename        ld_file

 importing

   extension       lv_extension.

* 5. Uploading file under AL11

split ld_file at ‘.’ into lv_val1 lv_val2.

concatenate p_fnamc ” p_fname

            ‘.’ lv_extension  into filename .

condense filename  nogaps.

lv_val1 ld_file.

call function ‘GUI_UPLOAD’

 exporting

   filename lv_val1

   filetype ‘BIN’

 importing

   filelength length

 tables

   data_tab lt_itab.

call function ‘SCMS_BINARY_TO_XSTRING’

  exporting

   input_length length

  importing

    buffer     gui_xstring

  tables

    binary_tab lt_itab

  exceptions

    failed     1

    others     2.

open dataset  filename

     for output in binary mode.

loop at lt_itab into ls_itab.

 transfer ls_itabfield to filename.

endloop.

close dataset filename.

write ‘file uploaded’.

Leave a comment

Your email address will not be published. Required fields are marked *