JCL Requirements and Examples

This section describes the job control information required to run ADADRU on the z/OS operating system and shows examples of job streams.

This document covers the following topics:


Requirements to Run ADADRU JCL

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 Examples

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               
/*                                                             
//