Datei kopieren AS400 nach AS4001

[Franz Karl]

Hallo,

wie lautete der Befehl wenn ich genau 1 Datei von einer AS400 auf eine andere AS400 kopieren möchte ?

Danke für die Hilfe

[ILEMax]

ich würd es mit FTP machen

Wenn eine AS400 in China steht und es keine Verbindung zu der anderen gibt ist savobj auch ne Möglichkeit :)

Oder ein ddm-File verwenden und cpyf nehmen

oder ...

Der ILEMax
(mitten im Sommerloch)

[Franz Karl]

Hallo,

danke für die Info - die Maschinen sind verbunden.

[ILEMax]

na dann
crtddmf und cpyf

oder 'schiebe-modus'
fpt 'i.p.der.as400'
user
passwort
bin
namefmt 1
put /qsys.lib/deinelib.lib/datei.file
/qsys.lib/deineziellib.lib/datei.file


bzw. 'holemodus'
get stat put, und die pfade natürlich umdrehen

der ILEMax

[mk]

Hallo,


vielleicht geht ja auch der SNDNETF Command

Gruß
Michael

[Franz Karl]

Frage zu dem FTP Befehl

Bis zum bin ging 's ja

1. namefmt 1 --> ungültiger Befehl

[ILEMax]

Dann ist wohl die AS400 defekt, bei uns geht das 100 fach am Tag.

ob es da eine 'einstellschraube' gibt kann ich nicht sagen

der ILEMax

[Franz Karl]

Ok hat doch geklappt. Ich dachte ich müsste den FTP auf einer PC-DOS Box ausführen.

Danke dir

[COS]

es gibt auch noch diese Möglichkeit:

Command (*CMD) erstellen, zB FTS


CMD PROMPT('File Transfer Support')

PARM KWD(FROMFILE) TYPE(FRF) +
MIN(1) PROMPT('von Datei')
FRF: QUAL TYPE(*NAME) LEN(10) MIN(1)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) +
DFT(*LIBL) SPCVAL((*LIBL)) PROMPT('Bibliothek')

PARM KWD(TOFILE) TYPE(TOF) +
MIN(1) PROMPT('nach Datei')
TOF: QUAL TYPE(*NAME) LEN(10) MIN(1)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) +
DFT(*LIBL) SPCVAL((*LIBL)) PROMPT('Bibliothek')

PARM KWD(RMTLOCNAM) TYPE(*NAME) LEN(8) MIN(1) +
EXPR(*YES) PROMPT('ferner Standort System')

PARM KWD(PASSWORD) TYPE(*NAME) LEN(10) MIN(1) +
EXPR(*YES) DSPINPUT(*NO) PROMPT('Kennwort +
für fernen Standort')

PARM KWD(FROMMBR) TYPE(*NAME) LEN(10) +
DFT(*FROMFILE) SPCVAL((*FROMFILE)) +
PROMPT('von Teildatei')

PARM KWD(TOMBR) TYPE(*NAME) LEN(10) +
DFT(*TOFILE) SPCVAL((*TOFILE)) +
PROMPT('nach Teildatei')

PARM KWD(MBROPT) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(N) SPCVAL((N N) (Y Y)) MIN(0) +
ALWUNPRT(*NO) ALWVAR(*NO) FULL(*YES) +
EXPR(*YES) PROMPT('nach Teildatei ersetzen (Y/N)')

PARM KWD(OPTION) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(S) SPCVAL((S S) (R R)) MIN(0) +
ALWUNPRT(*NO) ALWVAR(*NO) FULL(*YES) +
EXPR(*YES) PROMPT('Senden = S / +
Empfangen = R')


dann ein CL-Programm erstellen (*PGM)


PGM PARM(&FROMFILEF &TOFILEF &RMTLOCNAM &PASSWORD +
&FROMMBR &TOMBR &MBROPT +
&OPTION)

DCL VAR(&OPTION) TYPE(*CHAR) LEN(1)
DCL VAR(&MBROPT) TYPE(*CHAR) LEN(1)
DCL VAR(&FROMFILEF) TYPE(*CHAR) LEN(20)
DCL VAR(&FROMFILE) TYPE(*CHAR) LEN(10)
DCL VAR(&FROMLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&FROMMBR) TYPE(*CHAR) LEN(10)
DCL VAR(&TOFILEF) TYPE(*CHAR) LEN(20)
DCL VAR(&TOFILE) TYPE(*CHAR) LEN(10)
DCL VAR(&TOLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&TOMBR) TYPE(*CHAR) LEN(10)
DCL VAR(&TOMBR) TYPE(*CHAR) LEN(10)
DCL VAR(&RMTLOCNAM) TYPE(*CHAR) LEN(10)
DCL VAR(&PASSWORD) TYPE(*CHAR) LEN(10)
DCL VAR(&RC) TYPE(*CHAR) LEN(1)
DCL VAR(&MSGNUM) TYPE(*CHAR) LEN(8)
DCL VAR(&TYP) TYPE(*CHAR) LEN(6)
DCL VAR(&TODAT) TYPE(*CHAR) LEN(6)

DCL &ERRORSW *LGL /* Std err */
DCL &MSGID *CHAR LEN(7) /* Std err */
DCL &MSGDTA *CHAR LEN(100) /* Std err */
DCL &MSGF *CHAR LEN(10) /* Std err */
DCL &MSGFLIB *CHAR LEN(10) /* Std err */
MONMSG MSGID(CPF0000) EXEC(GOTO STDERR1) /* Std err */

CHGVAR VAR(&FROMFILE) VALUE(%SST(&FROMFILEF 1 10))
CHGVAR VAR(&FROMLIB) VALUE(%SST(&FROMFILEF 11 10))
CHGVAR VAR(&TOFILE) VALUE(%SST(&TOFILEF 1 10))
CHGVAR VAR(&TOLIB) VALUE(%SST(&TOFILEF 11 10))

IF COND(&FROMMBR *EQ '*FROMFILE') THEN(CHGVAR +
VAR(&FROMMBR) VALUE(&FROMFILE))
IF COND(&TOMBR *EQ '*TOFILE') THEN(CHGVAR +
VAR(&TOMBR) VALUE(&TOFILE))

SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Dateiübertragung wird gestartet') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)

CALL PGM(QY2FTML) PARM(&OPTION &FROMLIB &FROMFILE +
&FROMMBR &TYP &TOLIB &TOFILE &TOMBR &TODAT +
&MBROPT &RMTLOCNAM &PASSWORD &RC &MSGNUM)

IF COND((&RC *NE '0') *OR (&MSGNUM *NE ' ')) THEN(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Dateiübertragung abnormal beendet +
- Status ' !! &RC !! ' - MSG-Nr ' !! +
&MSGNUM) TOPGMQ(*EXT)
ENDDO

ENDDO


ENDE:
RETURN

STDERR1: /* Standard error handling routine */
IF &ERRORSW SNDPGMMSG MSGID(CPF9999) +
MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk */
CHGVAR &ERRORSW '1' /* Set to fail ir error occurs */
STDERR2: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
IF (&MSGID *EQ ' ') GOTO STDERR3
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
GOTO STDERR2 /* Loop back for addl diagnostics */
STDERR3: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)

ENDPGM



zuerst das CLP compilieren ...........

CRTCLPGM PGM(QGPL/FTS)
SRCFILE(QGPL/QCLSRC)
SRCMBR(FTS)


dann den CMD compilieren ............


CRTCMD CMD(QGPL/FTS)
PGM(QGPL/FTS)
SRCFILE(QGPL/QCMDSRC)
ALLOW(*INTERACT *IPGM)



und fertig ist ein weitere Datei-Übertragungsmöglichkeit

FTS ..... + BT04





von Datei . . . . . . . . . . . FROMFILE
Bibliothek . . . . . . . . . . *LIBL
nach Datei . . . . . . . . . . . TOFILE
Bibliothek . . . . . . . . . . *LIBL
ferner Standort System . . . . . RMTLOCNAM
Kennwort für fernen Standort . . PASSWORD
von Teildatei . . . . . . . . . FROMMBR *FROMFILE
nach Teildatei . . . . . . . . . TOMBR *TOFILE
nach Teildatei ersetzen (Y/N) . MBROPT N
Senden = S / Empfangen = R . . OPTION S





2 Vorteile:
im Gegensatz zu SNDNETF muss auf dem Empfangssystem die Datei nicht existieren, sie wird mit o.g. CMD/CLP angelegt.
und
im Gegensatz zu SNDNETF muss nicht QSNADS konfiguriert sein,
d.h. SBS QSNADS braucht nicht gestartet zu sein !

und vor allem auf die richtige Richtung (senden/empfangen) achten !!!!

(ohne Gewähr)


viel Spaß beim testen.