Version 8.2.4 SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAORD 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 (ADARAI) for RESTRUCTURExx or STORE functions, all temporary data sets must also be cataloged in the job control.

This document covers the following topics:

BS2000

Data Set Link Name Storage More Information
Associator DDASSORn disk  
Data Storage DDDATARn disk  
Intermediate storage DDFILEA tape/ disk  
Recovery log (RLOG) DDRLOGR1 disk Required when using the
ADARAI option
ADARUN parameters SYSDTA/ DDCARD   Operations
ADAORD parameters SYS/DTA/DDKARTE    
ADARUN messages SYSOUT/ DDPRINT   Messages and Codes
ADAORD messages SYSLST/ DDDRUCK   Messages and Codes

ADAORD JCL Examples (BS2000)

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

In SDF Format:

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE DATA, REORDER FILE, REORDER DATA
 /REMARK * REORDER DATABASE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.DATA
 /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
 /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORDATA FILE=1,DSSIZE=80,DATAPFAC=30
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE DATA, REORDER FILE, REORDER DATA
 /REMARK * REORDER DATABASE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.DATA
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORDATA FILE=1,DSSIZE=80,DATAPFAC=30
 /LOGOFF NOSPOOL

Reorder Associator

In SDF Format:

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE ASSO, REORDER ASSO
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.REOR
 /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
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORFASSO
 ADAORD FILE=1,MAXISN=20000,NISIZE=300B
 ADAORD FILE=3,NISIZE=400B,ASSOPFAC=2
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D REORDER FILE ASSO, REORDER ASSO
 /REMARK *
 /SYSFILE SYSLST=L.ORD.REOR
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD REORFASSO
 ADAORD FILE=1,MAXISN=20000,NISIZE=300B
 ADAORD FILE=3,NISIZE=400B,ASSOPFAC=2
 /LOGOFF NOSPOOL

Restructure

In SDF Format:

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D RESTRUCTURE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.REST
 /ASS-SYSDTA *SYSCMD
 /SET-FILE-LINK DDLIB,ADAvrs.MOD
 /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD RESTRUCTUREF
 ADAORD FILE=1,DATADEV=dddd
 /LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D RESTRUCTURE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.REST
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD RESTRUCTUREF
 ADAORD FILE=1,DATADEV=dddd
 /LOGOFF NOSPOOL

Store

Tape Example In SDF Format:

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /REMARK Here, a tape has already been initialized in TSOS by
 /REMARK  /START-INIT                                       
 /REMARK  INIT T-C4,VSN=ADA001,UNIT=M0 or M1
 /REMARK  END  
 /CREATE-FILE ADAyyyyy.FILEA,SUP=TAPE(DEVICE=TAPE-C4,VOL=ADA001)
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.STOR
 /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
 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES
 /REMARK Do not set the BUFFER-SIZE option for this file
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA 
 /REMARK
 /REMARK  Here, using TAPEREL=NO, the tape will remain
 /REMARK  mounted This must be done from the console.
 /REMARK  if the tape is to be dismounted, omit this
 /REMARK  parameter
 /REMARK              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF SYS-OUTPUT=DEL

Tape Example In ISP Format:

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.STOR
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES
 /REMARK Here, a tape has already been initialized in TSOS by
 /REMARK  /START-INIT                                       
 /REMARK  INIT T-C4,VSN=ADA001,UNIT=M0 or M1
 /REMARK  END  
 /REMARK Do not set the BLKSIZE option for this file
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,DEVICE=TAPE-C4,VOLUME=ADA001,LABEL=STD
 /REMARK
 /REMARK  Here, using TAPEREL=NO, the tape will remain
 /REMARK  mounted This must be done from the console.
 /REMARK  if the tape is to be dismounted, omit this
 /REMARK  parameter
 /REMARK      
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF NOSPOOL

Non-Tape Example In SDF Format:

/.ADAORD LOGON
 /MODIFY-TEST-OPTIONS DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /DELETE-FILE ADAyyyyy.FILEA
 /SET-JOB-STEP
 /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
 /SET-JOB-STEP
 /ASS-SYSLST L.ORD.STOR
 /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
 /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,SHARE-UPD=YES
 /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA              
 /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF SYS-OUTPUT=DEL

Non-Tape Example In ISP Format:

/.ADAORD LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A O R D STORE
 /REMARK *
 /SYSFILE SYSLST=L.ORD.STOR
 /FILE ADA.MOD,LINK=DDLIB
 /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
 /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
 /FILE ADAyyyyy.RLOGR1 ,LINK=DDRLOGR1,SHARUPD=YES
 /FILE ADAyyyyy.FILEA ,LINK=DDFILEA ,SPACE=(4800,480)
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADAORD,DB=yyyyy,IDTNAME=ADABAS5B
 ADAORD STORE
 ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234
 ADAORD MAXISN=200000
 /LOGOFF NOSPOOL

Top of page

z/OS

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 (z/OS)

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.

Top of page

z/VSE

File Symbolic Name Storage Logical Unit More Information
Associator ASSORn disk *  
Data Storage DATARn disk *  
Intermediate Storage FILEA tape
disk 		SYS010
* 		 
Recovery log (RLOG) RLOGR1 disk   Required when using the ADARAI option
ADARUN parameters -
CARD
CARD 		reader
tape
disk 		SYSRDR
SYS000
* 		 
ADAORD parameters   reader SYSIPT  
ADARUN messages   printer SYSLST Messages and Codes
ADAORD messages   printer SYS009 Messages and Codes

* Any programmer logical unit may be used.

ADAORD JCS Examples (z/VSE)

See Library and File Procedures for z/VSE Examples for a description of the z/VSE procedures (PROCs).

Refer to the following members for these examples:

Example Member
Reorder File Associator ADAORDA.X
Reorder File Data Storage ADAORDD.X
Restructure ADAORDR.X
Store Files ADAORDS.X

Reorder File Associator

* $$ JOB JNM=ADAORDA,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDA
*       REORDER THE ASSOCIATOR.
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,DISK,VOL=DISK01,SHR
// DLBL FILEA,'ADABAS.ADAvrs.TEMP'
// EXTENT SYS010,DISK01,1,0,sssss,nnnnn
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD REORFASSO
ADAORD FILE=1,ASSOPFAC=15,MAXISN=10000
/*
/&
* $$ EOJ

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

* $$ JOB JNM=ADAORDD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDD
*       REORDER DATA STORAGE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPE cuu
// MTC REW,SYS010
// MTC WTM,SYS010,5
// MTC REW,SYS010
// TLBL FILEA,'ADABAS.ADAvrs.TEMP'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD REORDATA
ADAORD FILE=1,DSSIZE=80,DATAPFAC=30
/*
/&
* $$ EOJ

Restructure

* $$ JOB JNM=ADAORDR,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDR
*       RESTRUCTURE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPE cuu
// MTC REW,SYS010
// MTC WTM,SYS010,5
// MTC REW,SYS010
// TLBL FILEA,'ADABAS.ADAvrs.TEMP'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD RESTRUCTUREF
ADAORD FILE=1,DATADEV=eeee
/*
/&
* $$ EOJ

Store Files

* $$ JOB JNM=ADAORDS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
// JOB ADAORDS
*       STORE
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE,D0
// PAUSE MOUNT SCRATCH TAPE ON TAPE cuu
// MTC REW,SYS010
// MTC WTM,SYS010,5
// MTC REW,SYS010
// TLBL FILEA,'ADABAS.ADAvrs.TEMP'
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADAORD,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADAORD STORE
ADAORD FILE=1,DSSIZE=80,DATAPFAC=30,DSRABN=1234,MAXISN=200000
/*
/&
* $$ EOJ

Top of page

 www.softwareag.com  Copyright © 1971-2012 Software AG, Darmstadt, Germany.   SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT