Open Dataset : File creation in server

Question

Hi Guys,
I am trying to use  
Open dataset dsn for output in text mode encoding default.   " dsn = '
pt-net\taskout\outfile.txt'.
loop at itab.
transfer itab to dsn.
endloop.
to write a file at a destination on a windows NT server For eg :
pt-net\taskout\outfile.txt
I see sy-subrc = 0 at both open dataset and transfer commands in the debugger. But the file is not written.
I can manually create files when I access this path in my explorer. So it is not an access issue.
Also, my SAP application server is a Unix server. But the file I am trying to write is in NT server. THis is for  a 3rd party application. Where am I possibly going wrong ? I am able to write this file to the Unix application server path using the above command. But I need to write this in the Windows server.
Do I need first write to Unix path and then FTP it to Windows server ? I can manually do this. But since this program is going to run as a job, I want to automate this..
THanks in advance!!

Answer 1

Hi,
This is my advice:
First write the file in the file system of your application server.
After that find out, what to do for transport on operation system level.
Since SAP allows system calls, you can do it in the same way by program.
I give you some code. Unfortunately it is from Windows to Windows. Nevertheless I hope you can profit by it.
*&      Form  file_to_l66
FORM file_to_l66  USING src_fpath
                        dest_fname.
- src_fpath full path of source file
- dest_fname intended file name for destination
  DATA:
    parcom(250),
    BEGIN OF tabl OCCURS 0,
      line(200),
    END OF tabl,
    str(250).
drive y free
  parcom = 'y:'.
  CALL 'SYSTEM' ID 'COMMAND' FIELD parcom
              ID 'TAB'     FIELD tabl-sys.
  IF sy-subrc IS INITIAL.
    RAISE file_to_l66_err_drive_y.
  ENDIF.
mapping y
128.1.123.1 ServerL66
  parcom =
    'net use y:
128.1.123.1\SAPDATA passwd /user:usr01'.
  CALL 'SYSTEM' ID 'COMMAND' FIELD parcom
              ID 'TAB'     FIELD tabl-sys.
  IF NOT sy-subrc IS INITIAL.
    RAISE file_to_l66_err_mapping_y.
  ENDIF.
copying
  CONCATENATE 'copy' src_fpath 'y:\' INTO str SEPARATED BY space.
  CONCATENATE str dest_fname INTO parcom.
example:
  src_fpath  = 'e:\trans\l66.xml'
  dest_fname = 'l66_20080531235959.xml'
  -> parcom = 'copy e:\trans\l66.xml y:\l66_20080531235959.xml'.
  CALL 'SYSTEM' ID 'COMMAND' FIELD parcom
              ID 'TAB'     FIELD tabl-sys.
  IF NOT sy-subrc IS INITIAL.
    RAISE file_to_l66_err_copying.
  ENDIF.
release y
  parcom =
    'net use y: /delete'.
  CALL 'SYSTEM' ID 'COMMAND' FIELD parcom
                ID 'TAB'     FIELD tabl-sys.
  IF NOT sy-subrc IS INITIAL.
    RAISE file_to_l66_err_unmapping_y.
  ENDIF.
ENDFORM.                    " file_to_l66
Edited by: Walter Habich on May 22, 2008 4:24 PM