Version 8.2.5
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADASEL 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
Protection log DDSIIN tape/ disk Sequential log
Optional FDT input DDEBANn tape/ disk Either DDEBAND or DDSAVE can be specified, but not both.
Optional save tape with FDT input DDSAVE tape/ disk Either DDEBAND or DDSAVE can be specified, but not both. This link name is required if a save tape is used in the ADASEL run.
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

z/OS

Data Set DD Name Storage More Information
Protection log DDSIIN tape/ disk Sequential log
Optional FDT input DDEBAND tape/ disk Either DDEBAND or DDSAVE can be specified, but not both.
Optional save tape with FDT input DDSAVE tape/ disk Either DDEBAND or DDSAVE can be specified, but not both. This DD is required if a save tape is used in the ADASEL run.
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 (z/OS)

//ADASEL    JOB
//*
//*   ADASEL:
//*      SELECT PROTECTION DATA
//*
//SEL       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.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 JOBS data set for this example.

Top of page

z/VSE

File File Name Storage Logical Unit More Information
Protection log SIIN tape
disk
SYS010
*
Sequential log
Optional FDT input EBAND tape/ disk   Either DDEBAND or DDSAVE can be specified, but not both.
Optional save tape with FDT input SAVE tape/ disk   Either DDEBAND or DDSAVE can be specified, but not both. This file is required if a save tape is used in the ADASEL run.
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 (z/VSE)

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