Using the Tape Retention System (TRS) › Running the Tape Retention System › CATTRS Procedure JCL

CATTRS Procedure JCL

//***************************************************************
//*             ****  PROCNAME=CATTRS  ****                     *
//***************************************************************
//** PROCEDURE TO EXECUTE CA TLMS TAPE RETENTION SYSTEM-TLMSTRS *
//***************************************************************
//CATTRS   PROC A='*',
//             BLK1='2760',
//             BLK2='3600',
//             BLK3='3510',
//             BLK4='4080',
//             BUFNO='80',
//             LOAD='CAI.CTAPLINK',
//             OPTS='CAI.CTAPOPTN(TLMSIPO)',
//             RMF='CAI.TLMS.RMF',
//             SORTLIB='SYS1.SORTLIB',
//             SPC1='(CYL,(5,1))',
//             SPC2='(CYL,(10),,CONTIG)',
//             PRM='100,100,50',
//             VMF='CAI.TLMS.VMF',
//             WORK='SYSDA'
//*
//TLMSTRS  EXEC PGM=TLMSTRS,
//             PARM='&PRM. '   BLANK FOLLOWING &PRM. REQUIRED
//*
//***************   PRM='XXXX,YYYY,ZZZZ '  **********************
//**** WHERE  XXXX = NUMBER OF ENTRIES IN FULLY QUALIFIED TABLE *
//****        YYYY = NUMBER OF ENTRIES IN GLOBAL TABLE          *
//****        ZZZZ = NUMBER OF ENTRIES IN LOCATION TABLE        *
//**** OMITTED PARM TAKE DEFAULTS   PRM='825,,25'               *
//***************************************************************
//STEPLIB  DD  DSN=&LOAD.,DISP=SHR
//*
//TLMSOPTS DD  DSN=&OPTS.,DISP=SHR
//*
//SORTLIB  DD  DSN=&SORTLIB.,DISP=SHR
//*
//CAIVMF   DD  DSN=&VMF.,DISP=SHR
//*
//CAIVMFS  DD  DSN=&VMF.,DISP=SHR,
//             DCB=(BUFNO=&BUFNO.,OPTCD=C)
//*
//CAIRMF   DD  DSN=&RMF.,DISP=OLD
//*
//VMFTRANS DD  DSN=&.&TRANS.,
//             DISP=(,PASS,DELETE),
//             UNIT=&WORK.,
//             SPACE=&SPC2.,
//             DCB=BLKSIZE=&BLK4.
//*
//SYSPRINT DD  DCB=BLKSIZE=133,SYSOUT=&A.
//*
//SYSOUT   DD  SYSOUT=&A.
//*
//SYSUDUMP DD  SYSOUT=&A.
//*
//TRETWORK DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.

//*
//LOG1FILE DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//LOG2FILE DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//LOG3FILE DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//LOG4FILE DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//LOG5FILE DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//LOG6FILE DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//MOVEFILE DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//ALLSTOR  DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK2.
//*
//USEDSTOR DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK3.
//*
//AVBLSTOR DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK2.
//*
//TEMPRPTS DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//TYPERPT  DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//TRETSORT DD  UNIT=&WORK.,
//             SPACE=&SPC1.,
//             DCB=BLKSIZE=&BLK1.
//*
//SORTWK01 DD  UNIT=&WORK.,
//             SPACE=&SPC2.
//*
//SYSIN    DD  DUMMY
//*
//************************************************************
//* STEP TLMSTRAN APPLIES TRANSACTIONS TO VOLUME MASTER FILE *
//*  *** NOTE THAT THE ON-LINE RECORDER MUST BE ACTIVE  ***  *
//*  *** AND THAT TRANSACTIONS ARE APPLIED TO THE VMF   ***  *
//*  *** POINTED TO BY THE ONLINE RECORDER.             ***  *
//************************************************************
//TLMSTRAN EXEC PGM=TLMSTRAN,
//             COND=(4,LT)
//*
//STEPLIB  DD  DSN=&LOAD.,DISP=SHR
//*
//SYSPRINT DD  DCB=BLKSIZE=133,SYSOUT=&A.
//*
//TLMSOPTS DD  DSN=&OPTS.,DISP=SHR
//*
//VMFTRANS DD  DSN=&.&TRANS.,DISP=(OLD,DELETE)
//*
//SYSUDUMP DD  SYSOUT=&A.
//*
//************************************************************