CA Datacom/DB SQL Preprocessors › Sample JCL › Sample Assembler JCL › z/VSE Assembler Sample JCL

z/VSE Assembler Sample JCL

In this example, the source is being read from a sequential disk file while SQL INCLUDEs are being read from a library.

Note: Use the following as a guide to prepare your JCL. The JCL statements are for example only. Lowercase letters in a statement indicate a value you must supply. Code all statements to your site and installation standards.

* $$ JOB   .........                                 
// JOB     .........                                 
// EXEC      PROC=procname                           
// ASSGN     SYSnnn,DISK,VOL=vvvvvv,SHR              
// DLBL      OPTIONS,'optdsn',1                  
// EXTENT    SYSnnn,vvvvvv,1,0,strk,ntrks            
// DLBL      SOURCE,'srcdsn',1                   
// EXTENT    SYSnnn,vvvvvv,1,0,strk,ntrks            
// DLBL      REPORT,'rptdsn',1                   
// EXTENT    SYSnnn,vvvvvv,1,0,strk,ntrks            
// DLBL      SRCOUT,'outdsn',1                   
// EXTENT    SYSnnn,vvvvvv,1,0,strk,ntrks            
// DLBL      SDSKIN,'rptdsn'                     
// EXTENT    SYSnnn,vvvvvv                           
// UPSI      1                                       
* DITTO                                              
// EXEC DITTO,SIZE=1M                                
$$DITTO CSQ FILEOUT=OPTIONS,CISIZE=512,BLKFACTOR=1   
SQLMODE=DATACOM                                       
   *** Other options as appropriate ***               
/*                                                    
$$DITTO CSQ FILEOUT=SOURCE,CISIZE=512,BLKFACTOR=1     
   *** Source here ***                                
/*                                                    
$$DITTO EOJ                                           
ON $ABEND GOTO $EOJ                                   
* DBPLIPR                                             
// EXEC DBPLIPR,SIZE=500K                             
/*                                                    
* DITTO                                               
// EXEC DITTO,SIZE=1M                                 
$$DITTO SFD FILEIN=SDSKIN,RECSIZE=133                 
$$DITTO EOJ                                           
/*                                                    
/&                                                    
* $$ EOJ