
	Version 8.2.5	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 ADAMER with BS2000, z/OS, and z/VSE systems and shows examples of each of the job streams.

This document covers the following topics:

BS2000
z/OS
z/VSE

BS2000

Data Set	Link Name	Storage	More Information
Input data	DDEBAND	tape/ disk	Output of ADACMP or ADAULD utility
ADARUN parameters	SYSDTA/ DDCARD		Operations
ADAMER parameters	SYSDTA/ DDKARTE
ADARUN messages	SYSOUT/ DDPRINT		Messages and Codes
ADAMER messages/report	SYSLST/ DDDRUCK		Messages and Codes

ADAMER JCL Example (BS2000)

In SDF Format:

/.ADALOD LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A M E R ALL FUNCTIONS
/REMARK *
/ASS-SYSLST L.MER
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
/SET-FILE-LINK DDEBAND,CMP.AUS
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADAMER,DB=yyyyy,IDTNAME=ADABAS5B
ADAMER ADAMDE=AA,DATASIZE=5200,BITRANGE=8,10,1
ADAMER MAXISN=10000
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAMER LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A M E R ALL FUNCTIONS
/REMARK *
/SYSFILE SYSLST=L.MER
/FILE ADA.MOD,LINK=DDLIB
/FILE CMP.AUS,LINK=DDEBAND
/EXEC (ADARUN,ADA.MOD)

ADARUN PROG=ADAMER,DB=yyyyy,IDTNAME=ADABAS5B
ADAMER ADAMDE=AA,DATASIZE=5200,BITRANGE=8,10,1
ADAMER MAXISN=10000
/LOGOFF NOSPOOL

z/OS

Data Set	DD Name	Storage	More Information
Input data	DDEBAND	tape/ disk	Output of ADACMP or ADAULD utility
ADARUN parameters	DDCARD	reader	Operations
ADAMER parameters	DDKARTE	reader
ADARUN messages	DDPRINT	printer	Messages and Codes
ADAMER messages/report	DDDRUCK	printer	Messages and Codes

ADAMER JCL Example (z/OS)

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

//ADAMER    JOB
//*
//*   ADAMER:
//*      ADAM ESTIMATION
//*
//MER      EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD       <=== ADABAS LOAD
//*
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.COMPR1 <=== COMPRESS
DATA
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADAMER,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADAMER MAXISN=1000,ADAMDE=AA,BITRANGE=0,2,4
ADAMER DATADEV=eeee,DATAPFAC=10,DATASIZE=100,175,25
/*

z/VSE

File	Sym. Name	Storage	Logical Unit	More Information
Input data	EBAND	tape disk	SYS010 *	Output of ADACMP or ADAULD utility
ADARUN parameters	- CARD CARD	reader tape disk	SYSRDR SYS000 *	Operations
ADAMER parameters	-	reader	SYSIPT
ADARUN messages	-	printer	SYSLST	Messages and Codes
ADAMER messages/report	-	printer	SYS009	Messages and Codes

* Any programmer logical unit may be used.

ADAMER JCS Example (z/VSE)

See Library and File Procedures for z/VSE Examples for a description of the z/VSE procedures (PROCs). Refer to member ADAMER.X for this example.

* $$ JOB JNM=ADAMER,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAMER
// OPTION LOG,PARTDUMP
*       ADAM ESTIMATION
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// DLBL EBAND,'EXAMPLE.DByyyyy.COMPR1',0,SD
// EXTENT SYS004
// ASSGN SYS004,DISK,VOL=DISK01,SHR
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAMER,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAMER MAXISN=1000,ADAMDE=AA,BITRANGE=0,2,4
ADAMER DATADEV=eeee,DATAPFAC=10,DATASIZE=100,175,25
/*
/&
* $$ EOJ

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