Mass Job Rename Utility › Queue Rename Process (CAL2JRXQ) › CAL2JRXQ Process JCL

CAL2JRXQ Process JCL

The following sample JCL can be used to execute the CAL2JRXQ utility. A copy of this JCL can be found in member AL2ZJRNQ in the CA Workload Automation SE JCL library (CAL2JCL).

//JOBQ      JOB  .................
//********************************************************************
//*           CA 7 MASS JOB RENAME (QUEUES)
//********************************************************************
//JRXQ1    EXEC PGM=CAL2JRXQ
//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)
//*-------------------------------------------------------------------
//* QDUMPIN IS THE SEQUENTIAL BACKUP INPUT (CA 7 SHUTDOWN WITH DMPQ)
//* QDUMPOUT IS THE SEQUENTIAL QUEUE BACKUP OUTPUT (CONVERTED)
//*      TO JUST GET THE CHANGE REPORT KEEP QDUMPOUT DUMMIED.
//* RENAMES : CONTROL CARD INPUT TO IDENTIFY JOB NAMES TO BE CHANGED
//*-------------------------------------------------------------------
//QDUMPIN  DD   DISP=SHR,DSN=...QUEDMP FROM CA 7 SHUTDOWN...
//QDUMPOUT DD   DUMMY,DCB=(RECFM=VB,LRECL=256,BLKSIZE=6148)
//*QDUMPOUT DD  DSN=...QDMP FILE NAME OF CA 7...,
//*            DISP=(SHR,KEEP,KEEP)              <--- EXISTING FILE
//RENAMES  DD   *
   THIS LINE IS A COMMENT SINCE COLUMN ONE IS BLANK
OLDNAME1 NEWNAME1
OLDNAME2 NEWNAME2
...ETC.. ..ETC...
/*