//FCOPY    JOB CLASS=F,MSGCLASS=W,NOTIFY=FSUPP17                                
//JOBCAT   DD DSN=TSOCAT,DISP=SHR                                               
//* ---------------------------------------------------------------             
//* Modify your library.                                                        
//* ---------------------------------------------------------------             
//SETUP   EXEC PGM=IEFBR14                                                      
//DIST     DD DSN=KIMU.REV.CNTL,DISP=SHR    This Library                        
//PANEL    DD DSN=KIMU.ISPPLIB,DISP=OLD     ISPF Panel Library                  
//MSGS     DD DSN=KIMU.ISPMLIB,DISP=OLD     ISPF Messages Library               
//CLIST    DD DSN=KIMU.CLIST,DISP=OLD       TSO Clist Library                   
//* ---------------------------------------------------------------             
//* Copy Process.                                                               
//* ---------------------------------------------------------------             
//PANEL   EXEC PGM=IEBCOPY                                                      
//SYSPRINT DD SYSOUT=*                                                          
//DIST     DD DSN=*.SETUP.DIST,DISP=SHR,                                        
//         VOL=REF=*.SETUP.DIST                                                 
//PANEL    DD DSN=*.SETUP.PANEL,DISP=SHR,                                       
//         VOL=REF=*.SETUP.PANEL                                                
//MSGS     DD DSN=*.SETUP.MSGS,DISP=SHR,                                        
//         VOL=REF=*.SETUP.MSGS                                                 
//CLIST    DD DSN=*.SETUP.CLIST,DISP=SHR,                                       
//         VOL=REF=*.SETUP.CLIST                                                
//SYSIN    DD *                                                                 
 COPY INDD=DIST,OUTDD=PANEL                                                     
 S M=((REV@ABO,,R))                                                             
 S M=((REV@ENTY,,R))                                                            
 S M=((REV@ENT2,,R))                                                            
 S M=((REV@EXTQ,,R))                                                            
 S M=((REV@EXTR,,R))                                                            
 S M=((REV@EXTW,,R))                                                            
 S M=((REV@EXT2,,R))                                                            
 S M=((REV@INFO,,R))                                                            
 S M=((REV@LST,,R))                                                             
 S M=((REV@MCHK,,R))                                                            
 S M=((REV@SHOW,,R))                                                            
 S M=((REV@WAIT,,R))                                                            
 S M=((REV@WRL,,R))                                                             
 COPY INDD=DIST,OUTDD=MSGS                                                      
 S M=((REVA00,,R))                                                              
 S M=((REVA01,,R))                                                              
 S M=((REVA99,,R))                                                              
 S M=((REVT00,,R))                                                              
 S M=((REV01,,R))                                                               
 S M=((REV02,,R))                                                               
 S M=((REV99,,R))                                                               
 COPY INDD=DIST,OUTDD=CLIST                                                     
 S M=((@REV,,R))                                                                
/*                                                                              
