Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

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

Note:
When running with the optional Recovery Aid (RLOG), all temporary datasets must also be cataloged in the job control.

This document covers the following topics:


BS2000

Dataset Link Name Storage More Information
Associator DDASSORn disk datasets to be formatted
Data Storage DDDATARn    
Work DDWORKR1
DDWORKR4
   
Temp DDTEMPR1    
Sort DDSORTRn    
Multiple command logs DDCLOGRn    
Multiple protection logs DDPLOGRn    
Recovery log DDRLOGR1    
ADARUN parameters SYSDTA/ DDCARD   Operations
ADAFRM parameters SYSDTA/ DDKARTE    
ADARUN messages SYSOUT/ DDPRINT   Messages and Codes
ADAFRM messages SYSLST/ DDDRUCK   Messages and Codes

ADAFRM JCL Example (BS2000)

In SDF Format:

/.ADAFRM LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A F R M ALL FUNCTIONS
/REMARK *

/ASS-SYSLST L.FRM
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,OPEN-MODE=OUTIN,BUFF-LEN=STD(1)
/SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDTEMPR1,ADAyyyyy.TEMP,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDSORTR1,ADAyyyyy.SORT,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,OPEN-MODE=OUTIN,BUFF-LEN=STD(2)
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B
ADAFRM ASSOFRM SIZE=100
ADAFRM DATAFRM SIZE=200
ADAFRM WORKFRM SIZE=40
ADAFRM SORTFRM SIZE=25
ADAFRM TEMPFRM SIZE=10
ADAFRM PLOGFRM SIZE=40,NUMBER=1
ADAFRM PLOGFRM SIZE=40,NUMBER=2
ADAFRM RLOGFRM SIZE=10
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAFRM LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A F R M ALL FUNCTIONS
/REMARK *
/SYSFILE SYSLST=L.FRM
/FILE ADA.MOD,LINK=DDLIB
/FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,OPEN=OUTIN,BLKSIZE=(STD,1)
/FILE ADAyyyyy.DATA ,LINK=DDDATAR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.WORK ,LINK=DDWORKR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.TEMP ,LINK=DDTEMPR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.SORT ,LINK=DDSORTR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.PLOGR1,LINK=DDPLOGR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.PLOGR2,LINK=DDPLOGR2,OPEN=OUTIN,BLKSIZE=(STD,2)
/FILE ADAyyyyy.RLOGR1,LINK=DDRLOGR1,OPEN=OUTIN,BLKSIZE=(STD,2)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B
ADAFRM ASSOFRM SIZE=100
ADAFRM DATAFRM SIZE=200
ADAFRM WORKFRM SIZE=40

ADAFRM SORTFRM SIZE=25
ADAFRM TEMPFRM SIZE=10
ADAFRM PLOGFRM SIZE=40,NUMBER=1
ADAFRM PLOGFRM SIZE=40,NUMBER=2
ADAFRM RLOGFRM SIZE=10
/LOGOFF NOSPOOL

Top of page

OS/390 or z/OS

Dataset DD Name Storage More Information
Associator DDASSORn disk datasets to be formatted
Data Storage DDDATARn    
Work DDWORKR1
DDWORKR4
   
Temp DDTEMPR1    
Sort DDSORTRn    
Multiple command logs DDCLOGRn    
Multiple protection logs DDPLOGRn    
Recovery log DDRLOGR1    
ADARUN parameters DDCARD reader Operations
ADAFRM parameters DDKARTE disk  
ADARUN messages DDPRINT printer Messages and Codes
ADAFRM messages DDDRUCK printer Messages and Codes

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

Refer to ADAFRM in the MVSJOBS dataset for this example.

//ADAFRM    JOB
//*
//*     ALLOCATE AND FORMAT THE DATABASE COMPONENTS
//*
//*     MORE THAN ONE DATASET CAN BE FORMATTED IN A SINGLE RUN
//*
//*

//FRM       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD                <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.ASSOR1, <=== ASSO
//            SPACE=(CYL,(0,100)),UNIT=DISK,VOL=SER=VOL001
//DDDATAR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.DATAR1, <=== DATA
//            SPACE=(CYL,(0,200)),UNIT=DISK,VOL=SER=VOL002
//DDWORKR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.WORKR1, <=== WORK
//            SPACE=(CYL,(0,40)),UNIT=DISK,VOL=SER=VOL003
//DDSORTR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.SORTR1, <=== SORT
//            SPACE=(CYL,(0,100)),UNIT=DISK,VOL=SER=VOL003
//DDTEMPR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.TEMPR1, <=== TEMP
//            SPACE=(CYL,(0,100)),UNIT=DISK,VOL=SER=VOL003 
//DDPLOGR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR1, <=== PLOG1
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDPLOGR2  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR2, <=== PLOG2
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDCLOGR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR1, <=== CLOG1
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDCLOGR2  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR2, <=== CLOG2
//            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAFRM,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAFRM ASSOFRM SIZE=100,DEVICE=dddd
ADAFRM DATAFRM SIZE=200,DEVICE=dddd
ADAFRM WORKFRM SIZE=40,DEVICE=dddd
ADAFRM SORTFRM SIZE=100,DEVICE=dddd
ADAFRM TEMPFRM SIZE=100,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
/*

Top of page

VM/ESA or z/VM

Dataset DD Name Storage More Information
Associator DDASSORn disk datasets to be formatted
Data Storage DDDATARn    
Work DDWORKR1
DDWORKR4
   
Temp DDTEMPR1    
Sort DDSORTRn    
Multiple command logs DDCLOGRn    
Multiple protection logs DDPLOGRn    
Recovery log DDRLOGR1    
ADARUN parameters DDCARD disk/ terminal/ reader Operations
ADAFRM parameters DDKARTE disk/ terminal/ reader  
ADARUN messages DDPRINT disk/ terminal/ printer Messages and Codes
ADAFRM messages DDDRUCK disk/ terminal/ printer Messages and Codes

ADAFRM JCL Example (VM/ESA or z/VM)

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.DATA,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDSORTR1,DSN=ADABASVv.SORT,VOL=SORTV1
DATADEF DDTEMPR1,DSN=ADABASVv.TEMP,VOL=TEMPV1
DATADEF DDPLOGR1,DSN=ADABASVv.PLOG1,VOL=PLOGV1
DATADEF DDPLOGR2,DSN=ADABASVv.PLOG2,VOL=PLOGV2
DATADEF DDRLOGR1,DSN=ADABASVv.RLOG1,VOL=RLOGV1
DATADEF DDPRINT,DSN=ADAFRM.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAFRM.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNFRM.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAFRM.CONTROL,MODE=A
ADARUN                                                   
 

Contents of RUNFRM CONTROL A1:

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

Contents of ADAFRM CONTROL A1:

ADAFRM ASSOFRM SIZE=100
ADAFRM DATAFRM SIZE=200
ADAFRM WORKFRM SIZE=40
ADAFRM SORTFRM SIZE=25
ADAFRM TEMPFRM SIZE=10
ADAFRM PLOGFRM SIZE=40
ADAFRM PLOGFRM SIZE=40,NUMBER=2
ADAFRM RLOGFRM SIZE=10

Top of page

VSE/ESA

File Symbolic Name Storage Logical Unit More Information
Associator ASSORn disk * files to be formatted
Data Storage DATARn      
Work WORKR1      
Temp TEMPR1      
Sort SORTR1      
Multiple command log CLOGRn      
Multiple protection log PLOGRn      
Recovery log RLOGR1      
ADARUN parameters -
CARD
CARD
reader
tape
disk
SYSRDR
SYS000
*
 
ADAFRM parameters - reader SYSIPT  
ADARUN messages - printer SYSLST Messages and Codes
ADAFRM messages - printer SYS009 Messages and Codes

* Any programmer logical unit may be used.

ADAFRM JCS Example (VSE/ESA)

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

Refer to member ADAFRM.X for this example.

* $$ JOB JNM=ADAFRM,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAFRM
*       FORMAT THE DATABASE COMPONENTS
?/ EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAFRM,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAFRM ASSOFRM SIZE=100,DEVICE=dddd
ADAFRM DATAFRM SIZE=200,DEVICE=dddd
ADAFRM WORKFRM SIZE=40,DEVICE=dddd
ADAFRM SORTFRM SIZE=100,DEVICE=dddd
ADAFRM TEMPFRM SIZE=100,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM PLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
ADAFRM CLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
/*
/&
* $$ EOJ

Top of page