JCL Requirements and Examples

This section describes the job control information required to run ADAORD on the z/OS operating system and shows examples of 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:

Requirements to Run ADAORD JCL

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

ADAORD JCL Examples

Reorder File Associator

//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.

Reorder File Data Storage, Reorder File, Reorder Data, Reorder Database 

//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.

Restructure

//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.

Store

//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.