Daten Upload vn pc auf die i5

[Robi]

Wir machen das 'Pi mal daumen' etwa so

DLTF FILE(QTEMP/T_IFS)
MONMSG CPF0000
CRTPF FILE(QTEMP/T_IFS) RCDLEN(1000) LVLCHK(*NO)
/* Pfad schreibweise egal, Datei gr. kl. beachten !!! */
CHGVAR VAR(&QSHC) VALUE('FIND +
/QNTC/freigabe/des serveres/so/weit/wie/du/kennst/*')
/* SIZE xx (BIS zum *) */ chgvar &start xx
CHGJOB JOB(*) LOG(4 0 *NOLIST)
OVRDBF FILE(STDOUT) TOFILE(QTEMP/T_IFS) OVRSCOPE(*JOB)
STRQSH CMD(&QSHC)
CHGJOB JOB(*) LOG(4 0 *SECLVL)
DLTOVR FILE(STDOUT) LVL(*JOB)

/* --------------------------------------------------------------------------*/
/* lies bis EOF oder leer Datei */
/* --------------------------------------------------------------------------*/
OVRDBF FILE(DATEI) TOFILE(QTEMP/T_IFS)
START1: RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE_1))
/* nix gefunden */
IF COND(%SST(&T_IFS 1 6) *EQ 'find: ') +
THEN(GOTO CMDLBL(ENDE_1))
/*------------------------------------------------------*/
/* SAMMELPFAD */
/*------------------------------------------------------*/
CHGVAR VAR(&TO) value(' +
/QNTC/freigabe/eines/anderen verzeichis/' +
*CAT %SST(&T_IFS &START 35)) /* Dateinamensläng max */
/*------------------------------------------------------*/
/* KOPIERE NEUE AUF AS400 (Deine verarbeitung) */
/*------------------------------------------------------*/
CPYFRMIMPF FROMSTMF(&T_IFS) TOFILE(xxx) +
MBROPT(*ADD) RCDDLM(*CRLF) DTAFMT(*DLM) +
STRDLM(*DBLQUOTE) FLDDLM(';') +
DECPNT(*COMMA) DATFMT(*YYMD) FROMRCD(2) + RPLNULLVAL(*FLDDFT)
/*------------------------------------------------------*/
/* MOVE NEUE IN DEN SAMMEL PFAD */
/*------------------------------------------------------*/
CHGVAR VAR(&QSHC) VALUE('MV ' *CAT &T_IFS *BCAT &TO)
STRQSH CMD(&QSHC)

goto start1

[plinzen]

Hallo

QNTC wäre jetzt auch mein Vorschlag gewesen.

Wichtig ist hier, dass der Benutzer unter dem der iSeries-Job dann mal läuft, lokal auf dem PC vorhanden ist (nicht Domäne!). Mit gleichen Benutzernamen + Passwort.

Zudem muss natürlich eine Freigabe auf das Verzeichnis mit dem Benutzer eingerichtet sein.

Zum Thema QNTC gibts auch schon einige Einträge hier im Forum. Einfach mal suchen.

Gruß!

[Fuerchau]

FTP ist da gar nicht so schlecht, allerdings erfordert das eine Vielzahl von Aufrufen:
1. "ls"-befehl für die Verzeichnisauflistung
2. "ls *.txt" je Verzeichnis
3. "get" oder "mget"
Jeder einzelne Aufruf macht ine Anmeldung, führt das Kommando aus und meldet sich wieder ab.

Die Ausgabe des FTP läßt sich in eine Datei ausgeben.