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:
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 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
/.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
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 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.
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.
* $$ 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.