This section describes the job control information required to run ADAFRM 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 (RLOG), 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 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 | SYSDTA/ DDCARD | Operations | |
ADAFRM parameters | SYSDTA/ DDKARTE | ||
ADARUN messages | SYSOUT/ DDPRINT | Messages and Codes | |
ADAFRM messages | SYSLST/ DDDRUCK | Messages and Codes |
/.ADAFRM LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A F R M ALL FUNCTIONS /REMARK * /ASS-SYSLST L.FRM /ASS-SYSDTA *SYSCMD /SET-FILE-LINK DDLIB,ADAvrs.MOD /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,OPEN-MODE=OUTIN /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,OPEN-MODE=OUTIN /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,OPEN-MODE=OUTIN /SET-FILE-LINK DDTEMPR1,ADAyyyyy.TEMP,OPEN-MODE=OUTIN /SET-FILE-LINK DDSORTR1,ADAyyyyy.SORT,OPEN-MODE=OUTIN /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,OPEN-MODE=OUTIN /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,OPEN-MODE=OUTIN /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,OPEN-MODE=OUTIN /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B ADAFRM ASSOFRM SIZE=100 ADAFRM DATAFRM SIZE=200 ADAFRM WORKFRM SIZE=40 ADAFRM SORTFRM SIZE=25 ADAFRM TEMPFRM SIZE=10 ADAFRM PLOGFRM SIZE=40,NUMBER=1 ADAFRM PLOGFRM SIZE=40,NUMBER=2 ADAFRM RLOGFRM SIZE=10 /LOGOFF SYS-OUTPUT=DEL
/.ADAFRM LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A F R M ALL FUNCTIONS /REMARK * /SYSFILE SYSLST=L.FRM /FILE ADA.MOD,LINK=DDLIB /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,OPEN=OUTIN /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,OPEN=OUTIN /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,OPEN=OUTIN /FILE ADAyyyyy.TEMP ,LINK=DDTEMPR1,OPEN=OUTIN /FILE ADAyyyyy.SORT ,LINK=DDSORTR1,OPEN=OUTIN /FILE ADAyyyyy.PLOGR1,LINK=DDPLOGR1,OPEN=OUTIN /FILE ADAyyyyy.PLOGR2,LINK=DDPLOGR2,OPEN=OUTIN /FILE ADAyyyyy.RLOGR1,LINK=DDRLOGR1,OPEN=OUTIN /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B ADAFRM ASSOFRM SIZE=100 ADAFRM DATAFRM SIZE=200 ADAFRM WORKFRM SIZE=40 ADAFRM SORTFRM SIZE=25 ADAFRM TEMPFRM SIZE=10 ADAFRM PLOGFRM SIZE=40,NUMBER=1 ADAFRM PLOGFRM SIZE=40,NUMBER=2 ADAFRM RLOGFRM SIZE=10 /LOGOFF NOSPOOL
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,(0,100)),UNIT=DISK,VOL=SER=VOL001 //DDDATAR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.DATAR1, <=== DATA // SPACE=(CYL,(0,200)),UNIT=DISK,VOL=SER=VOL002 //DDWORKR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.WORKR1, <=== WORK // SPACE=(CYL,(0,40)),UNIT=DISK,VOL=SER=VOL003 //DDSORTR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.SORTR1, <=== SORT // SPACE=(CYL,(0,100)),UNIT=DISK,VOL=SER=VOL003 //DDTEMPR1 DD DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.TEMPR1, <=== TEMP // SPACE=(CYL,(0,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 /*
File | Symbolic Name | Storage | Logical Unit | More Information |
---|---|---|---|---|
Associator | ASSORn | disk | * | files to be formatted |
Data Storage | DATARn | |||
Work | WORKR1 | |||
Temp | TEMPR1 | |||
Sort | SORTR1 | |||
Multiple command log | CLOGRn | |||
Multiple protection log | PLOGRn | |||
Recovery log | RLOGR1 | |||
ADARUN parameters | - CARD CARD |
reader tape disk |
SYSRDR SYS000 * |
|
ADAFRM parameters | - | reader | SYSIPT | |
ADARUN messages | - | printer | SYSLST | Messages and Codes |
ADAFRM messages | - | printer | SYS009 | Messages and Codes |
* Any programmer logical unit may be used.
See Library and File Procedures for z/VSE Examples for descriptions of the z/VSE procedures (PROCs).
Refer to member ADAFRM.X for this example.
* $$ JOB JNM=ADAFRM,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAFRM * FORMAT THE DATABASE COMPONENTS ?/ EXEC PROC=ADAVvLIB // EXEC PROC=ADAVvFIL // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAFRM,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* 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 /* /& * $$ EOJ