ABAP - TIPP: Funktionsbaustein zum FTP Upload / Download

[Yagmur4551]

Diesee Funktionsbausteine können FTP Uploads und Downloads durchführen. Sie Nutzen die Funktion Betriebsystemkommandos auszuführen.

Setzen Sie SAP auf anderen Betriebsystemem müssen Sie den Systemcommand evlt. noch etwas anpassen.

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. FUNCTION Z_ftp_upload.
2. *"----------------------------------------------------------------------
3. *"*"Lokale Schnittstelle:
4. *"  IMPORTING
5. *"     REFERENCE(SRC_FILE)
6. *"     REFERENCE(DEST_FILE)
7. *"     REFERENCE(FTP_SERVER)
8. *"     REFERENCE(FTP_USER)
9. *"     REFERENCE(FTP_PASSWD)
10. *"     REFERENCE(FLAG_BINARY) OPTIONAL
11. *"  EXPORTING
12. *"     REFERENCE(SUCCESS_226)
13. *"  TABLES
14. *"      OUTPUT
15. *"  EXCEPTIONS
16. *"      COULD_NOT_OPEN_COMMANDFILE
17. *"----------------------------------------------------------------------
18.  
19. *-----------------------------------------------------------------------
20. * DATENDEFINITION
21. *-----------------------------------------------------------------------
22.   DATA: uuid  LIKE  sysuuid-c.
23.   DATA: dsn TYPE string.
24.   DATA: fl TYPE string.
25.   DATA: os_command(500).
26.   DATA: BEGIN OF syscalltab OCCURS 0,
27.            line(200),
28.         END OF syscalltab.
29.  
30. *Temporärer Dateiname ermitteln.
31.   " 1. UUID erstellen
32.   CALL FUNCTION 'SYSTEM_UUID_C_CREATE'
33.        IMPORTING
34.             uuid = uuid.
35.  
36.   CONCATENATE '/tmp/ftp_' uuid INTO dsn.
37.  
38. * FTP Kommandofile schreiben
39.   OPEN DATASET dsn FOR OUTPUT IN TEXT MODE.
40.   IF sy-subrc NE 0. RAISE could_not_open_commandfile. ENDIF.
41.  
42.   CONCATENATE 'user' ftp_user ftp_passwd
43.                INTO fl SEPARATED BY space.
44.   TRANSFER fl TO dsn.
45.  
46.   IF flag_binary NE space.
47.     TRANSFER 'binary' TO dsn.
48.   ENDIF.
49.  
50.   CONCATENATE 'put' src_file dest_file INTO fl SEPARATED BY space.
51.   TRANSFER fl TO dsn.
52.  
53.   TRANSFER 'bye' TO dsn.
54.  
55.   CLOSE DATASET dsn.
56.  
57.  
58. * Betriebssystemkommando erstellen.
59.   CONCATENATE 'ftp -n -v' ftp_server '<' dsn
60.                    INTO os_command SEPARATED BY space.
61.  
62.   CALL 'SYSTEM'
63.    ID 'COMMAND'
64.     FIELD os_command
65.    ID 'TAB'
66.     FIELD syscalltab-*sys*.
67.  
68.   MOVE syscalltab[] TO output[].
69.  
70. * temporäres File wieder löschen.
71.   DELETE DATASET dsn.
72.  
73. * FTP Rückmeldungen auswerten
74. * 226 bedeutet File erfolgreich übertragen
75.   LOOP AT syscalltab.
76.     IF syscalltab+0&#40;3&#41; = '226'.
77.       success_226 = 'X'.
78.     ENDIF.
79.   ENDLOOP.
80.  
81. ENDFUNCTION.
82.  
83.  
84. *-----------------------------------------------------------
85.  
86.  
87.  
88. FUNCTION Z_FTP_DOWNLOAD.
89. *"----------------------------------------------------------------------
90. *"*"Lokale Schnittstelle:
91. *"       IMPORTING
92. *"             REFERENCE&#40;SRC_FILE&#41;
93. *"             REFERENCE&#40;DEST_FILE&#41;
94. *"             REFERENCE&#40;FTP_SERVER&#41;
95. *"             REFERENCE&#40;FTP_USER&#41;
96. *"             REFERENCE&#40;FTP_PASSWD&#41;
97. *"             REFERENCE&#40;FLAG_BINARY&#41; OPTIONAL
98. *"       EXPORTING
99. *"             REFERENCE&#40;SUCCESS_226&#41;
100. *"       TABLES
101. *"              OUTPUT
102. *"       EXCEPTIONS
103. *"              COULD_NOT_OPEN_COMMANDFILE
104. *"----------------------------------------------------------------------
105.  
106. *-----------------------------------------------------------------------
107. * DATENDEFINITION
108. *-----------------------------------------------------------------------
109.   DATA: uuid  LIKE  sysuuid-c.
110.   DATA: dsn TYPE string.
111.   DATA: fl TYPE string.
112.   DATA: os_command&#40;500&#41;.
113.   DATA: BEGIN OF syscalltab OCCURS 0,
114.            line&#40;200&#41;,
115.         END OF syscalltab.
116.  
117. * Temporären Dateiname ermitteln.
118.   " UUID erstellen
119.   CALL FUNCTION 'SYSTEM_UUID_C_CREATE'
120.        IMPORTING
121.             uuid = uuid.
122.  
123.   CONCATENATE '/tmp/ftp_' uuid INTO dsn.
124.  
125. * FTP Kommandofile schreiben
126.   OPEN DATASET dsn FOR OUTPUT IN TEXT MODE.
127.   IF sy-subrc NE 0. RAISE could_not_open_commandfile. ENDIF.
128.  
129.   CONCATENATE 'user' ftp_user ftp_passwd
130.                INTO fl SEPARATED BY space.
131.   TRANSFER fl TO dsn.
132.  
133.   IF flag_binary NE space.
134.     TRANSFER 'binary' TO dsn.
135.   ENDIF.
136.  
137.   CONCATENATE 'put' src_file dest_file INTO fl SEPARATED BY space.
138.   TRANSFER fl TO dsn.
139.  
140.   TRANSFER 'bye' TO dsn.
141.  
142.   CLOSE DATASET dsn.
143.  
144.  
145. * Betriebssystemkommando erstellen.
146.   CONCATENATE 'ftp -n -v' ftp_server '<' dsn
147.                    INTO os_command SEPARATED BY space.
148.  
149.   CALL 'SYSTEM'
150.    ID 'COMMAND'
151.     FIELD os_command
152.    ID 'TAB'
153.     FIELD syscalltab-*sys*.
154.  
155.   MOVE syscalltab[] TO output[].
156.  
157. * temporäres File wieder löschen.
158.   DELETE DATASET dsn.
159.  
160. * Ftp Rückmeldungen auswerten
161. * 226 bedeutet File erfolgreich übertragen
162.   LOOP AT syscalltab.
163.     IF syscalltab+0&#40;3&#41; = '226'.
164.       success_226 = 'X'.
165.     ENDIF.
166.   ENDLOOP.
167.  
168. ENDFUNCTION.
169.  

GeSHi ©

[Willy1492]

Diesee Funktionsbausteine können FTP Uploads und Downloads durchführen. Sie Nutzen die Funktion Betriebsystemkommandos auszuführen.

Setzen Sie SAP auf anderen Betriebsystemem müssen Sie den Systemcommand evlt. noch etwas anpassen.

Das ist nur eins der Probleme, s. auch meine Antwort zu Deinem anderen Tipp:
http://www.abapforum.com/forum/viewtopi ... =5152#5152

Warum wird dann überhaupt CALL 'SYSTEM' benutzt?

Außerdem:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. FUNCTION Z_ftp_upload.
2. *"----------------------------------------------------------------------
3. *"*"Lokale Schnittstelle:
4. *"  IMPORTING
5. *"     REFERENCE&#40;SRC_FILE&#41;
6. *"     REFERENCE&#40;DEST_FILE&#41;
7. *"     REFERENCE&#40;FTP_SERVER&#41;
8. *"     REFERENCE&#40;FTP_USER&#41;
9. *"     REFERENCE&#40;FTP_PASSWD&#41;
10. *"     REFERENCE&#40;FLAG_BINARY&#41; OPTIONAL
11. *"  EXPORTING
12. *"     REFERENCE&#40;SUCCESS_226&#41;
13. *"  TABLES
14. *"      OUTPUT
15. *"  EXCEPTIONS
16. *"      COULD_NOT_OPEN_COMMANDFILE
17. *"----------------------------------------------------------------------
18.  
19. *-----------------------------------------------------------------------
20. * DATENDEFINITION
21. *-----------------------------------------------------------------------
22.   DATA: uuid  LIKE  sysuuid-c.
23.   DATA: dsn TYPE string.
24.   DATA: fl TYPE string.
25.   DATA: os_command&#40;500&#41;.
26.   DATA: BEGIN OF syscalltab OCCURS 0,
27.            line&#40;200&#41;,
28.         END OF syscalltab.
29.  
30. *Temporärer Dateiname ermitteln.
31.   " 1. UUID erstellen
32.   CALL FUNCTION 'SYSTEM_UUID_C_CREATE'
33.        IMPORTING
34.             uuid = uuid.
35.  
36.   CONCATENATE '/tmp/ftp_' uuid INTO dsn.
37.  
38. * FTP Kommandofile schreiben
39.   OPEN DATASET dsn FOR OUTPUT IN TEXT MODE.

GeSHi ©

Hier fehlt eine Berechtigungsprüfung vor OPEN DATASET, bei fehlender Berechtigung gibt es sonst einen Dump.
(Ich gehe mal davon aus, dass OS-User <sid>adm auf Unix-Systemen ins Verzeichnis /tmp/ schreiben darf, dass das Verzeichnis nicht voll ist, und dass /tmp nicht read-only gemounted ist. Das ist bei anderen Verzeichnissen auch nicht unbedingt gegeben.)

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.   IF sy-subrc NE 0. RAISE could_not_open_commandfile. ENDIF.
2.  
3.   CONCATENATE 'user' ftp_user ftp_passwd
4.                INTO fl SEPARATED BY space.
5.   TRANSFER fl TO dsn.

GeSHi ©

Ob das so eine gute Idee ist, dass Password im Klartext auf die Festplatte zu schreiben?

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.   IF flag_binary NE space.
2.     TRANSFER 'binary' TO dsn.
3.   ENDIF.
4.  
5.   CONCATENATE 'put' src_file dest_file INTO fl SEPARATED BY space.

GeSHi ©

Spitzfindig: Was ist, wenn einer der beiden Dateinamen ein Leerzeichen enthält?

[gast]

Bei mir klappts nicht mit dem put oder get alle anderen befehle 'pwd' etc. macht er auch den 'bye' aber den put ignoriert er.
An was könnte das liegen ?

Merci

[Alva1590]

@Frank Dittrich.

ich denke stele wollte keine kochbuchanleitung, sondern nur einen tipp geben bzw. einen anstoss.

[Alva1590]

Diesee Funktionsbausteine können FTP Uploads und Downloads durchführen. Sie Nutzen die Funktion Betriebsystemkommandos auszuführen.

Für FTP gibt es von SAP aus eine weit bessere Möglichkeiten mittels RFC-Aufrufen. Und das für Präsentations- und Applicationserver.

Demo Programme:
RSFTP001
RSFTP002
RSFTP003
RSFTP004
RSFTP005
RSFTP006

Funktionsgruppe: SFTP

Funktionsbausteine:
FTP_COMMAND FTP Kommando ausführen
FTP_COMMAND_LIST Liste von FTP Kommandos ausführen
FTP_CONNECT Connect zum FTP Server
FTP_DISCONNECT Disconnect vom FTP Server

Um diese Funktionsbausteine zu benutzen müssen die RFC-Verbindungen
SAPFTP (Präsentationserver)
SAPFTPA (Applikationserver)
gepflegt sein. Dies kann mittels RSFTP005 geprüft werden.
Die RFC-Verbindung kann mittels SM59 unter TCP/IP-Verbindung gepflegt werden. Das zurufende Programm heißt SAPftp.



Gruß Hendrik