*

[coolie]

Hallo Forum,

ich benötige wieder mal Hilfe. Mein Problem:

Auf der iSeries sind installiert:

1. LOGA/400 Lohn/Gehalt
2. VARIAL FiBu Datenbank

Der Zugriff zur VARIAL-Datenbank wird über einen PC-Application-Server durchgeführt, LOGA läuft direkt auf der iSeries.

Alle Geräte befinden sich im LAN.

Bisher läuft ein CL/RPG-Programm, das Schnittstellendaten aus LOGA erzeugt. Anschließend wird die erzeugte Datei per iSeries Access-Dateidownload manuell auf ein lokales Laufwerk des Application Servers übertragen, um dann im nä. Schritt in VARIAL übernommen zu werden. Voraussetzung zur Übernahme nach VARIAL ist allerdings, daß sich die Datei auf einem Laufwerk des Application Servers befindet. Ob das auch ein virtuelles Laufwerk sein kann kann ich z.Zt. nicht beantworten.

Gibt es eine Möglichkeit, diesen Filetransfer z.B. mittels CPYTOIMPF, CPYTOSTMF in das vorhandene CL-Programm zu integrieren, so daß also der Filetransfer letzlich automatisch durchgeführt wird?

[JP]

Hallo coolie,

für das Problem gibt es mehrere Lösungsansätze.

1) Übertragung der Schnittstellendatei auf den Applicationserver per FTP

näheres zur Automatisierung von FTP findest du hier

http://newsolutions.de/forum-systemi-as400-i5-iseries/system-i-hauptforum/5985-dateien-per-ftp-auf-pc.html

2) per CPYTOSTMF/CPYTOIMPF ins IFS
allerdings muss dann noch eine "Laufwerksverknüpfung" vom Applicationserver auf das entsprechende Verzeichnis eingerichtet werden, um auf die Daten zugreifen zu können

[Fuerchau]

3.) Zugriff per QNTC.
Hierfür benötigst du eine Freigabe auf dem ApplicationServer, einen lokalen User mit Kennwort, IDENTISCH zum AS/400-User.
Im QNTC kannst du dann per "crtdir '/QNTC/IP-Adresse/Freigabename<FREIGABENAME>'" mit dem Server verbinden.

Per CPYTOIMPF/CPYTOSTMF kannst du die Datei ins IFS stellen und danach per CPYTOSTMF nach /QNTC/IP-Adresse/Freigabename/Dateiname<DATEINAME> kopieren.

Die 2 Kopierschritte sind leider erforderlich, da QNTC keine CCSID unterstützt.
Kopierst du nämlich direkt ins QNTC kann keine Umsetzung nach ASCII (1252) erfolgen.