Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAPRI 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

Dataset Link Name Storage More Information
Dataset containing blocks to print DDASSORn
DDDATARn
DDWORKR1
DDWORKR4
DDTEMPR1
DDSORTRn
DDCLOGRn
DDPLOGRn
DDDSIMR1
disk
disk
disk
disk
disk
disk
disk
disk
disk
Associator Data Storage* Work* Temp Sort Multiple command log Multiple protection log DSIM dataset
Recovery log (RLOG) DDRLOGR1 disk Required when using ADARAI.
ADARUN parameters SYSDTA/ DDCARD reader Operations
ADAPRI parameters SYSIPT/ DDKARTE reader  
ADARUN messages SYSOUT printer Messages and Codes
ADAPRI messages SYSLST printer Messages and Codes

* When printing blocks from Data Storage or Work, the link name for the Associator must also be present.

ADAPRI JCL Example (BS2000)

In SDF Format:

/.ADAPRI LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A P R I ALL FUNCTIONS
 /REMARK *
 /ASS-SYSLST L.PRI
 /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=ADAPRI,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPRI DATAPRI FROMRABN=27,TORABN=34
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAPRI LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A P R I ALL FUNCTIONS
 /REMARK *
 /SYSFILE SYSLST=L.PRI
 /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=ADAPRI,DB=yyyyy,IDTNAME=ADABAS5B
 ADAPRI DATAPRI FROMRABN=27,TORABN=34
 /LOGOFF NOSPOOL

Top of page

OS/390 or z/OS

Dataset DD Name Storage More Information
Dataset containing the blocks print DDASSORn
DDDATARn
DDWORKR1
DDWORKR4
DDTEMPR1
DDSORTR1
DDCLOGRn
DDPLOGRn
DDDSIMR1
disk
disk
disk
disk
disk
disk
disk
disk
disk
Associator Data Storage* Work* Temp Sort Multiple command log Multiple protection log DSIM dataset
Recovery log (RLOG) DDRLOGR1 disk Required when using ADARAI.
ADARUN parameters DDCARD reader Operations
ADAPRI parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADAPRI messages DDDRUCK printer Messages and Codes

* When printing blocks from Data Storage or Work, the DD statement for the Associator must also be present.

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

//ADAPRI    JOB
//*
//*   ADAPRI:
//*      MAINTENANCE PRINT
//*
//PRI      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
//DDTEMPR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.TEMPR1 <=== TEMP
//DDSORTR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.SORTR1 <=== SORT
//DDPLOGR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR1 <=== PLOG 1
//DDPLOGR2  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR2 <=== PLOG 2
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAPRI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAPRI ASSOPRI DEVICE=eeee,FROMRABN=1,TORABN=1
/*

Refer to ADAPRI in the MVSJOBS dataset for this example.

Top of page

VM/ESA or z/VM

Dataset DD Name Storage More Information
Dataset containing the blocks to print DDASSORn
DDDATARn
DDWORKR1
DDWORKR4
DDTEMPR1
DDSORTR1
DDCLOGRn
DDPLOGRn
DDDSIMR1
disk
disk
disk
disk
disk
disk
disk
disk
disk
Associator Data Storage* Work* Temp Sort Multiple command log Multiple protection log DSIM dataset
Recovery log (RLOG) DDRLOGR1 disk Required when using ADARAI.
ADARUN parameters DDCARD disk/ terminal/ reader Operations
ADAPRI parameters DDKARTE disk/ terminal/ reader  
ADARUN messages DDPRINT disk/ terminal/ printer Messages and Codes
ADAPRI messages DDDRUCK disk/ terminal/ printer Messages and Codes

* When printing blocks from Data Storage or Work, the DD statement for the Associator must also be present.

ADAPRI Example (VM/ESA or z/VM)

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDPRINT,DSN=ADAPRI.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAPRI.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNPRI.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAPRI.CONTROL,MODE=A
ADARUN     

Contents of RUNPRI CONTROL A1:

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

Contents of ADAPRI CONTROL A1:

ADAPRI DATAPRI FROMRABN=27,TORABN=34                      

Top of page

VSE/ESA

File Symbolic Name Storage More Information
Files containing the blocks to be printed ASSORn
DATARn
WORKR1
TEMPR1
SORTR1
CLOGRn
PLOGRn
SIMR1
disk
disk
disk
disk
disk
disk
disk
disk
Associator Data Storage* Work* Temp Sort Multiple command log Multiple protection log DSIM dataset
Recovery log (RLOG) RLOGR1 disk Required when using ADARAI
ADARUN messages SYSLST printer Messages and Codes
ADAPRI messages SYS009 printer Messages and Codes
ADARUN parameters SYSRDR CARD reader tape/ disk Operations
ADAPRI parameters SYSIPT reader  

* When printing blocks from Data Storage or Work, the JCS statement for the Associator must also be present.

ADAPRI JCS Example (VSE/ESA)

See Procedures for VSE/ESA Examples for descriptions of the VSE/ESA procedures (PROCs).

* $$ JOB JNM=ADAPRI,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAPRI
*       MAINTENANCE PRINT
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAPRI,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAPRI ASSOPRI DEVICE=eeee,FROMRABN=1,TORABN=1
/*
/&
* $$ EOJ

Refer to member ADAPRI.X for this example.

Top of page