Version 8.2.5
 —  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

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

Top of page

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
/*

Top of page

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

Top of page