JCL/JCS Requirements and Examples

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

This document covers the following topics:

BS2000
z/OS
z/VSE

BS2000

File	Link Name	Storage	More Information
Associator	DDASSORn	disk
Data Storage	DDDATARn	disk
Save tape	DDSAVE	tape/ disk	Only with SAVETAPE
Protection log	DDPLOG	tape/ disk	Option with online save tape
ADARUN parameters	SYSDTA/ DDCARD		Operations
ADAREP parameters	SYSDTA/ DDKARTE
ADARUN messages	SYSOUT DDPRINT		Messages and Codes
Time zone file	TZINFO	disk	Required when database has default time zone
ADAREP 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.
ADAREP XML summary report	DDXMLR1	tape/disk	Only necessary when the OUTPUT or ACODE parameters are specified. This data is just a standard BS2000 file.
ADAREP 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 is just a standard BS2000 file.

ADAREP JCL Example (BS2000)

In SDF Format:

Here is a general example, in SDF format.

/.ADAREP LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A R E P ALL FUNCTIONS
 /REMARK *
 /ASS-SYSLST L.REP
 /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
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAREP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAREP CPLIST
 /LOGOFF SYS-OUTPUT=DEL

Here is an example showing the use of OUTPUT='XML,UTF8'.

/.ADAREP LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A R E P OUTPUT='XML,UTF8'
/REMARK *
/ASS-SYSLST L.REP
/DEL-FILE L.REP.XMLR1                                       
/SET-JOB-STEP
/CRE-FI L.REP.XMLR1,PUB() 
/DEL-FILE L.REP.XMLR2                                       
/SET-JOB-STEP
/CRE-FI L.REP.XMLR2,PUB() 
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK    BLSLIB00,ADABAS.MOD
/SET-FILE-LINK    BLSLIB01,APSVrs.LIB
/CALL-PROCEDURE (ADABAS.SRC,LMSLINKLIB),(LNK-NAME=BLSLIIB03)
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
/SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
/SET-FILE-LINK    DDXMLR1,L.REP.XMLR1 
/SET-FILE-LINK    DDXMLR2,L.REP.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)  
ADARUN PROG=ADAREP,DB=yyyyy,IDTNAME=ADABAS5B
ADAREP CPLIST,OUTPUT='XML,UTF8'
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAREP LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A R E P ALL FUNCTIONS
 /REMARK *
 /SYSFILE SYSLST=L.REP
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAREP,DB=yyyyy,IDTNAME=ADABAS5B
 ADAREP CPLIST
 /LOGOFF NOSPOOL

z/OS

Data Set	DD Name	Storage	More Information
Associator	DDASSORn	disk
Data Storage	DDDATARn	disk
Work Storage	DDWORKR1	disk	Optional, required only when ADARUN parameter ENCRYPTION=YES is in use
Save tape	DDSAVE	tape/ disk	Only with SAVETAPE
Protection log	DDPLOG	tape/ disk	Option with online save tape
ADARUN parameters	DDCARD	reader	Operations
ADAREP parameters	DDKARTE	reader
ADARUN messages	DDPRINT	printer	Messages and Codes
Time zone file	TZINFO	disk	Required when database has default time zone
ADAREP messages	DDDRUCK	printer	Messages and Codes
ADAREP 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.
ADAREP 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.

ADAREP JCL Example (z/OS)

All Functions

//ADAREP    JOB
//*
//*   ADAREP: ALL FUNCTIONS
//*
//REP      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=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAREP    CPEXLIST
/*

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

Report from a Save Tape

//ADAREPS   JOB
//*
//*   ADAREP: REPORT FROM A SAVE TAPE
//*
//REP      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
//DDSAVE    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.SAVE   <=== SAVE DATASET
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAREP    REPORT SAVETAPE,NOCOUNT
/*

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

Report with OUTPUT='XML,UTF8'

//ADAREPX   JOB                                                        
//*                                                                    
//*   ADAREP: Report from a save tape, XML in UTF8 Format              
//*                                                                    
//REP      EXEC  PGM=ADARUN                                            
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.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         
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.WORKR1 <=== WORK         
//DDSAVE    DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.SAVE   <=== SAVE DATASET 
//DDDRUCK   DD   SYSOUT=X                                              
//DDPRINT   DD   SYSOUT=X                                              
//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=ADAREP,MODE=MULTI,SVC=XXX,DEVICE=DDDD,DBID=YYYYY           
/*                                                                     
//DDKARTE   DD   *                                                     
ADAREP    REPORT CPEXLIST,OUTPUT='XML,UTF8'                            
/*

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

z/VSE

Data Set	Symbolic Name	Storage	Logical Unit	More Information
Associator	ASSORn	disk
Data Storage	DATARn	disk
Save tape	SAVE	tape disk	SYS010 see note	Only with SAVETAPE
Protection log	PLOG	tape disk	SYS011 see note	Option with online save tape
ADARUN parameters	SYSRDR CARD CARD	reader tape disk	SYSRDR SYS000 see note	Operations
ADAREP parameters		reader	SYSIPT
ADARUN messages		printer	SYSLST	Messages and Codes
Time zone file	TZINFO	disk		Required when database has default time zone
ADAREP report		printer	SYS009
ADAREP XML 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.
ADAREP 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. The XML dataset will be created as a sequential file, with record format VB (variable blocked) and a maximum record length of 512.

Note:
Any programmer logical unit may be used.

ADAREP JCS Example (z/VSE)

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

All Functions

* $$ JOB JNM=ADAREP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAREP
*       ALL FUNCTIONS
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAREP    CPEXLIST
/*
/&
* $$ EOJ

Refer to member ADAREP.X for this example.

Report from a Save Tape

* $$ JOB JNM=ADAREPS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAREPS
*       REPORT FROM A SAVE TAPE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYSTEN,TAPE
// PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
// TLBL SAVE,'EXAMPLE.DByyyyy.SAVE'
// MTC REW,SYS010
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAREP    REPORT SAVETAPE,NOCOUNT
/*
/&
* $$ EOJ

Refer to member ADAREPS.X for this example.