JCL/JCS Requirements and Examples

This section describes the job control information required to run ADADRU 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
Associator DDASSORn or DDASSOnn disk  
Data Storage DDDATARn or DDDATAnn disk  
ADARUN parameters SYSDTA/ DDCARD   Operations
ADADRU parameters SYSDTA/ DDKARTE    
ADADRU detail output DDDETAIL disk  
ADARUN messages SYSOUT DDPRINT   Messages and Codes
ADADRU messages SYSLST DDDRUCK   Messages and Codes
Adabas UES code objects DDECSOJ disk Required for universal encoding support (UES) with the OUTPUT='XML, UTF8' parameter setting.
ADADRU XML output summary report DDXMLR1 tape/disk Only necessary when the OUTPUT or ACODE parameters are specified. This data is just a standard BS2000 file.
ADADRU XML output detailed report DDXMLR2 tape/disk Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. This data is just a standard BS2000 file.

ADADRU JCL Example (BS2000)

Refer to sample members ADADRU and ADADRUU for these examples.

General Report (Sample Member ADADRU)

/.ADADRU BEGIN-PROC C
/ASS-SYSOUT L.DRU
/REMOVE-FILE-LINK *
/SET-JOB-STEP
/MOD-TEST DUMP=YES
/REMARK *
/REMARK *   A D A D R U    MOST FUNCTIONS
/REMARK *
/ASS-SYSLST L.DRU.L
/DEL-FILE L.DRU.DETAIL
/SET-JOB-STEP
/CRE-FI L.DRU.DETAIL,PUB()
/DEL-FILE L.DRU.XMLR1
/SET-JOB-STEP
/CRE-FI L.DRU.XMLR1,PUB()
/DEL-FILE L.DRU.XMLR2
/SET-JOB-STEP
/CRE-FI L.DRU.XMLR2,PUB()
/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    DDDETAIL,L.DRU.DETAIL
/SET-FILE-LINK    DDXMLR1,L.DRU.XMLR1
/SET-FILE-LINK    DDXMLR2,L.DRU.XMLR2
/ASS-SYSDTA *SYSCMD
/START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
ADARUN PROG=ADADRU,DB=99
*
*    ADADRU CONTROL STATEMENTS
*    PRINT DETAILED REPORT FOR FILE 5
*
ADADRU NOUSERABEND,OUTPUT='XML'
ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL
/ASS-SYSDTA *PRIM
/ASS-SYSLST *PRIM
/ASS-SYSOUT *PRIM
/END-PROC

Report with OUTPUT='XML,UTF8' (Sample Member ADADRUU)

/.ADADRU BEGIN-PROC C
/ASS-SYSOUT L.DRU
/REMOVE-FILE-LINK *
/SET-JOB-STEP
/MOD-TEST DUMP=YES
/REMARK *
/REMARK *   A D A D R U    FOR OUTPUT='XML,UTF8'
/REMARK *
/ASS-SYSLST L.DRU.L
/DEL-FILE L.DRU.DETAIL
/SET-JOB-STEP
/CRE-FI L.DRU.DETAIL,PUB()
/DEL-FILE L.DRU.XMLR1
/SET-JOB-STEP
/CRE-FI L.DRU.XMLR1,PUB()
/DEL-FILE L.DRU.XMLR2
/SET-JOB-STEP
/CRE-FI L.DRU.XMLR2,PUB()
/SET-FILE-LINK    DDLIB,ADABAS.MOD
/SET-FILE-LINK    BLSLIB00,ADABAS.MOD
/SET-FILE-LINK BLSLIB01,APSVRS.LIB
/CALL-PROCEDURE (ADABAS.SRC,LMSLINKLIB),(LNK-NAME=BLSLIIB02)
/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    DDDETAIL,L.DRU.DETAIL
/SET-FILE-LINK    DDXMLR1,L.DRU.XMLR1
/SET-FILE-LINK    DDXMLR2,L.DRU.XMLR2
/SET-FILE-LINK    DDECSOJ,ADABAS.EC00
/ASS-SYSDTA *SYSCMD
/START-PROG *M(E=ADARUN,L=ADABAS.MOD),PR-MO=ANY,R-M=*A(ALT=Y,-
/ LOAD-INF=*REF,UNRES=*DELAY,MESSAGE=*ERROR)
/START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
ADARUN PROG=ADADRU,DB=99
*
*    ADADRU CONTROL STATEMENTS
*    PRINT DETAILED REPORT FOR FILE 5
*
ADADRU OUTPUT='XML,UTF8'
ADADRU SPACEUSAGE FILE=5,PFILESPACE=DETAIL
/ASS-SYSDTA *PRIM
/ASS-SYSLST *PRIM
/ASS-SYSOUT *PRIM
/END-PROC

z/OS

Data Set DD Name Storage More Information
Associator DDASSORn or DDASSOnn disk  
Data Storage DDDATARn or DDDATAnn disk  
ADARUN parameters DDCARD reader Operations
ADADRU parameters DDKARTE reader  
ADADRU detail output DDDETAIL disk  
ADARUN messages DDPRINT printer Messages and Codes
ADADRU messages DDDRUCK printer Messages and Codes
ADADRU XML output summary report DDXMLR1 tape/disk Only necessary when the OUTPUT or ACODE parameters are specified. The XML dataset will be created as a sequential file, with record format VB (variable blocked) and a maximum record length of 512.
ADADRU XML output detailed report DDXMLR2 tape/disk Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. The XML dataset will be created as a sequential file, with record format VB (variable blocked) and a maximum record length of 512.

ADADRU JCL Example (z/OS)

Refer to members ADADRU and ADADRUU in the JOBS data set for these examples.

General Report (Sample Member ADADRU)

//ADADRU    JOB
//*
//*   ADADRU:
//*      Print File Reports
//*
//DRU       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.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   <=== Summary Reports and ADADRU Messages
//DDPRINT   DD   SYSOUT=X   <=== ADARUN Messages
//DDDETAIL  DD   SYSOUT=X   <=== Detail Reports
//DDXMLR1   DD   SYSOUT=X,DCB=(LRECL=512,RECFM=VB)
//DDXMLR2   DD   SYSOUT=X,DCB=(LRECL=512,RECFM=VB)
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADADRU,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
*
*    ADADRU Control Statements
*    Print Detailed Report for File 5
*
ADADRU NOUSERABEND,OUTPUT='XML'
*
ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL
//

Report with OUTPUT='XML,UTF8' (Sample Member ADADRUU)

//ADADRU    JOB                                                     
//*                                                                 
//*   ADADRU:                                                       
//*      Print File Reports, XML in UTF8 Format                     
//*                                                                 
//DRU       EXEC PGM=ADARUN                                         
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD     <=== ADABAS LOAD 
//          DD   DISP=SHR,DSN=SAG.ICSvrs.L0nn      <=== Code pages  
//*                                                                 
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1    <=== ASSO   
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1    <=== DATA   
//*                                                                 
//DDDRUCK   DD   SYSOUT=X   <=== Summary Reports and ADADRU messages
//DDPRINT   DD   SYSOUT=X   <=== ADARUN Messages                    
//DDDETAIL  DD   SYSOUT=X   <=== Detail Reports                     
//DDXMLR1   DD   SYSOUT=X,DCB=(LRECL=512,RECFM=VB)                  
//DDXMLR2   DD   SYSOUT=X,DCB=(LRECL=512,RECFM=VB)                  
//SYSUDUMP  DD   SYSOUT=X                                           
//DDCARD    DD   *                                                  
ADARUN PROG=ADADRU,SVC=xxx,DEVICE=dddd,DBID=yyyyy                   
/*                                                                  
//DDKARTE   DD   *                                                  
*                                                                   
*    ADADRU Control Statements                                      
*    Print Detailed Report for File 5                               
*                                                                   
ADADRU NOUSERABEND,OUTPUT='XML,UTF8'                                
*                                                                   
ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1  
ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL               
/*                                                             
//

z/VSE

Data Set Symbolic Name Storage Logical Unit More Information
Associator ASSORn disk *  
Data Storage DATARn disk *  
ADARUN parameters SYSRDR card
tape
disk
reader

SYSRDR *
 
SYS000   * Adabas Operations Manual
ADADRU parameters   reader SYSIPT  
ADARUN messages   printer SYSLST Adabas Messages and Codes Manual
ADADRU messages   printer SYS009 Adabas Messages and Codes Manual
ADADRU detailed report DETAIL tape/disk   Necessary for detailed output only
ADADRU XML summary report DDXMLR1 tape/disk   Only necessary when the OUTPUT or ACODE parameters are specified. This data must be defined with DCB parameters RECFM=VB,LRECL=512.
ADADRU XML detailed report DDXMLR2 tape/disk   Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. This data must be defined with DCB parameters RECFM=VB,LRECL=512.

* Any programmer logical unit may be used.

ADADRU JCS Example (z/VSE)

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

General Report

Refer to member ADADRU.X for this example.

* $$ JOB JNM=ADADRU,CLASS=A,DISP=D                       
* $$ LST CLASS=A,DISP=D                                  
// JOB ADADRU                                            
// OPTION LOG,PARTDUMP                                   
*                                                        
*   ADADRU:                                              
*      Print File Reports                                
*                                                        
// EXEC PROC=ADAVVLIB                                    
// EXEC PROC=ADAVVFIL                                    
*                                                        
// DLBL DDXMLR1,'ADABAS.ADADRU.XMLR1',,SD     XMLR1      
// EXTENT SYS015,,,,SSSSS,NNNNN                          
// ASSGN SYS015,DISK,VOL=DISK01,SHR                      
// DLBL DDXMLR2,'ADABAS.ADADRU.XMLR2',,SD     XMLR2      
// EXTENT SYS016,,,,SSSSS,NNNNN                          
// ASSGN SYS016,DISK,VOL=DISK02,SHR                      
// DLBL DETAIL,'ADABAS.ADADRU.DETAIL',,SD   Detail Report
// EXTENT SYS017,,,,SSSSS,NNNNN                                
// ASSGN SYS017,DISK,VOL=DISK03,SHR                            
*                                                              
* *************************************************************
*     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY   
* *************************************************************
// EXEC ADARUN,SIZE=ADARUN                                     
ADARUN PROG=ADADRU,MODE=MULTI,SVC=XXX,DEVICE=NNNN,DBID=YYY     
/*                                                             
*                                                              
*    ADADRU Control Statements                                 
*    Print Detailed Report for File 5                          
*                                                              
ADADRU NOUSERABEND,OUTPUT='XML'                                
*                                                              
ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1  
ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL               
/*                                                             
/&  
* $$ EOJ 

Report with OUTPUT='XML,UTF8'

* $$ JOB JNM=ADADRU,CLASS=A,DISP=D                       
* $$ LST CLASS=A,DISP=D                                  
// JOB ADADRU                                            
// OPTION LOG,PARTDUMP                                   
*                                                        
*   ADADRU:                                              
*      Print File Reports, XML in UTF8 Format            
*                                                        
// EXEC PROC=ADAVVLIB                                    
// EXEC PROC=ADAVVFIL                                    
*                                                        
/* --- ECS SUBLIBS -----------------                     
// DLBL  DDECSOJ,'ADABAS.VVRS.DOSLC01'                   
// EXTENT SYS018                                         
// ASSGN SYS018,DISK,VOL=VVVVVV,SHR                      
/* --- APS ENVIRONMENT VARIABLES ---                     
// DLBL  ENVVARS,'SYSIPT'                                
/* ---------------------------------                     
*                                                    
*   ADADRU:                                          
*      Print File Reports, XML in UTF8 Format        
*                                                    
// EXEC PROC=ADAVVLIB                                
// EXEC PROC=ADAVVFIL                                
*                                                    
/* --- ECS SUBLIBS -----------------                 
// DLBL  DDECSOJ,'ADABAS.VVRS.DOSLC01'               
// EXTENT SYS018                                     
// ASSGN SYS018,DISK,VOL=VVVVVV,SHR                  
/* --- APS ENVIRONMENT VARIABLES ---                 
// DLBL  ENVVARS,'SYSIPT'                            
/* ---------------------------------                 
// DLBL DDXMLR1,'ADABAS.ADADRU.XMLR1',,SD     XMLR1  
// EXTENT SYS015,,,,SSSSS,NNNNN                      
// ASSGN SYS015,DISK,VOL=DISK01,SHR                  
// DLBL DDXMLR2,'ADABAS.ADADRU.XMLR2',,SD     XMLR2  
// EXTENT SYS016,,,,SSSSS,NNNNN
// ASSGN SYS016,DISK,VOL=DISK02,SHR                          
// DLBL DETAIL,'ADABAS.ADADRU.DETAIL',,SD   Detail Report    
// EXTENT SYS017,,,,SSSSS,NNNNN                              
// ASSGN SYS017,DISK,VOL=DISK03,SHR                          
*                                                            
* ***********************************************************
*     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY 
* ***********************************************************
// EXEC ADARUN,SIZE=ADARUN                                   
ADARUN PROG=ADADRU,MODE=MULTI,SVC=XXX,DEVICE=NNNN,DBID=YYY   
/*                                                           
*                                                            
*    ADADRU Control Statements                               
*    Print Detailed Report for File 5                        
*                                                            
ADADRU NOUSERABEND,OUTPUT='XML,UTF8'                         
*                                                            
ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL                                   
/*                                                      
  SYSTEM_ID=NNNNNNNN                                    
  ENVIRONMENT_VARIABLES=DD:ENVVARS OR ALTERNATVELY      
  ENVIRONMENT_VARIABLES=/LIBRARY/SUBLIBRARY/MEMBER.TYPE 
/*                                                      
/&                                                      
* $$ EOJ                                                  

Refer to member ADADRUU.X for this example