This section describes the job control information required to run ADAWRK on z/OS systems and shows examples of z/OS job streams.
This document covers the following topics:
| Data Set | DD Name | Storage | More Information |
|---|---|---|---|
| Associator | DDASSORn | disk | Not required if the NOPPT parameter is specified |
| Work | DDWORKRn | disk | Multiple work data sets must be provided for a cluster nucleus |
| ADARUN parameters | DDCARD | reader | Operations |
| ADAWRK parameters | DDKARTE | reader | |
| ADARUN messages | DDPRINT | printer | Messages and Codes |
| ADAWRK messages | DDDRUCK | printer | Messages and Codes |
The following example produces a Summary report. Refer to member ADAWRKJ in the JOBS data set for this example.
//ADAWRK JOB //* //* ADAWRK: ALL FUNCTIONS //* //WRK EXEC PGM=ADARUN //STEPLIB DD DISP=SHR,DSN=ADABAS.ADAvrs.LOAD <=== ADABAS LOAD //* //DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO //DDWORKR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAWRK SUMMARY=YES /*
The following example will produce a Summary and Transaction report. The Transaction report will provide a full report of all of the transactions that are on the Work data sets provided. Refer to member ADAWRKT in the JOBS data set for this example.
//ADAWRK JOB //* //* ADAWRK: PRINT ALL RELEVANT TRANSACTIONS ON WORK //* //WRK EXEC PGM=ADARUN //STEPLIB DD DISP=SHR,DSN=ADABAS.ADAvrs.LOAD <=== ADABAS LOAD //* //DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO //DDWORKR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAWRK TRANSACTIONS=FULL /*
The following example produces a Summary, Transaction, and File report, including a full report of all transactions that are on the Work data sets. However only Work data set records for files 1, 2, 3, 4, 5, and 10 will be processed and reported by the utility. In addition, note the absence of an Associator data set in the sample JCL -- this is due to the NOPPT parameter which specifies that no PPT should be used for the run, and therefore no Associator data set is required.
//ADAWRK JOB //* //* ADAWRK: PRINT ALL RELEVANT TRANSACTIONS ON WORK //* //WRK EXEC PGM=ADARUN //STEPLIB DD DISP=SHR,DSN=ADABAS.ADAvrs.LOAD <=== ADABAS LOAD //* //DDWORKR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK //DDDRUCK DD SYSOUT=X //DDPRINT DD SYSOUT=X //SYSUDUMP DD SYSOUT=X //DDCARD DD * ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy /* //DDKARTE DD * ADAWRK NOPPT ADAWRK FORCE=YES ADAWRK FILES=1-4,5,10 ADAWRK TRANSACTIONS=FULL ADAWRK REPORTFILE=YES /*
| File | Symbolic Name | Storage | Logical Unit | More Information |
|---|---|---|---|---|
| Associator | ASSOR n | disk | * | Not required if the NOPPT parameter is specified |
| Work | WORKRn | disk | * | Multiple work data sets must be provided for a cluster nucleus |
| ADARUN parameters | reader tape disk |
SYSRDR SYS000 * |
Operations | |
| ADAWRK parameters | reader | SYSIPT | ||
| ADARUN messages | printer | SYSLST | Messages and Codes | |
| ADAWRK messages | printer | SYS009 | Messages and Codes |
* Any programmer logical unit may be used.
The following example produces a Summary report. Refer to member ADAWRKJ.X for this example.
* $$ JOB JNM=ADAWRKJ,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAWRKJ EXECUTE THE ADABAS UTILITY ***WRK*** // OPTION LOG,PARTDUMP * * ****************************************************************** * SAMPLE JOB STREAM TO USE THE ADABAS UTILITY ADAWRK * PRINT SUMMARY REPORT * ****************************************************************** // EXEC PROC=ADAVVLIB <====== // EXEC PROC=ADAVVFIL <====== * * ****************************************************************** * DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY * ****************************************************************** // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy <====== /* ADAWRK SUMMARY=YES <====== /* /& * $$ EOJ
The following example will produce a full Transaction report. The Transaction report will provide a full report of all of the transactions that are on the Work data sets provided. Refer to member ADAWRKT.X for this example.
* $$ JOB JNM=ADAWRKT,CLASS=A,DISP=D * $$ LST CLASS=A,DISP=D // JOB ADAWRKT EXECUTE THE ADABAS UTILITY ***WRK*** // OPTION LOG,PARTDUMP * * ****************************************************************** * SAMPLE JOB STREAM TO USE THE ADABAS UTILITY ADAWRK * PRINT ALL RELEVANT TRANSACTIONS ON WORK * ****************************************************************** // EXEC PROC=ADAVVLIB <====== // EXEC PROC=ADAVVFIL <====== * * ****************************************************************** * DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY * ****************************************************************** // EXEC ADARUN,SIZE=ADARUN ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy <====== /* ADAWRK TRANSACTIONS=FULL <====== /* /& * $$ EOJ
| Data Set | Link Name | Storage | More Information |
|---|---|---|---|
| Associator | DDASSORn | disk | |
| Work | DDWORKR1 DDWORKR4 |
disk | |
| ADARUN parameters | SYSDTA/ DDCARD | Operations | |
| ADALOD parameters | SYSDTA/ DDKARTE | ||
| ADARUN messages | SYSOUT/ DDPRINT | ADALOD report, see also Messages and Codes | |
| ADALOD messages | SYSLST/ DDDRUCK | Messages and Codes |
/BEGIN-PROC C /MOD-TEST DUMP=YES /REMARK * /REMARK * ADAWRK: ALL FUNCTIONS /REMARK * /ASS-SYSLST L.WRKJ /ASS-SYSDTA *SYSCMD /SET-FILE-LINK DDLIB,ADABAS.MOD /SET-FILE-LINK DDASSOR1,ADA99.ASSO /SET-FILE-LINK DDWORKR1,ADA99.WORK /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES) ADARUN PROG=ADAWRK,DB=99,MODE=MULTI ADAWRK SUMMARY=YES /ASS-SYSDTA *PRIM /ASS-SYSLST *PRIM /END-PROC
