Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAACK with BS2000, z/OS or OS/390, z/VM or VM/ESA, 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
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

Top of page

z/OS or OS/390

Dataset 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 or OS/390)

//ADAACK    JOB
//*
//*   ADAACK:
//*      ADDRESS CONVERTER CHECK
//*
//ACK       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.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 MVSJOBS dataset for this example.

Top of page

z/VM or VM/ESA

Dataset 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 or VM/ESA)

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 

Top of page

VSE/ESA

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

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

Top of page