This section describes the job control information required to run ADAORD with BS2000, z/OS, and z/VSE systems and shows examples of each of the job streams.
Note:
When running with the optional Recovery Aid (ADARAI) for
RESTRUCTURExx or STORE functions, all temporary data sets must also be
cataloged in the job control.
This document covers the following topics:
Data Set | Link Name | Storage | More Information |
---|---|---|---|
Associator | DDASSORn | disk | |
Data Storage | DDDATARn | disk | |
Intermediate storage | DDFILEA | tape/ disk | |
Recovery log (RLOG) | DDRLOGR1 | disk | Required when using the ADARAI option |
ADARUN parameters | SYSDTA/ DDCARD | Operations | |
ADAORD parameters | SYS/DTA/DDKARTE | ||
ADARUN messages | SYSOUT/ DDPRINT | Messages and Codes | |
ADAORD messages | SYSLST/ DDDRUCK | Messages and Codes |
/.ADAORD LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A O R D REORDER FILE DATA, REORDER FILE, REORDER DATA /REMARK * REORDER DATABASE /REMARK * /DELETE-FILE ADAyyyyy.FILEA /SET-JOB-STEP /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480)) /SET-JOB-STEP /ASS-SYSLST L.ORD.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 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD REORDATA FILE=1,DSSIZE=80,DATAPFAC=30 /LOGOFF SYS-OUTPUT=DEL
/.ADAORD LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A O R D REORDER FILE DATA, REORDER FILE, REORDER DATA /REMARK * REORDER DATABASE /REMARK * /SYSFILE SYSLST=L.ORD.DATA /FILE ADA.MOD,LINK=DDLIB /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480) /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD REORDATA FILE=1,DSSIZE=80,DATAPFAC=30 /LOGOFF NOSPOOL
/.ADAORD LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A O R D REORDER FILE ASSO, REORDER ASSO /REMARK * /DELETE-FILE ADAyyyyy.FILEA /SET-JOB-STEP /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480)) /SET-JOB-STEP /ASS-SYSLST L.ORD.REOR /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 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD REORFASSO ADAORD FILE=1,MAXISN=20000,NISIZE=300B ADAORD FILE=3,NISIZE=400B,ASSOPFAC=2 /LOGOFF SYS-OUTPUT=DEL
/.ADAORD LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A O R D REORDER FILE ASSO, REORDER ASSO /REMARK * /SYSFILE SYSLST=L.ORD.REOR /FILE ADA.MOD,LINK=DDLIB /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480) /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD REORFASSO ADAORD FILE=1,MAXISN=20000,NISIZE=300B ADAORD FILE=3,NISIZE=400B,ASSOPFAC=2 /LOGOFF NOSPOOL
/.ADAORD LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A O R D RESTRUCTURE /REMARK * /DELETE-FILE ADAyyyyy.FILEA /SET-JOB-STEP /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480)) /SET-JOB-STEP /ASS-SYSLST L.ORD.REST /ASS-SYSDTA *SYSCMD /SET-FILE-LINK DDLIB,ADAvrs.MOD /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD RESTRUCTUREF ADAORD FILE=1,DATADEV=dddd /LOGOFF SYS-OUTPUT=DEL
/.ADAORD LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A O R D RESTRUCTURE /REMARK * /SYSFILE SYSLST=L.ORD.REST /FILE ADA.MOD,LINK=DDLIB /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480) /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD RESTRUCTUREF ADAORD FILE=1,DATADEV=dddd /LOGOFF NOSPOOL
/.ADAORD LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A O R D STORE /REMARK * /DELETE-FILE ADAyyyyy.FILEA /SET-JOB-STEP /REMARK Here, a tape has already been initialized in TSOS by /REMARK /START-INIT /REMARK INIT T-C4,VSN=ADA001,UNIT=M0 or M1 /REMARK END /CREATE-FILE ADAyyyyy.FILEA,SUP=TAPE(DEVICE=TAPE-C4,VOL=ADA001) /SET-JOB-STEP /ASS-SYSLST L.ORD.STOR /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 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES /REMARK Do not set the BUFFER-SIZE option for this file /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA /REMARK /REMARK Here, using TAPEREL=NO, the tape will remain /REMARK mounted This must be done from the console. /REMARK if the tape is to be dismounted, omit this /REMARK parameter /REMARK /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO ADAORD STORE ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234 ADAORD MAXISN=200000 /LOGOFF SYS-OUTPUT=DEL
/.ADAORD LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A O R D STORE /REMARK * /SYSFILE SYSLST=L.ORD.STOR /FILE ADA.MOD,LINK=DDLIB /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES /REMARK Here, a tape has already been initialized in TSOS by /REMARK /START-INIT /REMARK INIT T-C4,VSN=ADA001,UNIT=M0 or M1 /REMARK END /REMARK Do not set the BLKSIZE option for this file /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,DEVICE=TAPE-C4,VOLUME=ADA001,LABEL=STD /REMARK /REMARK Here, using TAPEREL=NO, the tape will remain /REMARK mounted This must be done from the console. /REMARK if the tape is to be dismounted, omit this /REMARK parameter /REMARK /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO ADAORD STORE ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234 ADAORD MAXISN=200000 /LOGOFF NOSPOOL
/.ADAORD LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A O R D STORE /REMARK * /DELETE-FILE ADAyyyyy.FILEA /SET-JOB-STEP /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480)) /SET-JOB-STEP /ASS-SYSLST L.ORD.STOR /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 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD STORE ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234 ADAORD MAXISN=200000 /LOGOFF SYS-OUTPUT=DEL
/.ADAORD LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A O R D STORE /REMARK * /SYSFILE SYSLST=L.ORD.STOR /FILE ADA.MOD,LINK=DDLIB /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480) /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B ADAORD STORE ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234 ADAORD MAXISN=200000 /LOGOFF NOSPOOL
Data Set | DD Name | Storage | More Information |
---|---|---|---|
Associator | DDASSORn | disk | |
Data Storage | DDDATARn | disk | Not used for REORASSO or REORFASSO |
Intermediate storage | DDFILEA | tape/ disk | |
Recovery log (RLOG) | DDRLOGR1 | disk | Required when using the ADARAI option |
ADARUN parameters | DDCARD | reader | Operations |
ADAORD parameters | DDKARTE | reader | |
ADARUN messages | DDPRINT | printer | Messages and Codes |
ADAORD messages | DDDRUCK | printer | Messages and Codes |
//ADAORDA JOB //* //* ADAORD: REORDER FILE ASSO, //* REORDER ASSO //* //ORD EXEC PGM=ADARUN //STEPLIB DD DISP=SHR,DSN=ADABAS.ADAvrs.LOAD <=== ADABAS LOAD //* //DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO //DDFILEA DD DSN=&&DDFILEA,DISP=(,PASS), <===INTERMEDIATE // UNIT=SYSDA,VOL=SER=vvvvvv,SPACE=(CYL,NN) STORAGE //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAORD REORFASSO ADAORD FILE=1,ASSOPFAC=15,MAXISN=10000 /*
Refer to ADAORDA in the JOBS data set for this example.
//ADAORDD JOB //* //* ADAORD: REORDER DATA STORAGE //* //ORD 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 //DDFILEA DD DSN=DDFILEA, <=== INTERMEDIATE // UNIT=TAPE,VOL=SER=vvvvvv,DISP=(,PASS) FILE //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAORD REORDATA ADAORD FILE=1,DSSIZE=80,DATAPFAC=30 /*
Refer to ADAORDD in the JOBS data set for this example.
//ADAORDR JOB //* //* ADAORD: RESTRUCTURE //* //ORD 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 //DDFILEA DD DSN=FILEA, <== INTERMEDIATE // UNIT=TAPE,VOL=SER=vvvvvv,DISP=(,KEEP) <== FILE //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAORD RESTRUCTUREF ADAORD FILE=1,DATADEV=eeee /*
Refer to ADAORDR in the JOBS data set for this example.
//ADAORDS JOB //* //* ADAORD: STORE INTO A DIFFERENT DATABASE //* AFTER ADAORD RESTRUCTURE //* //ORD 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 //DDFILEA DD DSN=FILE1, <=== INTERMEDIATE // UNIT=TAPE,VOL=SER=vvvvvv,DISP=OLD STORAGE //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy <=== DBID /* //DDKARTE DD * ADAORD STORE ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234,MAXISN=200000 /*
Refer to ADAORDS in the JOBS data set for this example.
File | Symbolic Name | Storage | Logical Unit | More Information |
---|---|---|---|---|
Associator | ASSORn | disk | * | |
Data Storage | DATARn | disk | * | |
Intermediate Storage | FILEA | tape disk |
SYS010 * |
|
Recovery log (RLOG) | RLOGR1 | disk | Required when using the ADARAI option | |
ADARUN parameters | - CARD CARD |
reader tape disk |
SYSRDR SYS000 * |
|
ADAORD parameters | reader | SYSIPT | ||
ADARUN messages | printer | SYSLST | Messages and Codes | |
ADAORD messages | printer | SYS009 | Messages and Codes |
* Any programmer logical unit may be used.
See Library and File Procedures for z/VSE Examples for a description of the z/VSE procedures (PROCs).
Refer to the following members for these examples:
Example | Member |
---|---|
Reorder File Associator | ADAORDA.X |
Reorder File Data Storage | ADAORDD.X |
Restructure | ADAORDR.X |
Store Files | ADAORDS.X |
* $$ JOB JNM=ADAORDA,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAORDA * REORDER THE ASSOCIATOR. // EXEC PROC=ADAVvLIB // EXEC PROC=ADAVvFIL // ASSGN SYS010,DISK,VOL=DISK01,SHR // DLBL FILEA,'ADABAS.ADAvrs.TEMP' // EXTENT SYS010,DISK01,1,0,sssss,nnnnn // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* ADAORD REORFASSO ADAORD FILE=1,ASSOPFAC=15,MAXISN=10000 /* /& * $$ EOJ
* $$ JOB JNM=ADAORDD,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAORDD * REORDER DATA STORAGE // EXEC PROC=ADAVvLIB // EXEC PROC=ADAVvFIL // ASSGN SYS010,TAPE,D0 // PAUSE MOUNT SCRATCH TAPE ON TAPE cuu // MTC REW,SYS010 // MTC WTM,SYS010,5 // MTC REW,SYS010 // TLBL FILEA,'ADABAS.ADAvrs.TEMP' // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* ADAORD REORDATA ADAORD FILE=1,DSSIZE=80,DATAPFAC=30 /* /& * $$ EOJ
* $$ JOB JNM=ADAORDR,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAORDR * RESTRUCTURE // EXEC PROC=ADAVvLIB // EXEC PROC=ADAVvFIL // ASSGN SYS010,TAPE,D0 // PAUSE MOUNT SCRATCH TAPE ON TAPE cuu // MTC REW,SYS010 // MTC WTM,SYS010,5 // MTC REW,SYS010 // TLBL FILEA,'ADABAS.ADAvrs.TEMP' // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* ADAORD RESTRUCTUREF ADAORD FILE=1,DATADEV=eeee /* /& * $$ EOJ
* $$ JOB JNM=ADAORDS,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAORDS * STORE // EXEC PROC=ADAVvLIB // EXEC PROC=ADAVvFIL // ASSGN SYS010,TAPE,D0 // PAUSE MOUNT SCRATCH TAPE ON TAPE cuu // MTC REW,SYS010 // MTC WTM,SYS010,5 // MTC REW,SYS010 // TLBL FILEA,'ADABAS.ADAvrs.TEMP' // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* ADAORD STORE ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234,MAXISN=200000 /* /& * $$ EOJ