Move the contents of old file into another before writing in applcn srvr

Question

Hi Friends,
As per the requirement I need to move the contents of the previous file into an archieve folder which is being created by the previous run of the program in the application server.
After the old file has been moved I need to craete the new file in the directory.
So at any time only one file should be present in the application server.
All the previous files will be in the Archieve folder.
Please suggest how can I move the contents of the privious file in the archieve directory.
Thanks and regards,
Smriti Singh
Please do not duplicate post
Edited by: Rob Burbank on Feb 24, 2009 11:16 AM

Answer 1

Hi Smriti,
check this
1) use the function module  'EPS_GET_DIRECTORY_LISTING' --- to gett the details of files n application dir
eq.
call function 'EPS_GET_DIRECTORY_LISTING'
    exporting
      dir_name               = p_file
    tables
      dir_list               = it_dir_list
    exceptions
      invalid_eps_subdir     = 1
      sapgparam_failed       = 2
      build_directory_failed = 3
      no_authorization       = 4
      read_directory_failed  = 5
      too_many_read_errors   = 6
      empty_directory_list   = 7
      others                 = 8.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
2) then use this code to archive
open dataset w_file1 for output in text mode encoding default. "Open Backup File
  if sy-subrc <> 0.
    write: /1 ' error creating file with status - ', sy-subrc.
    exit.
  endif.
  open dataset w_dirname for input in text mode encoding default."Open Real File
  if sy-subrc <> 0.
    error_flag = 'X'.
    write: /1 ' error opening input file with status - ', sy-subrc.
    exit.
  endif.
*" To read the input file into a internal table
  do.
    read dataset w_dirname into inrec_lpcfab.
    if sy-subrc <> 0.
      exit.
    else.
      if not inrec_lpcfab is initial.
        append inrec_lpcfab.
        transfer inrec_lpcfab to w_file1 length 180.
      endif.
    endif.
  enddo.
  close dataset w_dirname.