Discussion :

[mery007]

et comment?
j ai fait SAVRST+f4 ca donne rien?
desolee je suis pas trop system

[larry57]

Perso, pour savrst, il faut plus de droits.
Moi, j'ai un Not autorize.

Merry, pour les commandes, fait SAVRST*
Tu auras toutes les commandes.

Larry57

[mery007]

et oui moi aussi non autorisé.
sinon ,je vais demander a l'administrateur,parce que la je me bloque.
merci infiniment pour vos aide..
c 'est tres gentil

[Hédhili Jaïdane]

De toutes façons si vous n'avez pas les droits qu'il faut sur l'une ou l'autre des machines, quelque soit la méthode utilisée pour faire les transferts, vous serez toujours rejetés. On ne peut en aucun bypasser ou détourner la sécurité de l'AS/400 (et suivants).

[mery007]

Voila toute a fait raison
merci en tout cas pour vous

[tonino77]

voivi un cl pour transfert un source entre deux as400 utilisier l'api QY2FMTL
si elle existe sur les version après 5.4

/*-----------------------------------------------------------------*/
/* DEBUT DE PROGRAMME TRANSFERT SOURCE */
/*-----------------------------------------------------------------*/
PGM PARM(&MBR &FILE &LIB &AGENCE &PASSE)
DCL VAR(&CODRTN) TYPE(*CHAR) LEN(1)
DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&PASSE) TYPE(*CHAR) LEN(10)
DCL VAR(&AGENCE) TYPE(*CHAR) LEN(10)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('---> +
TRANSFERT INDIVI -->') TOPGMQ(*EXT) +
MSGTYPE(*STATUS)
CALL PGM(QY2FTML) PARM('S' &LIB &MBR &FILE ' +
' &LIB &MBR &FILE ' ' 'Y' &AGENCE +
&PASSE &CODRTN ' ')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('---> +
TRANSFERT OK ---->') TOPGMQ(*EXT) +
MSGTYPE(*STATUS)
DLYJOB DLY(1)

ENDPGM
/*-----------------------------------------------------------------*/
/* FIN DE PROGRAMME */
/*-----------------------------------------------------------------*/