
	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 ADAACK 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
ADARUN parameters	SYSDTA/ DDCARD		Operations
ADAACK parameters	SYSDTA/ DDKARTE
ADARUN messages	SYSOUT DDPRINT		Messages and Codes
ADAACK messages	SYSLST DDDRUCK		Messages and Codes

ADAACK JCL Examples (BS2000)

In SDF Format:

/.ADAACK LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A A C K ADDRESS CONVERTER CHECK
/REMARK *
/REMARK *
/ASS-SYSLST L.ACK.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=ADAACK,DB=yyyyy,IDTNAME=ADABAS5B
ADAACK ACCHECK FILE=ffff
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAACK LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A A C K ADDRESS CONVERTER CHECK
/REMARK *
/REMARK *
/SYSFILE SYSLST=L.ACK.DATA
/FILE ADAvrs.MOD ,LINK=DDLIB
/FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
/FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADAACK,DB=yyyyy,IDTNAME=ADABAS5B
ADAACK ACCHECK FILE=ffff
/LOGOFF NOSPOOL

z/OS

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

ADAACK JCL Example (z/OS)

//ADAACK    JOB
//*
//*   ADAACK:
//*      ADDRESS CONVERTER CHECK
//*
//ACK       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=ADAACK,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAACK ACCHECK FILE=ffff
/*

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

z/VM

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

ADAACK JCL Example (z/VM)

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

Contents of RUNACK CONTROL A1:

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

Contents of ADAACK CONTROL A1:

ADAACK ACCHECK FILE=ffff

VSE

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

* Any programmer logical unit may be used.

ADAACK JCS Example (VSE)

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

* $$ JOB JNM=ADAACK,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
*       ADDRESS CONVERTER CHECK
// JOB ADAACK
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAACK,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAACK ACCHECK FILE=27
/*
/&
* $$ EOJ

Refer to member ADAACK.X for this example.

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