/* *******************************************************************
/* Este programa CL ejecuta el comando GET contra el AS400/Produccion*
/* *******************************************************************
             PGM                                                      
/* Fichero fuente donde están los comandos FTP a ejecutar */          
             DCL        VAR(&BIBLIOTE) TYPE(*CHAR) LEN(10)            
/* Biblioteca donde está el fichero anterior */                       
             DCL        VAR(&FICHERO) TYPE(*CHAR) LEN(10)             
/* Miembro donde están los comandos FTP a ejecutar */                 
             DCL        VAR(&COMANDOS) TYPE(*CHAR) LEN(10)            
/* Dirección IP del AS/400 remoto */                                  
             DCL        VAR(&DIRECCIP) TYPE(*CHAR) LEN(20)            
                                                                      
/* Rellenamos las variables */                                        
                                                                      
              CHGVAR     VAR(&BIBLIOTE) VALUE('PS00221')              
              CHGVAR     VAR(&FICHERO)  VALUE('QFTPSRC')              
              CHGVAR     VAR(&COMANDOS) VALUE('FTPGET')               
              CHGVAR     VAR(&DIRECCIP) VALUE('138.21.179.77')        

/* Leemos los comandos FTP */                                      
/* Esto es lo que tiene el miembro fuente: */                      
                                                                   
/* USER USUARIO CONTRASE                              */           
/* BINARY                                             */           
/* GET PS00221/FICHEROFTP PS00221/FICHEROFTP (REPLACE */           
/* QUIT                                               */           
                                                                   
             OVRDBF     FILE(ENTRADA) TOFILE(&BIBLIOTE/&FICHERO) + 
                          MBR(&COMANDOS)                           
                                                                   
/*  Salida (LOG) de los comandos */                                
                                                                   
             OVRDBF     FILE(SALIDA) TOFILE(&BIBLIOTE/QLOGFTP) +   
                          MBR(FTPLOG)                              
/*           CLRPFM     FILE(&BIBLIOTE/QLOGFTP) MBR(FTPLOG) */     
                                                                   
/* Arrancamos FTP */                                               
                                                                   
             FTP        RMTSYS(&DIRECCIP) 
/* */                                               
                                                    
             DLTOVR     FILE(ENTRADA SALIDA)        
                                                    
             ENDPGM