Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

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

This document covers the following topics:


BS2000

Data set 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
ADAREP messages SYSLST DDDRUCK   Messages and Codes

ADAREP JCL Example (BS2000)

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

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

Top of page

OS/390 or z/OS

Data set DD 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 DDCARD reader Operations
ADAREP parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADAREP messages DDDRUCK printer Messages and Codes

ADAREP JCL Example (OS/390 or z/OS)

All Functions

//ADAREP    JOB
//*
//*   ADAREP: ALL FUNCTIONS
//*
//REP      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
//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 MVSJOBS 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.Vvrs.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 DATA SET
//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 MVSJOBS data set for this example.

Top of page

VM/ESA or z/VM

Data set DD Name Medium Additional 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 DDCARD disk/ terminal/ reader Operations
ADAREP parameters DDKARTE disk/ terminal/ reader  
ADARUN messages DDPRINT disk/ terminal/ printer Messages and Codes
ADAREP messages DDDRUCK disk/ terminal/ printer Messages and Codes

ADAREP Example (VM/ESA or z/VM)

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDPRINT,DSN=ADAREP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY                                                     

DATADEF DDDRUCK,DSN=ADAREP.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNREP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAREP.CONTROL,MODE=A
ADARUN   
 

Contents of RUNREP CONTROL A1

ADARUN PROG=ADAREP,DEVICE=dddd,DB=yyyyy

Contents of ADAREP CONTROL A1

ADAREP CPLIST                                       

Top of page

VSE/ESA

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
ADAREP report   printer SYS009  

Note:
Any programmer logical unit may be used.

ADAREP JCS Example (VSE/ESA)

See Procedures for VSE/ESA Examples for descriptions of the VSE/ESA 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.

Top of page