Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADASEL 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
Protection log DDSIIN tape/ disk Sequential log
Selected data DDEXPAn tape/ disk Output by ADASEL
Associator DDASSORn disk  
ADARUN parameters SYSDTA/ DDCARD   Operations
ADASEL parameters SYSDTA/ DDKARTE    
ADARUN messages SYSOUT/ DDPRINT   Messages and Codes
ADASEL messages SYSLST/ DDDRUCK   Messages and Codes

ADASEL JCL Example (BS2000)

In SDF Format:

/.ADASEL LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A S E L ALL FUNCTIONS
/REMARK *
/DELETE-FILE SEL.AUS        
/SET-JOB-STEP
/CREATE-FILE SEL.AUS,PUB(SPACE=(48,48))
/SET-JOB-STEP
/ASS-SYSLST L.SEL     
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO
/SET-FILE-LINK DDSIIN,ADAyyyyy.SIBA
/SET-FILE-LINK DDEXPA1,SEL.AUS
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADASEL,DB=yyyyy,IDTNAME=ADABAS5B
SELECT ALL FROM FILE 11
DISPLAY AA BB BA BC CA CC
END
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADASEL LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A S E L ALL FUNCTIONS
/REMARK *
/SYSFILE SYSLST=L.SEL
/FILE ADA.ASSO ,LINK=DDASSOR1
/FILE ADA.MOD ,LINK=DDLIB
/FILE ADAyyyyy.SIBA ,LINK=DDSIIN
/FILE SEL.AUS ,LINK=DDEXPA1 ,SPACE=(48,48)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADASEL,DB=yyyyy,IDTNAME=ADABAS5B
SELECT ALL FROM FILE 11
DISPLAY AA BB BA BC CA CC
END
/LOGOFF NOSPOOL

Top of page

OS/390 or z/OS

Dataset DD Name Storage More Information
Protection log DDSIIN tape/ disk Sequential log
Selected data DDEXPAn tape/ disk Output by ADASEL
Associator DDASSORn disk  
ADARUN parameters DDCARD reader Operations
ADASEL parameters DDKARTE reader  
ADARUN messages DDPRINT printer Messages and Codes
ADASEL messages DDDRUCK printer Messages and Codes

ADASEL JCL Example (OS/390 or z/OS)

//ADASEL    JOB
//*
//*   ADASEL:
//*      SELECT PROTECTION DATA
//*
//SEL       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
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1    <=== WORK
//DDSIIN    DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.PLOG5     <=== OUTPUT ADARES
//*                                                                PLCOPY
//DDEXPA1   DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.EXPA1, <= OUTPUT ADASEL
//               SPACE=(TRK,(10,5),RLSE),VOL=SER=vvvvvv,UNIT=uuuu
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADASEL,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *

*
*    SELECT UPDATES FOR FILE NUMBER 1
*
SELECT ALL FROM FILE 1
  OUTPUT TO EXPA1
END
/*

Refer to ADASEL in the MVSJOBS dataset for this example.

Top of page

VM/ESA or z/VM

Dataset DD Name Storage More Information
Protection log DDSIIN tape/ disk Sequential log
Selected data DDEXPAn tape/ disk  
Associator DDASSORn disk  
ADARUN parameters DDCARD disk/ terminal/ reader Operations
ADASEL parameters DDKARTE disk/ terminal/ reader  
ADARUN messages DDPRINT disk/ terminal/ printer Messages and Codes
ADASEL messages DDDRUCK disk/ terminal/ printer Messages and Codes

Example (VM/ESA or z/VM)

DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
DATADEF DDSIIN,DSN=ADABASVv.SIBA,UNIT=181,VOL=SIBAXX
DATADEF DDEXPA1,DSN=ADABASVv.EXPA1,MODE=A
DATADEF DDPRINT,DSN=ADASEL.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADASEL.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNSEL.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADASEL.CONTROL,MODE=A
LOAD ADARUN ( START    

Contents of RUNSEL CONTROL A1

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

Contents of ADASEL CONTROL A1

SELECT ALL FROM FILE 11
   DISPLAY ISN
END

Top of page

VSE/ESA

File File Name Storage Logical Unit More Information
Protection log SIIN tape
disk
SYS010
*
Sequential log
Selected data EXPA1-20 tape
disk
SYS011-SYS030
*
Output by ADASEL
Associator ASSORn disk *  
ADARUN parameters SYSRDR CARD reader/ tape/ disk   Operations
ADASEL parameters SYSIPT reader    
ADARUN messages SYSLST printer   Messages and Codes
ADASEL messages SYS009 printer   Messages and Codes

* Any programmer logical unit may be specified.

ADASEL JCS Example (VSE/ESA)

* $$ JOB JNM=ADASEL,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADASEL
*       SELECT PROTECTION DATA
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// PAUSE MOUNT LOAD INPUT PLOG FILE ON TAPE cuu
// ASSGN SYS010,TAPE
// TLBL SIIN,'EXAMPLE.DByyyyy.PLOG5'
// DLBL EXPA1,'EXAMPLE.ADAyyyyy.EXPA1'
// EXTENT SYS015,,,,ssss,nnnn
// ASSGN SYS015,DISK,VOL=vvvvvv,SHR
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADASEL,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
*    SELECT UPDATES FOR FILE NUMBER 1
*
SELECT ALL FROM FILE 1
  OUTPUT TO EXPA1

END
/*
/&
* $$ EOJ

Refer to member ADASEL.X for this example.

Top of page