***************************************************************** 
 *  To Compile:                                                    
 *     CRTBNDRPG PGM(XXX/FTPPARMRG) SRCFILE(XXX/QRPGLESRC)         
 *                                                                 
 ***************************************************************** 
H DATEDIT(*YMD)                                                         
Fftpsrc    UF A E             DISK    rename(ftpsrc:ftprec)             
C*--------------------------------------------------------------------  
C     *entry        plist                                               
C                   parm                    sys              16         
C                   parm                    userid           10         
C                   parm                    pass             10         
C                   parm                    obj              10         
C                   parm                    lib              10         
C                   parm                    libS             10         
C                   parm                    libr             10         
C                   parm                    mbro              6         
C                   parm                    alwo              8         
C                                                                       
C*Build User ID and password                                            
C                   Eval      srcdta = userid + ' ' + pass              
C                   write     ftprec                                    
C                                                                       
C* add binary statement                                                 
C                   Eval      srcdta = 'bin'                            
C                   write     ftprec                                    
C                                                                       
C* add put statements...                                                
C                   Eval      srcdta = 'put' + ' ' + LIB                
C     SRCDTA        CAT       '/':0         SRCDTA2         150         
C     SRCDTA2       CAT       OBJ:0         SRCDTA3         150
C     SRCDTA3       CAT       LIB:1         SRCDTA5         150   
C     SRCDTA5       CAT       '/':0         SRCDTA6         150   
C     SRCDTA6       CAT       OBJ:0         SRCDTA7         150   
C                   EVAL      SRCDTA =  SRCDTA7                   
C                   write     ftprec                              
C                                                                 
C* add put statements...                                          
C                   Eval      srcdta = 'QUOTE' + ' RCMD'          
C     SRCDTA        CAT       'RSTOBJ':1    SRCDTA2         150       
C     SRCDTA2       CAT       'OBJ(*ALL)':1 SRCDTA4         150       
C     SRCDTA4       CAT       'SAVLIB':1    SRCDTA5         150       
C     SRCDTA5       CAT       '(':0         SRCDTA6         150       
C     SRCDTA6       CAT       LIBS:0        SRCDTA8         150       
C     SRCDTA8       CAT       ')':0         SRCDTA10        150       
C     SRCDTA10      CAT       'DEV':1       SRCDTA11        150       
C     SRCDTA11      CAT       '(*SAVF)':0   SRCDTA12        150       
C     SRCDTA12      CAT       'SAVF(':1     SRCDTA13        150       
C     SRCDTA13      CAT       LIB:0         SRCDTA14        150       
C     SRCDTA14      CAT       '/':0         SRCDTA15        150       
C     SRCDTA15      CAT       'FTPSAVE)':0  SRCDTA16        150       
C     SRCDTA16      CAT       'RSTLIB':1    SRCDTA17        150       
C     SRCDTA17      CAT       '(':0         SRCDTA18        150       
C     SRCDTA18      CAT       LIBr:0        SRCDTA19        150       
C     SRCDTA19      CAT       ')':0         SRCDTA20        150       
C     SRCDTA20      CAT       'MBROPT':1    SRCDTA21        150 
C     SRCDTA21      CAT       '(':0         SRCDTA22        150         
C     SRCDTA22      CAT       MBRO:0        SRCDTA23        150         
C     SRCDTA23      CAT       ')':0         SRCDTA24        150         
C     SRCDTA24      CAT       'ALWOBJDIF':1 SRCDTA25        150         
C     SRCDTA25      CAT       '(':0         SRCDTA26        150         
C     SRCDTA26      CAT       ALWO:0        SRCDTA27        150         
C     SRCDTA27      CAT       ')':0         SRCDTA28        150         
C                   EVAL      SRCDTA =  SRCDTA28                        
C                   write     ftprec                                    
C                                                                       
C                                                                       
C* add put statements...                                                
C                   Eval      srcdta = 'QUIT'                           
C                   write     ftprec                                    
C                   Eval      *inlr = *on