
	Version 8.1.4	SEARCH INDEX CONTENTS \| PDF PAGE PDF BOOKS \| HOME UP PREV NEXT

— Utilities —

JCL/JCS Requirements and Examples

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

This document covers the following topics:

BS2000
z/OS
z/VM
VSE

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

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 (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.

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 (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

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

Note:
Any programmer logical unit may be used.

ADAREP JCS Example (VSE)

See Library and File Procedures for VSE Examples for descriptions of the 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.

SEARCH INDEX CONTENTS | PDF PAGE PDF BOOKS | HOME UP PREV NEXT