Mass Job Rename Utility › Database Rename Process (CAL2JRXD) › CAL2JRXD Process JCL

CAL2JRXD Process JCL

The following JCL can be used to run the CAL2JRXD process. A copy of this JCL can be found in member AL2ZJRND in the CA Workload Automation SE JCL library (CAL2JCL).

//JOBX      JOB  .................
//********************************************************************
//*           CA 7 MASS JOB RENAME (DATA BASE)
//********************************************************************
//JRXD1    EXEC PGM=CAL2JRXD
//STEPLIB  DD   DISP=SHR,DSN=cai.CAL2LOAD
//SYSUDUMP DD   SYSOUT=*
//SUMMARY  DD   SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//SYSPRINT DD   SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//*-------------------------------------------------------------------
//* DBIN IS THE SEQUENTIAL DATA BASE BACKUP INPUT (IDCAMS OR SASSBK00)
//* DBOUT IS THE SEQUENTIAL DATA BASE BACKUP OUTPUT (CONVERTED)
//*          TO JUST GET THE CHANGE REPORT KEEP DBOUT DUMMIED.
//*-------------------------------------------------------------------
//DBIN     DD   DISP=SHR,DSN=...SASSBK00 OR IDCAMS BACKUP...
//DBOUT    DD   DISP=(NEW,PASS),DSN=&&CHANGED,
//           UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE),
//           DCB=(RECFM=VB,LRECL=4096,BLKSIZE=23476)
//*-------------------------------------------------------------------
//* RENAMES : CONTROL CARD INPUT TO SPECIFY JOB NAMES TO BE CHANGED
//*-------------------------------------------------------------------
//RENAMES  DD   *
   THIS LINE IS A COMMENT SINCE COLUMN ONE IS BLANK
OLDNAME1 NEWNAME1
OLDNAME2 NEWNAME2
...ETC.. ..ETC...
/*
//*----------------------------------------------------------------***
//* SORT CONVERTED CA 7 DATA BASE BACKUP AFTER MASS RENAME
//*----------------------------------------------------------------***
//SORT   EXEC  PGM=SORT,PARM='CORE=MAX,BIAS=1000'
//SORTIN   DD  DISP=(OLD,PASS),DSN=&&CHANGED
//SORTOUT  DD  DSN=...CONVERTED.AND.SORTED.BACKUP...,
//           DISP=(NEW,CATLG,DELETE),
//           UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE),
//           DCB=(RECFM=VB,LRECL=4096,BLKSIZE=23476)
//SYSIN    DD  *
    SORT   FIELDS=(5,60,CH,A)
    RECORD TYPE=VB,LENGTH=(4096,,,80,320)
/*
//SYSOUT   DD  SYSOUT=*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,10,,CONTIG)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,10,,CONTIG)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,10,,CONTIG)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,10,,CONTIG)
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,10,,CONTIG)
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,10,,CONTIG)
//