File TXT in Server

Question

Hi!!
I need to keep files TXT in a server.
Initially I kept the files in C:\ and I used the function "CALL FUNCTION 'WS_DOWNLOAD' " for this, but now they need to have the files in a route specifies of a server. Reason why they gave the route me of the server: 192.168.100.001 and the name of the final folder: E:\einvoice\Sap\Out.
how I make to keep files TXT in this new route?
Thanks, regards.

Answer 1

hi check this report where i had upload files to the application and presentation server.
REPORT ZHRO_CORPEDIA_VENDOR_REPORT
NO STANDARD PAGE HEADING
line-size 140
MESSAGE-ID zhris.
T A B L E S
TABLES: pa0105, "Infotype 0105 (Communications)
pa0002, " Infotype 0002 (Personal Data)
pa0000.
T Y P E D E C L A R A T I O N S
*---Types for the final table
types : begin of ty_final ,
pernr like pa0000-pernr, "Personnel number
nachn like pa0002-nachn, "Last Name
vorna like pa0002-vorna, "First Name
usrid like pa0105-usrid, "Communication ID/Number
usrid_long like pa0105-usrid_long,"Communication: Long Identification/Number
end of ty_final.
*---Types to get active employee
TYPES:BEGIN OF TY_PA0000,
PERNR LIKE PA0000-PERNR,
BEGDA LIKE PA0000-BEGDA,
ENDDA LIKE PA0000-ENDDA,
STAT2 LIKE PA0000-STAT2,
END OF TY_PA0000.
I N T E R N A L T A B L E S
*-----Internal table to hold the data of emp like userid, email
data: it_pa0105 like p0105 occurs 0 with header line ,
*-----Internal table to check for active employee
it_pa0000 TYPE STANDARD TABLE OF TY_pa0000 with header line,
*-----Internal table to hold the data of emp like first, last name
it_pa0002 like p0002 occurs 0 with header line,
*-----Internal table for final data
it_final type standard table of ty_final with header line.
*-----Internal table for Error Records
DATA: BEGIN OF T_ERROR OCCURS 0,
PERNR LIKE PERNR-PERNR,
MESSAGE(60) TYPE C,
END OF T_ERROR.
VARIABLE DECLARATIONS *
data : v_pernr like pa0000-pernr,
v_lines type i.
CONSTANTS DECLARATION
*-----Subty '0001' for the system username from pa0105
CONSTANTS: C_SUBTY LIKE PA0105-SUBTY VALUE '0001',
*-----Subty '0010' for the email from pa0105
C_SUBTY1 LIKE PA0105-SUBTY VALUE '0010'.
S E L E C T I O N - S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
parameters:p_date like sy-datum obligatory.
select-options:s_pernr for pa0000-pernr no intervals.
parameters:p_stat2 like pa0000-stat2 .
SELECTION-SCREEN end OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK FILE WITH FRAME TITLE TEXT-FIL.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: P_PC RADIOBUTTON GROUP RAD USER-COMMAND USR. "PC
SELECTION-SCREEN COMMENT 3(5) TEXT-SC1.
PARAMETERS: P_UNIX RADIOBUTTON GROUP RAD DEFAULT 'X'. "UNIX
SELECTION-SCREEN COMMENT 11(5) TEXT-SC2.
parameters:p_file like rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN begin OF LINE.
SELECTION-SCREEN COMMENT 1(16) TEXT-002.
parameters:p_file1 like rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK FILE.
INITIALIZATION *
initialization.
concatenate '/VOLSAP/HRIS/ARAMARK_' 'DEMO' '.ASC' INTO P_FILE.
concatenate '/VOLSAP/HRIS/ARAMARK_' 'DEMO' '.PRN' INTO P_FILE1.
p_stat2 = '3'.
AT SELECTION-SCREEN *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
F4 help for the flat file path
PERFORM F4_FILEPATH.
S T A R T - O F - S E L E C T I O N
START-OF-SELECTION.
PERFORM GET_DATA.
T O P - O F - P A G E
top-of-page.
PERFORM HEADER.
E N D - O F - S E L E C T I O N
END-OF-SELECTION.
PERFORM TRANSFER_DATA.
perform write_error_log..
*& Form F4_FILEPATH
F4 HELP FOR FILE PATH
FORM F4_FILEPATH.
IF P_UNIX = 'X'.
F4 help for UNIX
CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
EXPORTING
DYNPFIELD_FILENAME = 'P_FILE'
DYNAME = SY-CPROG
DYNUMB = SY-DYNNR
FILETYPE = 'P'
LOCATION = 'A'
SERVER = ''.
IF SY-SUBRC 0.
MESSAGE E000 WITH TEXT-E01 P_FILE.
ENDIF.
ELSEIF P_PC = 'X'.
F4 help for PC
clear p_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_PATH = P_FILE
MASK = ',..'
MODE = '0 '
TITLE = 'Choose File'
IMPORTING
FILENAME = P_FILE
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
ENDIF.
ENDFORM. " F4_FILEPATH
*& Form OUTPUT_CORPEDIA_VENDOR_FILE
Output Demographic file
FORM OUTPUT_CORPEDIA_VENDOR_FILE .
IF P_PC = 'X'.
data: v_pcfile type string.
v_pcfile = p_file.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = v_pcfile
FILETYPE = 'ASC'
TABLES
DATA_TAB = it_final.
skip 2.
WRITE:/ 'RECORDS SUCCESSFULLY TRANSFERED TO FILE:' , P_FILE .
WRITE:/ 'NO OF RECORDS DOWNLOADED : ', V_LINES .
else.
data: outrec(200) type c .
loop at it_final.
OPEN DATASET P_FILE FOR OUTPUT IN TEXT MODE encoding DEFAULT.
outrec+0(8) = it_final-pernr.
outrec+8(40) = it_final-nachn.
outrec+48(40) = it_final-vorna.
outrec+88(30) = it_final-usrid.
outrec+118(40) = it_final-usrid_long.
transfer outrec to p_file.
CLOSE DATASET p_file.
OPEN DATASET P_FILE1 FOR OUTPUT IN TEXT MODE encoding DEFAULT.
transfer outrec to p_file1.
clear outrec.
CLOSE DATASET p_file1.
endloop.
skip 2.
WRITE:/ 'RECORDS SUCCESSFULLY TRANSFERED TO FILE :' , P_FILE .
WRITE:/ 'NO OF RECORDS DOWNLOADED : ', V_LINES .
skip 2.
WRITE:/ 'RECORDS SUCCESSFULLY TRANSFERED TO FILE :' , P_FILE1 .
WRITE:/ 'NO OF RECORDS DOWNLOADED : ', V_LINES .
skip 2.
ENDIF.
ENDFORM. " OUTPUT_CORPEDIA_VENDOR_FILE
*& Form GET_DATA
text
--> p1 text
<-- p2 text
FORM GET_DATA .
clear:it_pa0000,
it_pa0000[].
*---Get the active employee
select PERNR
BEGDA
ENDDA
STAT2
from pa0000
into table it_pa0000
where pernr in s_pernr
and endda >= p_date
and begda <= p_date
and stat2 = p_stat2.
if sy-subrc = 0.
sort it_pa0000 by pernr endda descending.
delete adjacent duplicates from it_pa0000 comparing pernr.
endif.
loop at it_pa0000.
clear : it_pa0002 ,it_pa0105,
it_pa0002] , it_pa0105[ ,
v_pernr.
v_pernr = it_pa0000-pernr.
*---Get first name, last name of the active employee
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
PERNR = V_pernr
INFTY = '0002'
BEGDA = p_date
ENDDA = p_date
TABLES
INFTY_TAB = it_pa0002.
*---Get SAP ID , email of the active employee
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
PERNR = v_pernr
INFTY = '0105'
BEGDA = p_date
ENDDA = p_date
TABLES
INFTY_TAB = it_pa0105.
sort it_pa0002 by pernr begda descending.
delete adjacent duplicates from it_pa0002 comparing pernr.
sort it_pa0105 by pernr subty begda descending.
delete adjacent duplicates from it_pa0105 comparing pernr subty.
*---Get employee pernr, First name ,Last name into final table
if not it_pa0002[] is initial.
read table it_pa0002 index 1.
if sy-subrc = 0.
it_final-pernr = it_pa0002-pernr.
it_final-nachn = it_pa0002-nachn.
it_final-vorna = it_pa0002-vorna.
else.
*----message for the name if not maintained.
T_ERROR-PERNR = it_pa0002-PERNR.
CONCATENATE TEXT-EMI '0002'
INTO T_ERROR-MESSAGE SEPARATED BY SPACE.
APPEND T_ERROR.
CLEAR T_ERROR.
ENDIF.
else.
message for infotype if not maintained.
skip 2.
write:/ 'Infotype 0002 is not maintained for this pernr', it_pa0000-pernr.
skip 2.
endif.
if not it_pa0105[] is initial.
read table it_pa0105 with key pernr = it_pa0002-pernr
subty = C_SUBTY.
*--Get SYSTEM USERNAME the final table
if sy-subrc = 0.
it_final-usrid = it_pa0105-usrid.
else.
*--message for the SAP ID if not maintained.
T_ERROR-PERNR = it_pa0105-PERNR.
CONCATENATE TEXT-003 '0105'
INTO T_ERROR-MESSAGE SEPARATED BY SPACE.
APPEND T_ERROR.
CLEAR T_ERROR.
endif.
*--Get Email into the final table
read table it_pa0105 with key pernr = it_pa0002-pernr
subty = C_SUBTY1.
if sy-subrc = 0.
it_final-usrid_long = it_pa0105-usrid_long.
else.
*--message for the Email ID if not maintained.
T_ERROR-PERNR = it_pa0105-PERNR.
CONCATENATE TEXT-004 '0105'
INTO T_ERROR-MESSAGE SEPARATED BY SPACE.
APPEND T_ERROR. CLEAR T_ERROR.
endif.
else.
*--message for infotype 0105 if not maintained.
skip 2.
write:/ 'Infotype 0105 is not maintained for this pernr', it_pa0000-pernr.
skip 2.
ENDIF.
if not it_final-pernr is initial.
append it_final.
clear it_final.
endif.
endloop.
ENDFORM. " GET_DATA
*& Form HEADER
HEADER OF THE OUTPUT
FORM HEADER .
*----variables for the header
DATA: COL1(3) TYPE P. " column left side
DATA: COL2(3) TYPE P. " column right side
DATA: LGTH(3) TYPE P. " length of string
DATA: COMPANY_NAME(60) VALUE 'OfficeMax Inc.'. " Default
DATA: SUB_HEADER(60) VALUE ' '. " Default
WRITE: AT 1 'Report: ', SY-REPID. " left margin column
COL1 = ( SY-LINSZ - STRLEN( COMPANY_NAME ) ) / 2. " center company name
WRITE AT COL1 COMPANY_NAME. " default 'OfficeMax'
COL2 = SY-LINSZ - 16. " 16 columns from
WRITE: AT COL2 'Date:', SY-DATUM. " right margin.
WRITE: AT /1 'System: ', SY-SYSID(3) NO-GAP, '(' NO-GAP, SY-MANDT
NO-GAP, ')'.
LGTH = STRLEN( SY-TITLE ). " title length
COL1 = ( SY-LINSZ - LGTH ) / 2. " center it
WRITE AT COL1(LGTH) SY-TITLE. " the titlebar title
WRITE: AT COL2 'Time:', sy-uzeit. " time
WRITE: AT /1 'User: ', SY-UNAME. " username
COL1 = ( SY-LINSZ - STRLEN( SUB_HEADER ) ) / 2. " center company name
WRITE AT COL1 SUB_HEADER. " description fld
WRITE: AT COL2 'Page:', SY-PAGNO LEFT-JUSTIFIED. " page number
ENDFORM. " HEADER
*& Form TRANSFER_DATA
TRANSFER DATA TO PC/APPLICATION SERVER
FORM TRANSFER_DATA .
describe table it_final lines v_lines .
*---get data into Application Server.
PERFORM OUTPUT_CORPEDIA_VENDOR_FILE .
ENDFORM. " TRANSFER_DATA
*& Form write_error_log
getting messages for unexisted data
FORM write_error_log .
LOOP AT T_ERROR.
skip 2.
write:/1 'Personnel no' , 20 'Message' .
WRITE: /1 T_ERROR-PERNR, 20 T_ERROR-MESSAGE.
ENDLOOP.
ENDFORM. " write_error_log
OR
I feel the server you are trying to download the data is
FTP server. Please see the example code to do the same.
REPORT ZFTPSAP LINE-SIZE 132.
DATA: BEGIN OF MTAB_DATA OCCURS 0,
LINE(132) TYPE C,
END OF MTAB_DATA.
DATA: MC_PASSWORD(20) TYPE C,
MI_KEY TYPE I VALUE 26101957,
MI_PWD_LEN TYPE I,
MI_HANDLE TYPE I.
START-OF-SELECTION.
*-- Your SAP-UNIX FTP password (case sensitive)
MC_PASSWORD = 'password'.
DESCRIBE FIELD MC_PASSWORD LENGTH MI_PWD_LEN.
*-- FTP_CONNECT requires an encrypted password to work
CALL 'AB_RFC_X_SCRAMBLE_STRING'
ID 'SOURCE' FIELD MC_PASSWORD ID 'KEY' FIELD MI_KEY
ID 'SCR' FIELD 'X' ID 'DESTINATION' FIELD MC_PASSWORD
ID 'DSTLEN' FIELD MI_PWD_LEN.
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
*-- Your SAP-UNIX FTP user name (case sensitive)
USER = 'userid'
PASSWORD = MC_PASSWORD
*-- Your SAP-UNIX server host name (case sensitive)
HOST = 'unix-host'
RFC_DESTINATION = 'SAPFTP'
IMPORTING
HANDLE = MI_HANDLE
EXCEPTIONS
NOT_CONNECTED = 1
OTHERS = 2.
CHECK SY-SUBRC = 0.
CALL FUNCTION 'FTP_COMMAND'
EXPORTING
HANDLE = MI_HANDLE
COMMAND = 'dir'
TABLES
DATA = MTAB_DATA
EXCEPTIONS
TCPIP_ERROR = 1
COMMAND_ERROR = 2
DATA_ERROR = 3
OTHERS = 4.
IF SY-SUBRC = 0.
LOOP AT MTAB_DATA.
WRITE: / MTAB_DATA.
ENDLOOP.
ELSE.
do some error checking.
WRITE: / 'Error in FTP Command'.
ENDIF.
CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
HANDLE = MI_HANDLE
EXCEPTIONS
OTHERS = 1.
And All function modules you need are in function group SFTP. Take a look at the programs RSFTP* how to use these FM. You can use them both for transferring from and to an external system.
reward points if useful,