//COPYRPF  JOB (RPF),                                                    
//             'Copy RPF to LNKLST',                                     
//             CLASS=A,                                                  
//             MSGCLASS=A,                                               
//             MSGLEVEL=(2,1)                                            
//*******************************************************************//  
//*                                                                 *//  
//* Name: RPF.V1R4M1.CNTL(COPYRPF)                                  *//  
//*                                                                 *//  
//* Desc: Copy RPF from its load lib to a library in LNKLST00       *//
//*                                                                 *// 
//*******************************************************************// 
//COPY    EXEC PGM=IEBCOPY                                              
//SYSPRINT DD  SYSOUT=*                                                 
//RPFLOAD  DD  DISP=SHR,DSN=RPF.V1R4M1.SRPFLOAD                         
//CMDLIB   DD  DISP=SHR,DSN=SYS1.CMDLIB                                 
//SYSIN    DD  *                                                        
 COPY INDD=CMDLIB,OUTDD=CMDLIB                                          
 COPY INDD=((RPFLOAD,R)),OUTDD=CMDLIB                                   
 COPY INDD=CMDLIB,OUTDD=CMDLIB                                          
/*