Re: Transferencias de archivos entre iSeries por DDM

[Pedro Pinedo]

              CRTDDMF    FILE(&LIBPROD/&ODOBNM) +                      
                           RMTFILE(&LIBPROR/&ODOBNM) RMTLOCNAME(&IP *IP)
              MONMSG     MSGID(CPF0000)                
               
              ENDJRNPF   FILE(&LIBPRUE/&ODOBNM) JRN(&LIBPRUE/QSQJRN)    
              MONMSG     MSGID(CPF0000)                                

              CPYF       FROMFILE(&LIBPROD/&ODOBNM) +                  
                           TOFILE(&LIBPRUE/&ODOBNM) MBROPT(*REPLACE) +  
                           FMTOPT(*MAP *DROP)                          
              MONMSG     MSGID(CPF0000)                        
       
               STRJRNPF   FILE(&LIBPRUE/&ODOBNM) JRN(&LIBPRUE/QSQJRN) +
                            IMAGES(*BOTH)                              
               MONMSG     MSGID(CPF0000)              
                 
Tal vez este trozo de codigo te pueda ayudar.


Pedro Pinedo Hernandez:  Analista-Programador
Grupo Amcor Flexibles Hispania S.L.  
Planta: Tobepal Logroño
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
26006 Logroño Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)
_______________________________________________ AMCOR FLEXIBLES - LEADING THROUGH INNOVATION _______________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES.