Mass Job Rename Utility › VRM Process (CAL2JRXV) › CAL2JRXV Process JCL

CAL2JRXV Process JCL

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

//JOBX      JOB  .................
//********************************************************************
//*           CA 7 MASS JOB RENAME (VRM)
//********************************************************************
//JRXD1    EXEC PGM=CAL2JRXV
//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)
//*-------------------------------------------------------------------
//* VRMIN IS THE SEQUENTIAL IDCAMS VRM BACKUP
//* VRMOUT IS THE SEQUENTIAL VRM BACKUP OUTPUT (CONVERTED)
//*          TO JUST GET THE CHANGE REPORT KEEP VRMOUT DUMMIED.
//*-------------------------------------------------------------------
//VRMIN     DD   DISP=SHR,DSN=...IDCAMS BACKUP...
//VRMOUT    DD   DISP=(NEW,PASS),DSN=&&CHANGED,
//           UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE),
//           DCB=(RECFM=VB,LRECL=32700,BLKSIZE=32704)
//*-------------------------------------------------------------------
//* 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 VRM 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,53,CH,A)
    RECORD TYPE=VB,LENGTH=(32704)
/*
//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)
//