/*********************************************************************/ 
/*   To Compile:                                                     */ 
/*                                                                   */ 
/*      CRTCLPGM   PGM(XXX/FTPPGM)  SRCFILE(XXX/QCLSRC) +            */ 
/*                   TEXT('PGM FOR FTPPARM COMMAND')                 */ 
/*                                                                   */ 
/*********************************************************************/ 
FTPPGM:     PGM        PARM(&SYSNAME &USER &PASSWORD &OBJECT &LIB +    
                         &RLIB &TGTRLS &MBRO &ALWO)                    
                                                                       
            DCL        VAR(&SYSNAME)  TYPE(*CHAR) LEN(16)              
            DCL        VAR(&USER)     TYPE(*CHAR) LEN(10)              
            DCL        VAR(&PASSWORD) TYPE(*CHAR) LEN(10)              
            DCL        VAR(&OBJECT)   TYPE(*CHAR) LEN(10)              
            DCL        VAR(&LIB)  TYPE(*CHAR) LEN(10)                  
            DCL        VAR(&LIBS)  TYPE(*CHAR) LEN(10)                 
            DCL        VAR(&RLIB)  TYPE(*CHAR) LEN(10)                 
            DCL        VAR(&TGTRLS) TYPE(*CHAR) LEN(8)                 
            DCL        VAR(&MBRO)  TYPE(*CHAR) LEN(6)                  
            DCL        VAR(&ALWO) TYPE(*CHAR) LEN(8)                   
                                                                       
            CHGJOB     LOG(4 *SAME *SECLVL) LOGCLPGM(*YES)             
                                                                       
            CLRSAVF    FILE(YOURLIB/FTPSAVE)                        
                                                         
            SAVOBJ     OBJ(&OBJECT) LIB(&LIB) DEV(*SAVF) +           
                       OBJTYPE(*ALL) SAVF(YOURLIB/FTPSAVE) +      
                       TGTRLS(&TGTRLS)                             
                                                         
            CHGVAR     VAR(&OBJECT) VALUE('FTPSAVE')                 
            CHGVAR     VAR(&LIBS) VALUE(&LIB)                        
            CHGVAR     VAR(&LIB) VALUE('YOURLIB')   
            CLRPFM     FILE(YOURLIB/FTPSRC) MBR(FTPMSD)            
                                                        
            OVRDBF     FILE(FTPSRC) TOFILE(YOURLIB/FTPSRC) +       
                       MBR(FTPMSD)                                
                                                        
            MONMSG     CPF0000                                          
                                                        
            CALL       PGM(COURTLIB/FTPPARMRG) PARM(&SYSNAME &USER +    
                          &PASSWORD &OBJECT &LIB &LIBS &RLIB &MBRO +    
                          &ALWO)                                        
                                                                        
/* START FTP PROCESS      */                                            
            OVRDBF     FILE(INPUT) TOFILE(YOURLIB/FTPSRC) +           
                          MBR(FTPMSD)                                   
            OVRDBF     FILE(OUTPUT) TOFILE(YOURLIB/FTPSRC) +          
                          MBR(FTPMSM)                                   
            CLRPFM     FILE(YOURLIB/FTPSRC) MBR(FTPMSM)    
                       FTP        RMTSYS(&SYSNAME) CCSID(*DFT) TBLFTPIN(*CCSID)   
                       DLTOVR *ALL                                                
                       CLRPFM     FILE(YOURLIB/FTPSRC) MBR(FTPMSD)               
                       ENDPGM