Mass Job Rename Utility › ARF Process (CAL2JRXA) › CAL2JRXA Process JCL

CAL2JRXA Process JCL

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

//JOBX      JOB  .................
//********************************************************************
//*           CA 7 MASS JOB RENAME (ARF)
//* USE THIS MODEL JCL TO CHANGE LARGE NUMBERS OF JOBNAMES.  JOBNAMES
//* WILL BE CHANGED IN EVERY ARF ELEMENT WHERE THEY APPEAR.
//* INPUT TO THE PROCESS IS A SEQUENTIAL ARF FILE BACKUP.
//* OUTPUT FROM THE PROCESS IS AN UPDATED ARF BACKUP SUITABLE FOR
//* RELOADING.
//********************************************************************
//JRXV1    EXEC PGM=CAL2JRXA
//STEPLIB  DD   DISP=SHR,DSN=cai.CAL2LOAD
//SYSUDUMP DD   SYSOUT=*
//*-------------------------------------------------------------------
//* SUMMARY WILL HAVE THE PROCESS CONTROL REPORT WITH TOTALS.
//* SYSPRINT WILL HAVE THE PROCESSING REPORT DETAILING
//* INDIVIDUAL RECORD CHANGES AND A RECORD CHANGE SUMMARY.
//*-------------------------------------------------------------------
//SUMMARY  DD   SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//SYSPRINT DD   SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//*-------------------------------------------------------------------
//* ARFIN IS THE SEQUENTIAL IDCAMS ARF BACKUP INPUT
//*-------------------------------------------------------------------
//ARFIN    DD   DISP=SHR,DSN=...IDCAMS BACKUP...
//*-------------------------------------------------------------------
//* ARFOUT IS THE SEQUENTIAL ARF BACKUP OUTPUT (CONVERTED);
//*      TO JUST GET THE CHANGE REPORT KEEP ARFOUT DUMMIED.
//* TO CREATE THE OUTPUT FILE, USE THE SAME SIZE AND
//*      DCB CHARACTERISTICS AS ARFIN ABOVE; CHECK THE SPACE PARM.

//*-------------------------------------------------------------------
//*RFOUT    DD   DUMMY,DCB=(RECFM=VB,LRECL=32700,BLKSIZE=32704)
//ARFOUT   DD  DSN=...CONVERTED.ARF.OUPUT...,
//           DISP=(NEW,CATLG,DELETE),
//           UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE),
//           DCB=(RECFM=VB,LRECL=32700,BLKSIZE=32704)
//*-------------------------------------------------------------------
//* RENAMES IS THE CONTROL CARD INPUT TO SPECIFY JOB NAMES TO BE
//* CHANGED.  INPUT CAN BE INSTREAM (LIKE SYSIN), OR THE DD CAN
//* POINT TO A DATA SET OR PDS MEMBER (AS LONG AS LRECL=80).
//* ANY LINES THAT START WITH A BLANK OR ASTERISK ARE COMMENTS.
//*
//* COLUMNS  1 -  8      OLD JOB NAME
//* COLUMN     9           BLANK
//* COLUMNS 10 - 17      NEW JOB NAME
//* COLUMN    18           BLANK
//* COLUMNS 19 - 80      COMMENT AREA
//*
//* RIGHT NOW YOU CANNOT USE ANY GENERICS OR WILDCARDS.
//*-------------------------------------------------------------------
//RENAMES  DD   *
   THIS LINE IS A COMMENT SINCE COLUMN ONE IS BLANK
OLDNAME1 NEWNAME1
OLDNAME2 NEWNAME2
...ETC.. ..ETC...
/*
//