This section describes the job control information required to run ADAFRM on the z/OS operating system and shows an example job stream.
Note:
When running with the optional Recovery Aid (RLOG), all temporary data sets must also
be cataloged in the job control.
| Data Set | DD Name | Storage | More Information |
|---|---|---|---|
| Associator | DDASSORn | disk | data sets to be formatted |
| Data Storage | DDDATARn | ||
| Work | DDWORKR1 DDWORKR4 |
||
| Temp | DDTEMPR1 | ||
| Sort | DDSORTRn | ||
| Multiple command logs | DDCLOGRn | ||
| Multiple protection logs | DDPLOGRn | ||
| Recovery log | DDRLOGR1 | ||
| ADARUN parameters | DDCARD | reader | Operations |
| ADAFRM parameters | DDKARTE | disk | |
| ADARUN messages | DDPRINT | printer | Messages and Codes |
| ADAFRM messages | DDDRUCK | printer | Messages and Codes |
Refer to ADAFRM in the JOBS data set for this example.
//ADAFRM JOB //* //* ALLOCATE AND FORMAT THE DATABASE COMPONENTS //* //* MORE THAN ONE DATA SET CAN BE FORMATTED IN A SINGLE RUN //* //* //FRM EXEC PGM=ADARUN //STEPLIB DD DISP=SHR,DSN=ADABAS.ADAvrs.LOAD <=== ADABAS LOAD //* //DDASSOR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.ASSOR1, <=== ASSO // SPACE=(CYL,(100,100)),UNIT=DISK,VOL=SER=VOL001 //DDDATAR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.DATAR1, <=== DATA // SPACE=(CYL,(200,200)),UNIT=DISK,VOL=SER=VOL002 //DDWORKR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.WORKR1, <=== WORK // SPACE=(CYL,(40,40)),UNIT=DISK,VOL=SER=VOL003 //DDSORTR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.SORTR1, <=== SORT // SPACE=(CYL,(100,100)),UNIT=DISK,VOL=SER=VOL003 //DDTEMPR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.TEMPR1, <=== TEMP // SPACE=(CYL,(100,100)),UNIT=DISK,VOL=SER=VOL003 //DDPLOGR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR1, <=== PLOG1 // SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003 //DDPLOGR2 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR2, <=== PLOG2 // SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003 //DDCLOGR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR1, <=== CLOG1 // SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003 //DDCLOGR2 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR2, <=== CLOG2 // SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003 //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAFRM,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAFRM ASSOFRM SIZE=100,DEVICE=dddd ADAFRM DATAFRM SIZE=200,DEVICE=dddd ADAFRM WORKFRM SIZE=40,DEVICE=dddd ADAFRM SORTFRM SIZE=100,DEVICE=dddd ADAFRM TEMPFRM SIZE=100,DEVICE=dddd ADAFRM PLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd ADAFRM PLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd ADAFRM CLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd ADAFRM CLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd /*