This section describes the job control information required to run ADAPRI 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 |
---|---|---|---|
Data set containing blocks to print | DDASSORn DDDATARn DDWORKR1 DDWORKR4 DDTEMPR1 DDSORTRn DDCLOGRn DDPLOGRn DDDSIMR1 |
disk disk disk disk disk disk disk disk disk |
Associator Data Storage* Work* Temp Sort Multiple command log Multiple protection log DSIM data set |
Recovery log (RLOG) | DDRLOGR1 | disk | Required when using ADARAI. |
ADARUN parameters | SYSDTA/ DDCARD | reader | Operations |
ADAPRI parameters | SYSIPT/ DDKARTE | reader | |
ADARUN messages | SYSOUT | printer | Messages and Codes |
ADAPRI messages | SYSLST | printer | Messages and Codes |
* When printing blocks from Data Storage or Work, the link name for the Associator must also be present.
/.ADAPRI LOGON /MODIFY-TEST-OPTIONS DUMP=YES /REMARK * /REMARK * A D A P R I ALL FUNCTIONS /REMARK * /ASS-SYSLST L.PRI /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 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAPRI,DB=yyyyy,IDTNAME=ADABAS5B ADAPRI DATAPRI FROMRABN=27,TORABN=34 /LOGOFF SYS-OUTPUT=DEL
/.ADAPRI LOGON /OPTION MSG=FH,DUMP=YES /REMARK * /REMARK * A D A P R I ALL FUNCTIONS /REMARK * /SYSFILE SYSLST=L.PRI /FILE ADA.MOD,LINK=DDLIB /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES /EXEC (ADARUN,ADA.MOD) ADARUN PROG=ADAPRI,DB=yyyyy,IDTNAME=ADABAS5B ADAPRI DATAPRI FROMRABN=27,TORABN=34 /LOGOFF NOSPOOL
Data Set | DD Name | Storage | More Information |
---|---|---|---|
Data set containing the blocks print | DDASSORn DDDATARn DDWORKR1 DDWORKR4 DDTEMPR1 DDSORTR1 DDCLOGRn DDPLOGRn DDDSIMR1 |
disk disk disk disk disk disk disk disk disk |
Associator Data Storage* Work* Temp Sort Multiple command log Multiple protection log DSIM data set |
Recovery log (RLOG) | DDRLOGR1 | disk | Required when using ADARAI. |
ADARUN parameters | DDCARD | reader | Operations |
ADAPRI parameters | DDKARTE | reader | |
ADARUN messages | DDPRINT | printer | Messages and Codes |
ADAPRI messages | DDDRUCK | printer | Messages and Codes |
* When printing blocks from Data Storage or Work, the DD statement for the Associator must also be present.
//ADAPRI JOB //* //* ADAPRI: //* MAINTENANCE PRINT //* //PRI 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 //DDTEMPR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.TEMPR1 <=== TEMP //DDSORTR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.SORTR1 <=== SORT //DDPLOGR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR1 <=== PLOG 1 //DDPLOGR2 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.PLOGR2 <=== PLOG 2 //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAPRI,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAPRI ASSOPRI DEVICE=eeee,FROMRABN=1,TORABN=1 /*
Refer to ADAPRI in the JOBS data set for this example.
File | Symbolic Name | Storage | More Information |
---|---|---|---|
Files containing the blocks to be printed | ASSORn DATARn WORKR1 TEMPR1 SORTR1 CLOGRn PLOGRn SIMR1 |
disk disk disk disk disk disk disk disk |
Associator Data Storage* Work* Temp Sort Multiple command log Multiple protection log DSIM data set |
Recovery log (RLOG) | RLOGR1 | disk | Required when using ADARAI |
ADARUN messages | SYSLST | printer | Messages and Codes |
ADAPRI messages | SYS009 | printer | Messages and Codes |
ADARUN parameters | SYSRDR CARD | reader tape/ disk | Operations |
ADAPRI parameters | SYSIPT | reader |
* When printing blocks from Data Storage or Work, the JCS statement for the Associator must also be present.
See Library and File Procedures for z/VSE Examples for descriptions of the z/VSE procedures (PROCs).
* $$ JOB JNM=ADAPRI,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAPRI * MAINTENANCE PRINT // EXEC PROC=ADAVvLIB // EXEC PROC=ADAVvFIL // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAPRI,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* ADAPRI ASSOPRI DEVICE=eeee,FROMRABN=1,TORABN=1 /* /& * $$ EOJ
Refer to member ADAPRI.X for this example.