Version 8.2.5
 —  Utilities  —

JCL/JCS Requirements and Examples

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

This document covers the following topics:


z/OS

Data Set DD Name Storage More Information
Associator DDASSORn disk Not required if the NOPPT parameter is specified
Work DDWORKRn disk Multiple work data sets must be provided for a cluster nucleus
ADARUN parameters DDCARD reader Operations
ADAWRK parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADAWRK messages DDDRUCK printer Messages and Codes

ADAWRK JCL Examples (z/OS)

The following example produces a Summary report. Refer to member ADAWRKJ in the JOBS data set for this example.

//ADAWRK    JOB
//*
//*   ADAWRK: ALL FUNCTIONS
//*
//WRK      EXEC  PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAWRK    SUMMARY=YES
/*

The following example will produce a Summary and Transaction report. The Transaction report will provide a full report of all of the transactions that are on the Work data sets provided. Refer to member ADAWRKT in the JOBS data set for this example.

//ADAWRK    JOB
//*
//*   ADAWRK: PRINT ALL RELEVANT TRANSACTIONS ON WORK
//*
//WRK      EXEC  PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAWRK    TRANSACTIONS=FULL
/*

The following example produces a Summary, Transaction, and File report, including a full report of all transactions that are on the Work data sets. However only Work data set records for files 1, 2, 3, 4, 5, and 10 will be processed and reported by the utility. In addition, note the absence of an Associator data set in the sample JCL -- this is due to the NOPPT parameter which specifies that no PPT should be used for the run, and therefore no Associator data set is required.

//ADAWRK    JOB
//*
//*   ADAWRK: PRINT ALL RELEVANT TRANSACTIONS ON WORK
//*
//WRK      EXEC  PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
//*
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   * 
 ADAWRK NOPPT
 ADAWRK FORCE=YES
 ADAWRK FILES=1-4,5,10
 ADAWRK TRANSACTIONS=FULL
 ADAWRK REPORTFILE=YES
/*

Top of page

z/VSE

File Symbolic Name Storage Logical Unit More Information
Associator ASSOR n disk * Not required if the NOPPT parameter is specified
Work WORKRn disk * Multiple work data sets must be provided for a cluster nucleus
ADARUN parameters   reader
tape
disk
SYSRDR
SYS000
*
Operations
ADAWRK parameters   reader SYSIPT  
ADARUN messages   printer SYSLST Messages and Codes
ADAWRK messages   printer SYS009 Messages and Codes

* Any programmer logical unit may be used.

ADAWRK JCL Examples (z/VSE)

The following example produces a Summary report. Refer to member ADAWRKJ.X for this example.

* $$ JOB JNM=ADAWRKJ,CLASS=A,DISP=D                                   
* $$ LST CLASS=A,DISP=D                                               
// JOB ADAWRKJ     EXECUTE THE ADABAS UTILITY ***WRK***               
// OPTION LOG,PARTDUMP                                                
*                                                                     
* ******************************************************************  
*       SAMPLE JOB STREAM TO USE THE ADABAS UTILITY ADAWRK            
*       PRINT SUMMARY REPORT                                          
* ******************************************************************  
// EXEC PROC=ADAVVLIB                                          <======
// EXEC PROC=ADAVVFIL                                          <======
*                                                                     
* ******************************************************************  
*     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY          
* ******************************************************************  
// EXEC ADARUN,SIZE=ADARUN                                            
ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy   <======
/*                                                                    
ADAWRK    SUMMARY=YES                                          <======
/*                                                                    
/&                                                                    
* $$ EOJ 

The following example will produce a full Transaction report. The Transaction report will provide a full report of all of the transactions that are on the Work data sets provided. Refer to member ADAWRKT.X for this example.

* $$ JOB JNM=ADAWRKT,CLASS=A,DISP=D                                   
* $$ LST CLASS=A,DISP=D                                               
// JOB ADAWRKT     EXECUTE THE ADABAS UTILITY ***WRK***               
// OPTION LOG,PARTDUMP                                                
*                                                                     
* ******************************************************************  
*       SAMPLE JOB STREAM TO USE THE ADABAS UTILITY ADAWRK            
*       PRINT ALL RELEVANT TRANSACTIONS ON WORK                       
* ******************************************************************  
// EXEC PROC=ADAVVLIB                                          <======
// EXEC PROC=ADAVVFIL                                          <======
*                                                                     
* ******************************************************************  
*     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY          
* ******************************************************************  
// EXEC ADARUN,SIZE=ADARUN                                            
ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy   <======
/*                                                                    
ADAWRK    TRANSACTIONS=FULL                                    <======
/*                                                                    
/&                                                                    
* $$ EOJ                                                              

Top of page

BS2000

Data Set Link Name Storage More Information
Associator DDASSORn disk  
Work DDWORKR1
DDWORKR4
disk  
ADARUN parameters SYSDTA/ DDCARD   Operations
ADALOD parameters SYSDTA/ DDKARTE    
ADARUN messages SYSOUT/ DDPRINT   ADALOD report, see also Messages and Codes
ADALOD messages SYSLST/ DDDRUCK   Messages and Codes

ADAWRK JCL Examples (BS2000)

/BEGIN-PROC C                                               
/MOD-TEST DUMP=YES                                          
/REMARK *                                                   
/REMARK *    ADAWRK: ALL FUNCTIONS                          
/REMARK *                                                   
/ASS-SYSLST L.WRKJ                                          
/ASS-SYSDTA *SYSCMD                                         
/SET-FILE-LINK   DDLIB,ADABAS.MOD                           
/SET-FILE-LINK    DDASSOR1,ADA99.ASSO                       
/SET-FILE-LINK    DDWORKR1,ADA99.WORK                       
/START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES) 
ADARUN PROG=ADAWRK,DB=99,MODE=MULTI                         
ADAWRK    SUMMARY=YES                                       
/ASS-SYSDTA *PRIM                                           
/ASS-SYSLST *PRIM                                           
/END-PROC                                                   

Top of page