JCL/JCS Requirements and Examples

This section describes the job control information required to run ADACHK with BS2000, z/OS, and z/VSE systems and shows examples of each of the job streams.

This document covers the following topics:


BS2000

File Link Name Storage More Information
Data set containing blocks to print. If you are running an ADACHK print function (such as ADACHK PLOGPRINT, ADACHK SORTPRINT, or ADACHK ASSOPRINT), include the corresponding data set specification in the job for the run. For information about which data sets to specify for each ADACHK function, read Disk Accesses by Utility and Function DDASSORn
DDDATARn
DDWORKR1
DDWORKR4
DDTEMPR1
DDSORTRn
DDCLOGRn
DDPLOGRn
DDDSIMR1
disk
disk
disk
disk
disk
disk
disk
disk
disk
Associator
Data Storage
Work

Temp
Sort
Multiple command log
Multiple protection log
DSIM data set
Associator DDASSORn or DDASSOnn disk  
Data Storage DDDATARn or DDDATAnn disk  
Sort work data sets DDSORTR1 or DDSORTR2   Used by the ACCHECK, CHECK, DSCHECK, and VALIDATE utility functions only when SORTTYPE=INTERNAL (the default) is specified and when the amount of data to be sorted exceeds the space declared by the LWP parameter in these utility function runs.
ADARUN parameters SYSDTA/ DDCARD   Operations
ADACHK parameters SYSDTA/ DDKARTE    
ADARUN messages SYSOUT DDPRINT   Messages and Codes
ADACHK messages SYSLST DDDRUCK   Messages and Codes

ADACHK JCL Example (BS2000)

This section provides samples of BS2000 ADACHK jobs.

Standard Example

/BEGIN-PROC C                                                
/MOD-TEST DUMP=YES                                           
/REMA                                                        
/REMA ADACHK: Execute multiple print and check functions     
/REMA                                                        
/ASS-SYSLST L.CHK                                            
/ASS-SYSDTA *SYSCMD                                          
/SET-FILE-LINK   DDLIB,ADABAS.MOD                            
/SET-FILE-LINK   DDASSOR1,ADA99.ASSO,SUP=DISK(SHARE-UPD=YES) 
/SET-FILE-LINK   DDDATAR1,ADA99.DATA,SUP=DISK(SHARE-UPD=YES) 
/START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)  
ADARUN PROG=ADACHK,DB=99                                     
ADACHK ICHECK             ICHECK of all files                
ADACHK DSCHECK FILE=1,2   DSCHECK of files 1 and 2           
ADACHK DSCHECK FILE=17    DSCHECK of file 17                 
ADACHK VALIDATE FILE=3    VALIDATE of file 3                 
ADACHK ACCHECK            ACCHECK of all files               
ADACHK CHECK FILE=21      CHECK of file 21 
ADACHK FSTPRINT           FSTPRINT          
ADACHK FCBPRINT FILE=1    FCBPRINT file=1   
/ASS-SYSDTA *PRIM                           
/ASS-SYSLST *PRIM                           
/END-PROC                                   

Example Specifying Sort Data Sets

/BEGIN-PROC C                                                   
/MOD-TEST DUMP=YES                                              
/REMA                                                           
/REMA ADACHK: Execute ADACHK CHECK specifying sort datasets     
/REMA         to be used in the event that LWP is insufficient. 
/REMA                                                           
/ASS-SYSLST L.CHK                                               
/ASS-SYSDTA *SYSCMD                                             
/DELETE-FILE ADA99.CHK.SORTR1                                   
/SET-JOB-STEP                                                   
/CREATE-FILE ADA99.CHK.SORTR1,PUB(SPACE=(10000,1000))            
/SET-FILE-LINK   DDLIB,ADABAS.MOD                               
/SET-FILE-LINK   DDASSOR1,ADA99.ASSO,SUP=DISK(SHARE-UPD=YES)    
/SET-FILE-LINK   DDDATAR1,ADA99.DATA,SUP=DISK(SHARE-UPD=YES)    
/SET-FILE-LINK   DDSORTR1,ADA99.CHK.SORTR1                      
/START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)     
ADARUN PROG=ADACHK,DB=99                                        
ADACHK CHECK LWP=256000
/ASS-SYSDTA *PRIM  
/ASS-SYSLST *PRIM  
/END-PROC                        

z/OS

Data Set DD Name Storage More Information
Data set containing blocks to print. If you are running an ADACHK print function (such as ADACHK PLOGPRINT, ADACHK SORTPRINT, or ADACHK ASSOPRINT), include the corresponding data set specification in the job for the run. For information about which data sets to specify for each ADACHK function, read Disk Accesses by Utility and Function DDASSORn
DDDATARn
DDWORKR1
DDWORKR4
DDTEMPR1
DDSORTRn
DDCLOGRn
DDPLOGRn
DDDSIMR1
disk
disk
disk
disk
disk
disk
disk
disk
disk
Associator
Data Storage
Work

Temp
Sort
Multiple command log
Multiple protection log
DSIM data set
Associator DDASSORn or DDASSOnn disk  
Data Storage DDDATARn or DDDATAnn disk  
Sort work data sets DDSORTR1 or DDSORTR2   Used by the ACCHECK, CHECK, DSCHECK, and VALIDATE utility functions only when SORTTYPE=INTERNAL (the default) is specified and when the amount of data to be sorted exceeds the space declared by the LWP parameter in these utility function runs.
ADARUN parameters DDCARD reader Operations
ADACHK parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADACHK messages DDDRUCK printer Messages and Codes

ADACHK JCL Example (z/OS)

This section provides samples of z/OS ADACHK JCL:

Example Checking the Entire Database

//ADACHKC   JOB
//*
//*   ADACHK: CHECK
//*      Check of entire database
//*
//CHK       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD    <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.DATAR1 <=== DATA
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
/*
//DDKARTE   DD   *
ADACHK CHECK
/*
//

Example Specifying Sort Data Sets

//ADACHKS   JOB
//*
//*   ADACHK: Execute ADACHK CHECK specifying sort datasets
//*           to be used in the event that LWP is insufficient.
//*
//CHK       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD    <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.DATAR1 <=== DATA
//DDSORTR1  DD   DISP=NEW,DSN=EXAMPLE.SORTR1,SPACE=(CYL,(100,500))
//DDSORTR2  DD   DISP=NEW,DSN=EXAMPLE.SORTR2,SPACE=(CYL,(100,500))
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
/*
//DDKARTE   DD   *
ADACHK CHECK LWP=256000
/*
//

Example of ADACHK Print Functions

//ADACHKP   JOB
//*
//*   ADACHK: PRINT GCB followed by PPTPRINT and ASSO and DATA
//*      prints of various RABNs
//*
//CHK       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD    <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.DATAR1 <=== DATA
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
/*
//DDKARTE   DD   *
ADACHK GCBPRINT
ADACHK PPTPRINT
ADACHK ASSOPRINT RABN=1000-1002
ADACHK ASSOPRINT RABN=2006
ADACHK DATAPRINT RABN=25006-25007
ADACHK DATAPRINT RABN=17000-17999
/*
//

Example of ADACHK JCL Running Both Print and Check Functions

//ADACHKV   JOB
//*
//*   ADACHK: Execute multiple print and check functions
//*
//*
//CHK       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD    <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.DATAR1 <=== DATA
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
/*
//DDKARTE   DD   *
ADACHK ICHECK
ADACHK DSCHECK FILE=1,2
ADACHK DSCHECK FILE=17
ADACHK VALIDATE FILE=3
ADACHK ACCHECK
ADACHK CHECK FILE=21
ADACHK FSTPRINT
ADACHK FCBPRINT FILE=1
/*
//

z/VSE

File Symbolic Name Storage Logical Unit More Information
Data set containing blocks to print. If you are running an ADACHK print function (such as ADACHK PLOGPRINT, ADACHK SORTPRINT, or ADACHK ASSOPRINT), include the corresponding data set specification in the job for the run. For information about which data sets to specify for each ADACHK function, read Disk Accesses by Utility and Function. ASSORn
DATARn
WORKR1
TEMPR1
SORTRn
CLOGRn
PLOGRn
SIMR1
disk
disk
disk
disk
disk
disk
disk
disk
  Associator
Data Storage
Work
Temp
Sort
Multiple command log
Multiple protection log
DSIM data set
Associator ASSORn or ASSOnn disk *  
Data Storage DATARn or DATAnn disk *  
Sort work data sets SORTR1 or SORTR2     Used by the ACCHECK, CHECK, DSCHECK, and VALIDATE utility functions only when SORTTYPE=INTERNAL (the default) is specified and when the amount of data to be sorted exceeds the space declared by the LWP parameter in these utility function runs.
ADARUN parameters -
CARD
CARD
reader
tape
disk
SYSRDR
SYS000
*
 
ADACHK parameters   reader SYSIPT  
ADARUN messages   printer SYSLST Messages and Codes
ADACHK messages   printer SYS009 Messages and Codes

* Any programmer logical unit may be used.

ADACHK JCS Example (z/VSE)

This section provides samples of z/VSE ADACHK JCS:

See Library and File Procedures for z/VSE Examples for descriptions of the z/VSE procedures (PROCs).

Example of ADACHK JCS Running Both Print and Check Functions

X $$ JOB JNM=ADACHKV,CLASS=A,DISP=D    
X $$ LST CLASS=A,DISP=D                                                 
// JOB ADACHKV     EXECUTE THE ADABAS UTILITY ***CHK***                 
// OPTION LOG,PARTDUMP                                           
*                                                                 
*   ADACHK: Execute multiple print and check functions               
*                                                                   
*                                                                 
// EXEC PROC=ADAVVLIB                                          
// EXEC PROC=ADAVVFIL                                         
*                                                                    
* ******************************************************************    
*     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY           
* ******************************************************************    
// EXEC ADARUN,SIZE=ADARUN                                       
ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY              
$*                                                               
ADACHK ICHECK                                                        
ADACHK DSCHECK FILE=1,2                                            
ADACHK DSCHECK FILE=17                                             
ADACHK VALIDATE FILE=3                                              
ADACHK ACCHECK                                                          
ADACHK CHECK FILE=21                                                    
ADACHK FSTPRINT                                                         
ADACHK FCBPRINT FILE=1                                                  
$*                                                                     
$&                                                                    
X $$ EOJ                                                                

Example of ADACHK JCS Running Only Print Functions

X $$ JOB JNM=ADACHKP,CLASS=A,DISP=D                    
X $$ LST CLASS=A,DISP=D                                                 
// JOB ADACHKP     EXECUTE THE ADABAS UTILITY ***CHK***               
// OPTION LOG,PARTDUMP                                                
*                                                                     
*   ADACHK: PRINT GCB followed by PPTPRINT and ASSO and DATA         
*      prints of various RABNs                                          
*                                                                       
// EXEC PROC=ADAVVLIB                                        
// EXEC PROC=ADAVVFIL                                         
*                                                                       
* ******************************************************************    
*     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY           
* ******************************************************************   
// EXEC ADARUN,SIZE=ADARUN                                              
ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY             
$*                                                                      
ADACHK GCBPRINT                                                         
ADACHK PPTPRINT                                                         
ADACHK ASSOPRINT RABN=1000-1002                                        
ADACHK ASSOPRINT RABN=2006                                              
ADACHK DATAPRINT RABN=25006-25007                                       
ADACHK DATAPRINT RABN=17000-17999                                       
$*                                                                     
$&                                                                      
X $$ EOJ                                                                

Example of ADACHK JCS Running Only the ADACHK CHECK Function

X $$ JOB JNM=ADACHKC,CLASS=A,DISP=D                           
X $$ LST CLASS=A,DISP=D                                                 
// JOB ADACHKC     EXECUTE THE ADABAS UTILITY ***CHK***                 
// OPTION LOG,PARTDUMP                                                 
*                                                                      
*   ADACHK: CHECK                                                      
*      Check of entire database                                       
*                                                                     
// EXEC PROC=ADAVVLIB                                          
// EXEC PROC=ADAVVFIL                                          <
*                                                                       
* ******************************************************************    
*     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY            
* ******************************************************************    
// EXEC ADARUN,SIZE=ADARUN                                           
ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY              
$*                                                             
ADACHK CHECK                                                   
$*                                                                    
$&                                                                    
X $$ EOJ