JCL/JCS Requirements and Examples

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

This document covers the following topics:

Collation with User Exit

If a collation user exit is to be used during ADAVAL execution, the ADARUN CDXnn parameter must be specified for the utility run.

Used in conjunction with the universal encoding subsystem (UES), the format of the collation descriptor user exit parameter is:

graphics/util_adarun_cdxnn.png

where

nn is the number of the collation descriptor exit, a two-digit decimal integer in the range 01-08 inclusive.
exit-name is the name of the user routine that gets control at the collation descriptor exit; the name can be up to 8 characters long.

Only one program may be specified for each collation descriptor exit. Up to 8 collation descriptor exits may be specified (in any order). See the Adabas DBA Reference documentation for more information.

Sorting Large Files

When sorting large files, performance can be improved if either the sort data set occupies two volumes or two sort data sets are specified. Both data sets must be on the same device type (SORTDEV parameter), and each must be exactly half the size specified by the SORTSIZE parameter.

BS2000

File Link Name Storage More Information
Associator DDASSORn disk  
Data Storage DDDATARn disk  
Work DDWORKRn disk  
Sort area DDSORTR1 disk  
Sort area DDSORTR2 disk Split the sort area across two volumes when using large files (see note)
Temp area DDTEMPR1 disk  
ADARUN parameters SYSDTA/DDCARD   Operations
ADAVAL parameters SYSDTA/DDKARTE    
ADARUN messages SYSOUT/ DDPRINT   Messages and Codes
ADAVAL messages SYSLST/ DDDRUCK   Messages and Codes
Rejected data DDFEHL tape/disk  

ADAVAL JCL Example (BS2000)

In SDF Format:

/.ADAVAL SET-LOGON-PARAMETERS
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A V A L ALL FUNCTIONS
 /REMARK *
 /DELETE-FILE VAL.FEHL       
 /SET-JOB-STEP
 /CREATE-FILE VAL.FEHL,PUB(SPACE=(48,48))
 /SET-JOB-STEP
 /ASS-SYSLST L.VAL     
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDSORTR1,ADAyyyyy.SORT
 /SET-FILE-LINK DDTEMPR1,ADAyyyyy.TEMP
 /SET-FILE-LINK DDFEHL1,VAL.FEHL
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAVAL,DB=yyyyy,IDTNAME=ADABAS5B
 ADAVAL VALIDATE FILE=30,SORTSIZE=3,TEMPSIZE=5
 /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

In ISP Format:

/.ADAVAL LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A V A L ALL FUNCTIONS
 /REMARK *
 /SYSFILE SYSLST=L.VAL
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.TEMP ,LINK=DDTEMPR1
 /FILE ADAyyyyy.SORT ,LINK=DDSORTR1
 /FILE ADA.MOD,LINK=DDLIB
 /FILE VAL.FEHL,LINK=DDFEHL,SPACE=(48,48)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAVAL,DB=yyyyy,IDTNAME=ADABAS5B
 ADAVAL VALIDATE FILE=30,SORTSIZE=3,TEMPSIZE=5
 /LOGOFF NOSPOOL

z/OS

Data Set DD Name Storage More Information
Associator DDASSORn disk  
Data Storage DDDATARn disk  
Work DDWORKRn disk  
Sort area DDSORTR1 disk  
Sort area DDSORTR2 disk Split the sort area across two volumes when using large files (see note)
Temp area DDTEMPR1 disk  
ADARUN parameters DDCARD reader Operations
ADAVAL parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADAVAL messages DDDRUCK printer Messages and Codes
Rejected data DDFEHL tape/disk  

ADAVAL JCL Example (z/OS)

//ADAVAL    JOB                                        
//*                                                                    
//*   ADAVAL: VALIDATE DATA BASE                                       
//*                                                                    
//VAL      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
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDSORTR1  DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.SORTR1 <=== SORT      
//DDTEMPR1  DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.TEMPR1 <=== TEMP      
//DDDRUCK   DD   SYSOUT=X                                              
//DDPRINT   DD   SYSOUT=X                                              
//SYSUDUMP  DD   SYSOUT=X                                              
//DDCARD    DD   *                                                     
ADARUN PROG=ADAVAL,SVC=xxx,DEVICE=dddd,DBID=yyyyy                      
/*                                                                     

//DDKARTE   DD   *                                     
ADAVAL VALIDATE FILE=1,TEMPSIZE=ttt,SORTSIZE=sss                       
/*

Refer to ADAVAL in the JOBS data set for this example.

z/VSE

File File Name Storage Logical Unit More Information
Associator ASSORn disk    
Data Storage DATARn disk    
Work WORKRn disk    
Sort area SORTR1 disk    
Temp area TEMPR1 disk*    
ADARUN parameters -
CARD
CARD 		reader
tape
disk 		SYSRDR
SYS000
* 		 
ADAVAL parameters - reader SYSIPT Utilities
ADARUN messages - printer SYSLST Messages and Codes
ADAVAL messages - printer SYS009 Messages and Codes
Rejected data FEHL tape
disk 		SYS014
* 		 

* Any programmer logical unit can be used.

ADAVAL JCS Example (z/VSE)

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

* $$ JOB JNM=ADAVAL,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAVAL
*       VALIDATE DATABASE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAVAL,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAVAL VALIDATE FILE=1,TEMPSIZE=ttt,SORTSIZE=sss
/*
/&
* $$ EOJ

Refer to member ADAVAL.X for this example