Version 8.1.4
 —  Utilities  —

JCL/JCS Requirements and Examples

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

Data Set Link Name Storage More Information
Associator DDASSORn disk  
Data Storage DDDATARn disk  
Work DDWORKR1
DDWORKR4
disk  
ADARUN parameters SYSDTA/ DDCARD   Operations
ADADEF parameters SYSDTA/ DDKARTE   Utilities
ADARUN messages SYSOUT/ DDPRINT   Messages and Codes
ADADEF messages SYSLST/ DDDRUCK   Messages and Codes

ADADEF JCL Examples (BS2000)

Define Database

In SDF Format:

/.ADADEF LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A D E F DEFINE DATABASE
/REMARK *
/ASS-SYSLST L.DEF.DATA
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO
/SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA
/SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK   
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADADEF,DB=yyyyy,IDTNAME=ADABAS5B
ADADEF DEFINE DBNAME=EXAMPLE-DB
ADADEF ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF MAXFILES=120
ADADEF FILE=1,CHECKPOINT
ADADEF NAME= CHECKPOINT ,MAXISN=5000,UISIZE=10B
ADADEF DSSIZE=500B,NISIZE=100B
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADADEF LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A D E F DEFINE DATABASE
/REMARK *
/SYSFILE SYSLST=L.DEF.DEFI
/FILE ADA.MOD,LINK=DDLIB
/FILE ADAyyyyy.ASSO ,LINK=DDASSOR1
/FILE ADAyyyyy.DATA ,LINK=DDDATAR1
/FILE ADAyyyyy.WORK ,LINK=DDWORKR1
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADADEF,DB=yyyyy,IDTNAME=ADABAS5B
ADADEF DEFINE DBNAME=EXAMPLE-DB
ADADEF ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF MAXFILES=120
ADADEF FILE=1,CHECKPOINT
ADADEF NAME= CHECKPOINT ,MAXISN=5000,UISIZE=10B
ADADEF DSSIZE=500B,NISIZE=100B
/LOGOFF NOSPOOL

Top of page

z/OS

Data Set DD Name Storage More Information
Associator DDASSORn disk  
Data Storage DDDATARn disk  
Work (Current) DDWORKR1
DDWORKR4
disk  
ADARUN parameters DDCARD reader Operations
ADADEF parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADADEF messages DDDRUCK printer Messages and Codes

ADADEF JCL Examples (z/OS)

Define Database

//ADADEF    JOB
//*
//*   ADADEF:
//*      DEFINE THE PHYSICAL LAYOUT OF THE DATABASE
//*      DEFINE THE NUCLEUS SYSTEM FILE: CHECKPOINT FILE
//*
//DEF       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
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADADEF,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADADEF DEFINE DBNAME=EXAMPLE-DB,DBIDENT=YYYYY
ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF        MAXFILES=120
*

ADADEF FILE=19,CHECKPOINT
ADADEF   NAME='CHECKPOINT',MAXISN=5000
ADADEF   DSSIZE=100B,NISIZE=3B,UISIZE=3B
/*

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

Define New Work

//ADADEFNW  JOB
//*
//*    ADADEF: DEFINE NEW WORK
//*
//DEF       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
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADADEF,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee
/*

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

Top of page

z/VM

Data Set DD Name Storage More Information
Associator DDASSORn disk  
Data Storage DDDATARn disk  
Work DDWORKR1
DDWORKR4
disk  
ADARUN parameters DDCARD disk/ terminal/ reader Operations
ADADEF parameters DDKARTE disk/ terminal/ reader  
ADARUN messages DDPRINT disk/ terminal/ printer Messages and Codes
ADADEF messages DDDRUCK disk/ terminal/ printer  

ADADEF JCL Examples (z/VM)

Define Database

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.ASSO,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDPRINT,DSN=ADADEF.DDPRINT,MODE=A
DATADEF DUMP,DUMMY                                                     
        
DATADEF DDDRUCK,DSN=ADADEF.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNDEF.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADADEF.CONTROL,MODE=A
ADARUN

Contents of RUNDEF CONTROL A1:

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

Contents of ADADEF CONTROL A1:

ADADEF DEFINE DBNAME=EXAMPLE-DB
ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF        MAXFILE=120
*                                                                    
        
ADADEF FILE=1,CHECKPOINT
ADADEF NAME='CHECKPOINT',MAXISN=5000,UISIZE=10B
ADADEF                   DSSIZE=500B,NISIZE=100B

Define New Work

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDDATAR1,DSN=ADABASVv.ASSO,VOL=DATAV1
DATADEF DDWORKR1,DSN=ADABASVv.WORK,VOL=WORKV1
DATADEF DDPRINT,DSN=ADADEF.DDPRINT,MODE=A
DATADEF DUMP,DUMMY                                                     
        
DATADEF DDDRUCK,DSN=ADADEF.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNDEF.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADADEF.CONTROL,MODE=A
ADARUN

Contents of RUNDEF CONTROL A1:

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

Contents of ADADEF CONTROL A1:

ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee                
                 

Top of page

VSE

File Symbolic Name Storage Logical Unit More Information
Associator ASSORn disk *  
Data Storage DATARn disk *  
Work (Current) WORKR1 disk *  
ADARUN parameters -
CARD
CARD
reader
tape
disk
SYSRDR
SYS000
*
 
ADADEF parameters - reader SYSIPT  
ADARUN messages - printer SYSLST  
ADADEF messages - printer SYS009 Messages and Codes

* Any programmer logical unit may be used.

ADADEF JCS Examples (VSE)

See Library and File Procedures for VSE Examples for descriptions of the VSE procedures.

Define Database

Refer to member ADADEF.X for this example.

* $$ JOB JNM=ADADEF,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADADEF
*       DEFINE THE PHYSICAL LAYOUT OF THE DATABASE
*       DEFINE THE NUCLEUS SYSTEMFILE: CHECKPOINT FILE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADADEF,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADADEF DEFINE DBNAME=EXAMPLE-DB,DBIDENT=yyyyy
ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
ADADEF        MAXFILES=120
*

ADADEF FILE=19,CHECKPOINT
ADADEF   NAME='CHECKPOINT',MAXISN=5000
ADADEF   DSSIZE=100B,NISIZE=3B,UISIZE=3B
/*
/&
* $$ EOJ

Define New Work

Refer to member ADADEFNW.X for this example.

* $$ JOB JNM=ADADEFNW,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADADEFNW
*       DEFINE NEW WORK
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADADEF,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee
/*
/&
* $$ EOJ

Top of page