Converting to DFSMSrmm from ASG-ZARA or AutoMedia

344 Converting to DFSMSrmm from ASG-ZARA or AutoMedia

8.1 EDGRMMxx PARMLIB options

In this section we describe the steps you must follow to set up your system for

production cutover and remove AutoMedia or ASG-ZARA.

Your DFSMSrmm system is probably running in record-only or warning mode,

because during the parallel running and validation phase you had to check for

differences and verify the correct conversion of the vendor database.

The next time you start or restart DFSMSrmm, you must change several

PARMLIB options to use DFSMSrmm with the full set of functions active.

Example 8-1 shows a sample EDGRMMxx PARMLIB member for running

DFSMSrmm in

protect mode. Parameters that affect protect mode running are

highlighted.

Example 8-1 Sample EDGRMMnn PARMLIB member for PROTECT mode

OPTION OPMODE(P) /* Protect Mode */ -

ACCOUNTING(J) /* Accounting from JOB */ -

BACKUPPROC(EDGBKUP) /* Name of BACKUP-proc */ -

BLP(RMM) /* DFSMSrmm controls BLP */ -

CATRETPD(0012) /* catalog retention */ -

CATSYSID(*) /* all catalogs shared */ -

CDSID(PROD) /* control data set id */ -

COMMANDAUTH(OWNER) /* type of authorization */ -

DATEFORM(J) /* Date format */ -

DISPDDNAME(LOANDD) /* DISP ctrl DD card */ -

DISPMSGID(EDG4054I) /* DISP message number */ -

DSNAME(RMM.PROD.CDS) /* CDS data set name */ -

IPLDATE(N) /* IPL date checking */ -

JRNLNAME(RMM.PROD.JRNL) /* JRNL data set name */ -

JOURNALFULL(75) /* Percentage JRNL full */ -

LINECOUNT(054) /* Lines per page */ -

MASTEROVERWRITE(LAST) /* Overwriting of a vol */ -

MAXHOLD(100) /* Number of I/O oper. */ -

MAXRETPD(NOLIMIT) /* Maximum retention */ -

MEDIANAME(3480) /* spec. how to move vols */ -

MOVEBY(VOLUME) /* spec. how to move vols */ -

MSG(M) /* case for message txt */ -

NOTIFY(Y) /* Notify volume owners */ -

PDA(OFF) /* PDA is disabled */ -

PDABLKCT(255) /* number of blocks */ -

PDABLKSZ(31) /* bloksize in K */ -

PDALOG(OFF) /* PDA output disabled */ -

PREACS(YES) /* enable EDGUX100 ACS proc.*/ -

RETAINBY(VOLUME) /* spec. how to retain vols */ -

RETPD(0005) /* Default retention */ -

REUSEBIN(STARTMOVE) /* reuse BIN as soon as pos.*/ -

Chapter 8. Cutover to production 345

SCRATCHPROC(EDGXPROC) /* ATL/MTL procedure */ -

SMFAUD(248) /* SMF audit records */ -

SMFSEC(249) /* SMF security records */ -

SMSACS(YES) /* enable MV ACS processing */ -

/* SMSTAPE(UPDATE(EXITS,SCRATCH,COMMAND),PURGE(YES)) ATL*/ -

SYSID(EGZB) /* Name of the system */ -

TPRACF(A) /* RACF tape support */ -

TVEXTPURGE(RELEASE) /* set an expiration date */ -

UNCATALOG(Y) /* Catalog support */ -

VRSCHANGE(VERIFY) /* No additional action */ -

VRSEL(NEW) /* New VRS processing */ -

VRSJOBNAME(2) /* DATASETNAME/JOBNAME */ -

VRSMIN(0000000100,WARN) /* Warn if < 100 VRSs */

/* ******************************************************************** */

MNTMSG MSGID(IEF233A) ID(001) VOLUME(016) RACK(016)

MNTMSG MSGID(IEF233D) ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID('IEF234E K') ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID('IEF234E R') ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID('IEF234E D') ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID(IEF455D) ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID(IEC501A) ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID('IEC502E K') ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID('IEC502E D') ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID('IEC502E R') ID(001) VOLUME(016) RACK(999)

MNTMSG MSGID('IEC502E RD') ID(001) VOLUME(017) RACK(999)

MNTMSG MSGID('IEC502E RK') ID(001) VOLUME(017) RACK(999)

MNTMSG MSGID(IAT5110) ID(001) VOLUME(044) RACK(999)

MNTMSG MSGID(IAT5210) ID(001) VOLUME(050) RACK(999)

MNTMSG MSGID(IAT5410) ID(001) VOLUME(020) RACK(999)

/* **************************************************************** */

REJECT ANYUSE(*)

/* **************************************************************** */

VLPOOL PREFIX(SC*) -

TYPE(S) -

RACF(N) -

MEDIANAME(3590) -

EXPDTCHECK(N) -

DESCRIPTION('3590 DEFAULT SCRATCH POOL')

VLPOOL PREFIX(N*) -

TYPE(R) -

RACF(N) -

EXPDTCHECK(O) -

DESCRIPTION('TEST POOL FOR NORBERT')

VLPOOL PREFIX(F*) -

TYPE(R) -

RACF(Y) -

EXPDTCHECK(Y) -

DESCRIPTION('FOREIGN CARTRIDGES')

VLPOOL PREFIX(PP*) -

346 Converting to DFSMSrmm from ASG-ZARA or AutoMedia

TYPE(R) -

RACF(Y) -

EXPDTCHECK(Y) -

DESCRIPTION('SOFTWARE CARTRIDGES')

/* **************************************************************** */

LOCDEF LOCATION(SAFE) -

TYPE(STORAGE) -

PRIORITY(2000) -

MEDIANAME(*) -

MANAGEMENTTYPE(BINS)

LOCDEF LOCATION(SANJOSE) -

TYPE(STORAGE) -

PRIORITY(2000) -

MEDIANAME(*) -

MANAGEMENTTYPE(BINS)

LOCDEF LOCATION(NEWYORK) -

TYPE(STORAGE) -

PRIORITY(2000) -

MEDIANAME(*) -

MANAGEMENTTYPE(NOBINS)

LOCDEF LOCATION(IBMATL1) -

TYPE(LIBRARY) -

PRIORITY(4800)

/* **************************************************************** */

SECCLS NUMBER(010) -

NAME(UCL) -

SMF(N) -

MESSAGE(N) -

ERASE(N) -

DESCIPTION('UNCLASSIFIED') -

MASK(’**’)

SECCLS NUMBER(050) -

NAME(IUO) -

SMF(Y) -

MESSAGE(N) -

ERASE(N) -

DESCIPTION('INTERNAL USE ONLY') -

MASK(’**.IUO.**’, -

’**.INTERNAL.**’, -

’**.INT.**’)

SECCLS NUMBER(100) -

NAME(IC) -

SMF(Y) -

MESSAGE(Y) -

ERASE(Y) -

DESCIPTION('EXTERNAL USE ONLY') -

MASK(**.IC.**)