How to Archive files present in application server?

Question

Hi all,
We have one report which will be run as batch job for every 5 min. and creates files in application server. Our requirement is when ever this report is run the files present in the application server folder(Which are created during previous execution) should be moved to an Archive folder and new files will be created in the original folder. So at any point of time the original folder have the files created during latest execution of the report only. Can any one tell me how to achieve this requirement. <REMOVED BY MODERATOR>
Thanks,
Vinod.
Edited by: Alvaro Tejada Galindo on Mar 10, 2008 4:19 PM

Answer 1

HI,
Use this forms.
FORM archive_file .
  DATA: obj_typ   TYPE tdxloadp-objecttype,
         filename  TYPE dxfile-filename,
         filename1 TYPE dxfile-filename,
         filetyp   TYPE dxfile-filetype,
         v_strlen  TYPE i.                                  "#EC NEEDED
  obj_typ = 'BUS6035'.
  filename1 = v_file_path.
  filetyp   = 'P'.
--Assigning Physical path in "filename"--
  CONCATENATE '/sapdata//Dev/Archive/' p_ipfile sy-datum sy-uzeit INTO filename.
---Function to Copy the File--
  CALL FUNCTION 'DX_FILE_COPY'
    EXPORTING
      objecttype                     = obj_typ
      progtype                       = 'REPO'
      progname                       = sy-cprog
      v_ds_name                      = filename1
      v_ds_type                      = filetyp
      n_ds_name                      = filename
      n_ds_type                      = 'P'
    EXCEPTIONS
      canceled_by_user               = 1
      problems_with_logical_filename = 2
      file_is_used                   = 3
      unknown_object_loadprg         = 4
      error_with_copy                = 5
      db_error                       = 6
      no_authority_to_read_file      = 7
      no_authority_to_write_file     = 8
      no_authority                   = 9
      OTHERS                         = 10.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  DATA file_name TYPE epsf-epsfilnam.
  file_name = p_ipfile .
---Function to Delete the File--
  CALL FUNCTION 'EPS_DELETE_FILE'
    EXPORTING
      file_name              = file_name
      dir_name               = '/sapdata//Dev/inbound/'
    EXCEPTIONS
      invalid_eps_subdir     = 1
      sapgparam_failed       = 2
      build_directory_failed = 3
      no_authorization       = 4
      build_path_failed      = 5
      delete_failed          = 6
      OTHERS                 = 7.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    MESSAGE s025(zfi).   "File Processed For creation Of Invoice
  ENDIF.
ENDFORM.                    " ARCHIVE_FILE