Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

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

This document covers the following topics:


BS2000

Dataset 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

Top of page

OS/390 or z/OS

Dataset DD Name Storage More Information
Input data DDEBAND tape/ disk Output of ADACMP or ADAULDutility
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 (OS/390 or z/OS)

Refer to ADAMER in the MVSJOBS dataset for this example.

//ADAMER    JOB
//*
//*   ADAMER:
//*      ADAM ESTIMATION
//*
//MER      EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.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
/*

Top of page

VM/ESA or z/VM

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

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

DATADEF DDEBAND,DSN=ADABASVv.BAND,MODE=A
DATADEF DDPRINT,DSN=ADAMER.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADAMER.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNMER.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADAMER.CONTROL,MODE=A
ADARUN

Contents of RUNMER CONTROL A1:

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

Contents of ADAMER CONTROL A1:

ADAMER ADAMDE=AA,DATASIZE=5200,BITRANGE=8,10,1 ADAMERMAXISN=10000

Top of page

VSE/ESA

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 (VSE/ESA)

See Procedures for VSE/ESA Examples for a description of the VSE/ESA 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

Top of page