Upload the Source in the XI Application Server

[Former Member]

Hi Friends,

Its a (Source) File -> RFC(R/3) -> (Target) File interface. My question is how to place the sender file in XI Application Server. Is there any Tcode to upload the sender file? please suggest in this regard.

Thanks in Advance,

Meghna.

[Former Member]

Hi,

Use the T-code SXDA_TOOLS in XI Abap Stack and Follow the Steps to Place the file in XI Server.

Or Else Use this Report in SE38

&----

---

*& Report ZUPLOADFILE

*&

&----

---

*&

*&

&----

---

REPORT ZUPLOADFILE.

PARAMETERS:

p_dir1(50) DEFAULT '/usr/sap/tmp/' LOWER CASE ,

p_file1(100) DEFAULT 'inputfile.txt' LOWER CASE.

*selection-screen uline.

SELECTION-SCREEN BEGIN OF BLOCK test WITH FRAME TITLE text-003.

***selection-screen comment /32(50) text-003.

*SELECTION-SCREEN BEGIN OF LINE.

*SELECTION-SCREEN COMMENT 1(30) TEXT-001 FOR FIELD P_IDOC.

*NO PARAMETERS P_COPY AS CHECKBOX DEFAULT ' '. "File_Copy to server

*SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(30) text-002 FOR FIELD p_idoc.

PARAMETERS p_idoc AS CHECKBOX DEFAULT 'X'. "IDOC_creat

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK test.

*----

---

*----

---

• Global variables

*----

---

DATA: BEGIN OF i_status OCCURS 0.

INCLUDE STRUCTURE edids.

DATA: END OF i_status.

DATA: gc_file_port LIKE edipod-port VALUE 'NLMFI_Xnnn'.

DATA: gc_server_dir LIKE edipod-inputdir.

*DATA: G_WINFILE LIKE RLGRAP-FILENAME.

DATA: g_winfile TYPE string.

*DATA: I_faktuur type tline OCCURS 100 WITH HEADER LINE.

**DATA: I_faktuur(1000) OCCURS 100 WITH HEADER LINE.

DATA: longstring(1024). "3000

DATA: i_faktuur LIKE longstring OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF tr OCCURS 0, "transfer table

table TYPE tabname,

data(512) TYPE c,

END OF tr.

*----

---

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.

----

---

• START of SELECTION--------------------------------------------------*

START-OF-SELECTION.

CONCATENATE 'C:\Documents and Settings\Administrator\Desktop\'

p_file1 INTO g_winfile.

WRITE:/ g_winfile.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = g_winfile

filetype = 'ASC'

• HAS_FIELD_SEPARATOR = ' '

• HEADER_LENGTH = 0

• READ_BY_LINE = 'X'

• DAT_MODE = ' '

• CODEPAGE = ' '

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• CHECK_BOM = ' '

• IMPORTING

• FILELENGTH =

• HEADER =

TABLES

data_tab = tr

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

no_authority = 6

unknown_error = 7

bad_data_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknown_dp_error = 12

access_denied = 13

dp_out_of_memory = 14

disk_full = 15

dp_timeout = 16

OTHERS = 17.

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

i_faktuur[] = tr[].

ENDIF.

----

---

*----

---

*END-OF-SELECTION

*----

---

END-OF-SELECTION.

• IF P_FILENM IS INITIAL OR P_DIR IS INITIAL.

• MESSAGE ID 'SI' TYPE 'S' NUMBER '029'.

• EXIT.

• ENDIF.

*CHANGE: TESTCLIENT for client 300 !!

*POORTEN mogen dezelfde naamgeving hebben,

*maar de INHOUD, directories e.d. NIET !

*case sy-mandt.

• when '151'.

• GC_FILE_PORT = 'ZUM_TFILE'.

• when '200'.

• GC_FILE_PORT = 'ZUM_TFILE'.

• when others. "PRODUKTION

• GC_FILE_PORT = ''.

*endcase.

*if sy-uname = 'JOTTEN' or sy-uname = 'YJOSHI'

*or sy-uname = 'AMITTAL' OR SY-UNAME = 'AJOSHI'

*or sy-uname = 'FCHARTIER' or sy-uname = 'PDONKELAAR'

*or sy-uname = 'RPHOUGHAT' OR SY-UNAME = 'RVIANA' or sy-uname =

*'HMEHTA'.

*else.

*clear GC_FILE_PORT.

*endif.

• SelECT SINGLE INPUTDIR INTO (GC_SERVER_DIR)

• SELECT SINGLE outputDIR INTO (GC_SERVER_DIR)

• FROM EDIPOD

• WHERE PORT = GC_FILE_PORT.

*if sy-subrc > 0.

• WRITE:/ 'An ERROR occured, sy-subrc = ', sy-subrc.

• write:/ 'Port', GC_FILE_PORT, 'does not exist !'.

• WRITE:/ 'STOP PROCESSING'.

• exit.

*endif.

*

.

*OTTEN overrule

• GC_SERVER_DIR = '/interfaces/P01/in/'.

PERFORM write_file USING gc_server_dir

p_file1.

• P_FILE2

• P_FILE3

• P_FILE4.

**file ..copy..?

*

*

----

---

&----

---

*& Form READ_write_FILE

&----

---

----

---

• --> p1 text

• <-- p2 text

----

---

FORM write_file USING p_server_dir

p_filen1.

• P_FILEN2

• P_FILEN3

• P_FILEN4.

• p_fnr type num1.

DATA: l_filename LIKE rlgrap-filename,

• WINFILE LIKE RLGRAP-FILENAME.

winfile TYPE string.

*-serverfile----

---

• CONCATENATE P_SERVER_DIR P_FILE1 INTO L_FILENAME.

• CONCATENATE '' P_FILE1 INTO L_FILENAME.

CONCATENATE p_dir1 p_file1 INTO l_filename.

CONDENSE l_filename NO-GAPS.

WRITE:/ l_filename.

• CONCATENATE P_DIR P_FILE1 INTO L_FILENAME.

• CONDENSE L_FILENAME NO-GAPS.

CONDENSE p_file1 NO-GAPS.

WRITE:/ p_file1.

*IDOC .. O_178_0000000000065031

• OPEN DATASET P_FILE1 FOR inPUT IN legacy TEXT MODE.

OPEN DATASET l_filename FOR OUTPUT IN LEGACY TEXT MODE.

*IF SY-SUBRC = 0.

• CATCH SYSTEM-EXCEPTIONS FILE_ACCESS_ERRORS = 8.

LOOP AT i_faktuur.

TRANSFER i_faktuur TO l_filename.

ENDLOOP.

• ENDCATCH.

*endif.

IF sy-subrc = 0.

CLOSE DATASET l_filename.

*-local_winfile----

---

CONCATENATE 'c:\sapworkdir\' p_file1 INTO winfile.

WRITE:/ winfile.

• CALL FUNCTION 'WS_DOWNLOAD'

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = winfile

filetype = 'ASC'

TABLES

data_tab = i_faktuur

EXCEPTIONS

file_open_error = 1

file_write_error = 2

invalid_filesize = 3

invalid_table_width = 4

invalid_type = 5

no_batch = 6

unknown_error = 7

OTHERS = 8.

IF sy-subrc NE 0.

WRITE: / 'Fehler beim Download'(003), sy-subrc.

ENDIF.

ELSE.

WRITE: / 'ERROR: no access possible FAKTUUR'.

ENDIF.

ENDFORM. " READ_FILEs_AS400

Regards

Seshagiri

Edited by: N V Seshagiri on Feb 19, 2008 9:50 AM

[Former Member]

Hi,

Go to SXDA_Tools transaction.

U can see the file in AL11 transaction which is uploaded. drill down to correct folder inorder to see the uploaded file.

Thnx

Chirag

[Former Member]

As you use a sender file adapter y not better archive the file. Specify the folder in XI system under the archive drectory

[Former Member]

Hi,

As u r source is file ...as in file adapter we mention the source directory path....

we will go to source diectory path using file zill in real time ..their we connect to xi server and place the file in source path...

thanq

krishna