Re: Transferencias de archivos entre iSeries por DDM

[Jesus Busquets]

Title: Mensaje

Enviar archivos... bueno , nosotros hace tiempo que los enviamos directamente por ftp, pero también tengo por ahí un programa (del año 91)  que creo que hacía lo que pretendes. era algo así: PGM  PARM(&FDESDE &MIEENV &FHASTA &MIEREC &ENVREP &REMPLA &SYSTEM)                                                                              DCL  &FDESDE   *CHAR 20                                               DCL  &FHASTA   *CHAR 20                                               DCL  &MIEENV   *CHAR 10                                               DCL  &MIEREC   *CHAR 10                                               DCL  &ENVREP   *CHAR  1                                               DCL  &REMPLA   *CHAR  1                                               DCL  &SYSTEM   *CHAR  8                                                                                                                     DCL  &BIBENV   *CHAR 10                                               DCL  &ARCENV   *CHAR 10                                               DCL  &BIBREC   *CHAR 10                                               DCL  &ARCREC   *CHAR 10                                               DCL  &BLANC3   *CHAR  3                                               DCL  &BLANC4   *CHAR  4                                               DCL  &BLANC5   *CHAR  5                                               DCL  &TIPMSG   *CHAR  1                                               DCL  &QPGMR     *CHAR 10                                            DCL  &SYSTEM   *CHAR  8                                                             DCL  &BIBENV   *CHAR 10                   DCL  &ARCENV   *CHAR 10                   DCL  &BIBREC   *CHAR 10                   DCL  &ARCREC   *CHAR 10                   DCL  &BLANC3   *CHAR  3                   DCL  &BLANC4   *CHAR  4                   DCL  &BLANC5   *CHAR  5                   DCL  &TIPMSG   *CHAR  1                   DCL  &QPGMR     *CHAR 10                  DCL  &USUARIO   *CHAR 10                                                            CHGVAR &ARCENV %SST(&FDESDE 1 10)         CHGVAR &BIBENV %SST(&FDESDE 11 10)        CHGVAR &ARCREC %SST(&FHASTA 1 10)         CHGVAR &BIBREC %SST(&FHASTA 11 10)          IF (&ARCREC='*FROMFILE') CHGVAR &ARCREC &ARCENV                           IF (&BIBREC='*FROMLIB') CHGVAR &BIBREC &BIBENV                            IF (&MIEREC='*FROMMBR') CHGVAR &MIEREC &MIEENV                                                                                                      /* Recupero el identificador de usuario....*/              ...............................             .....codigo eliminado............              .................................        /* Hago la transferencia del archivo */       CHGVAR &BLANC3 VALUE('   ')                                             CHGVAR &BLANC4 VALUE('    ')                                            CHGVAR &BLANC5 VALUE('     ')                                           CALL PGM(QY2FTML) PARM(&ENVREP &BIBENV &ARCENV +                                &MIEENV &BLANC3 &BIBREC &ARCREC &MIEREC +                               &BLANC5 &REMPLA &SYSTEM &QPGMR &TIPMSG +                                BLANC4)                                                                                                                            IF  COND(&TIPMSG ¬= '0') THEN(DO)                                           SNDMSG MSG('No se ha hecho correctamente el envio del archivo: +                   ' *CAT &ARCENV *CAT ' El error se ha producido +                        en la localización ' *CAT &TIPMSG *CAT '(1=Local,     +                 2=Remoto).') TOUSR(QSYSOPR)                                     ENDDO                                                                                                                                   Miquel Lerin escribió: Hola forum, alguien me podría enviar algún ejemplo sobre una transferencia de un archivo de un iSeries a otro a través de DDM.         Muchas gracias por vuestra ayuda.