JCL Skeleton:
                                              
          //&JNAME JOB (1234,01,DB),'IMS IMAGE COPY',CLASS=D,                   
          // MSGCLASS=X,NOTIFY=&TSOUID                                          
          //******************************************************************* 
          //*                                                                   
          //*  ONLINE IMAGE COPY GENERATED BY &TSOUID ON &DATVAR                
          //*  OPTIONS:                                                         
          //*  APPLICATION ID = &IMSID                                          
          //*  IMS SYSTEM     = &IMSSYS                                         
          //*  JOBNAME CHAR   = &JCHAR                                          
          //*  JOBNAME SUFFIX = &JSUF                                           
          //*  SCHEDULE       = &SCHEDLIT                                       
          //*  DUPLICATE COPY = &JDUP                                           
          //*  CONTROL CARD   = &JCC                                            
          )SEL &JSUB = T                                                        
          //*  SUBMIT BY      = TSO USER                                        
          )ENDSEL                                                               
          )SEL &JSUB = P                                                        
          //*  SUBMIT BY      = PRODUCTION JOB SCHEDULER                        
          )ENDSEL                                                               
          //*                                                                   
          //******************************************************************* 
          //JSTEP01 EXEC PGM=DB1BMP,REGION=4M                                   
          //STEPLIB   DD DISP=SHR,DSN=&ENDEVLIB                                 
          //          DD DISP=SHR,DSN=&IMSDYN                                   
          //          DD DISP=SHR,DSN=&IMSRES                                   
          //          DD DISP=SHR,DSN=&IMSBMC                                   
          //          DD DISP=SHR,DSN=&IMSCOB2                                  
          //DFSRESLB  DD DISP=SHR,DSN=&IMSRES                                   
          //DFSESL    DD DISP=SHR,DSN=&IMSRES                                   
          //IMS       DD DISP=SHR,DSN=&IMSDBD                                   
          //          DD DISP=SHR,DSN=&IMSPSB                                   
          //IDILOAD   DD DISP=SHR,DSN=&IMSBMC                                   
          //PROCLIB   DD DISP=SHR,DSN=&IMSPROC                                  
          //IMSUDUMP  DD SYSOUT=X                                               
          //SYSUDUMP  DD SYSOUT=X                                               
          //SYSABOUT  DD SYSOUT=*                                               
          //SYSDBOUT  DD SYSOUT=*                                               
          //SYSIN     DD DISP=SHR,DSN=&JCLCCDSN                                 
          //IM001     DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),              
          //          LABEL=(,SL,EXPDT=99000),                                  
          //          VOL=(,RETAIN,,32),UNIT=CART,                              
          //          DSN=IMST.IMAGECPY.&JCLMEMBR.1(+1)                         
          )SEL &JDUP = D                                                        
          //IM002     DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),              
          //          LABEL=(SL,EXPDT=99000),                                   
          //          VOL=(,RETAIN,,32),UNIT=AFF=IM001,                         
          //          DSN=IMST.IMAGECPY.&JCLMEMBR.2(+1)                         
          )ENDSEL                                                               
          // 
                                                             
          Control Card:
                                          
          )SEL &JDUP = D )TB 1A 4A 13A 22 43 !D2!&TDBDNAM               
                           !&TDDNAM!IM001!IM002                             
          !IMAGE                                                                
          COPY )ENDSEL )SEL &JDUP = 0 )TBA 1A 4A                            
          13A 22 43 !D1!&TDBDNAM!&TDDNAM!IM001!IMAGE                    
          COPY )ENDSEL