Version 8.2.5
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADADCK with BS2000, z/OS, and z/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 or DDASSOnn disk  
Data Storage DDDATARn or DDDATAnn disk  
ADARUN parameters SYSDTA/ DDCARD   Operations
ADADCK parameters SYSDTA/ DDKARTE    
ADARUN messages SYSOUT DDPRINT   Messages and Codes
ADADCK messages SYSLST DDDRUCK   Messages and Codes

ADADCK JCL Example (BS2000)

In SDF Format:

/.ADADCK LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK *A D A D C K DATA STORAGE CHECK
/REMARK *
/REMARK *
/ASS-SYSLST L.DCK.DATA
/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=ADADCK,DB=yyyyy,IDTNAME=ADABAS5B
ADADCK DSCHECK FILE=27
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADADCK LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK *A D A D C K DATA STORAGE CHECK
/REMARK *
/REMARK *
/SYSFILE SYSLST=L.DCK.DATA
/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=ADADCK,DB=yyyyy,IDTNAME=ADABAS5B
ADADCK DSCHECK FILE=27
/LOGOFF NOSPOOL

Top of page

z/OS

Data Set DD Name Storage More Information
Associator DDASSORn or DDASSOnn disk  
Data Storage DDDATARn or DDDATAnn disk  
ADARUN parameters DDCARD reader Operations
ADADCK parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADADCK messages DDDRUCK printer Messages and Codes

ADADCK JCL Example (z/OS)

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

//ADADCK    JOB
//*
//*    ADADCK:
//*          DATA STORAGE CHECK
//*
//DCK       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=ADADCK,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADADCK DSCHECK FILE=27
/*

Top of page

z/VSE

File Symbolic Name Storage Logical Unit More Information
Associator ASSORn or ASSOnn disk *  
Data Storage DATARn or DATAnn disk *  
ADARUN parameters -
CARD
CARD
reader
tape
disk
SYSRDR
SYS000
*
 
ADADCK parameters   reader SYSIPT  
ADARUN messages   printer SYSLST Messages and Codes
ADADCK messages   printer SYS009 Messages and Codes

* Any programmer logical unit may be used.

ADADCK JCS Example (z/VSE)

See Library and File Procedures for z/VSE Examples for descriptions of the z/VSE procedures (PROCs).

Refer to member ADADCK.X for this example.

* $$ JOB JNM=ADADCK,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADADCK
*       DATA STORAGE CHECK
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADADCK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADADCK DSCHECK FILE=27
/*
/&
* $$ EOJ

Top of page