Example 2a. Splitting a database using the RANGE keyword
In this example, IRRUT400 splits a RACF® database
containing a single data set into two output data sets. IRRUT400 assigns profiles to the output data
sets using range table definitions in a member named IRRPRM02 that does not reside in the current
parmlib concatenation. The member can be found in INSTALL.WORK.PARMLIB as indicated by
RANGEDD.
//J2 JOB
// EXEC PGM=IRRUT400,REGION=0M,PARM='NOLOCKINPUT,RANGE(IRRPRM02)'
//SYSPRINT DD SYSOUT=A
//INDD1 DD DSN=SYS1.RACF,DISP=SHR
//OUTDD1 DD DSN=SYS2.RACF1,DISP=(,KEEP),
// UNIT=SYSDA,VOL=SER=VOL1,
// DCB=DSORG=PSU,
// SPACE=(CYL,5,,CONTIG)
//OUTDD2 DD DSN=SYS2.RACF2,DISP=(,KEEP),
// UNIT=SYSDA,VOL=SER=VOL2,
// DCB=DSORG=PSU,
// SPACE=(CYL,20,,CONTIG)
//RANGEDD DD DSN=INSTALL.WORK.PARMLIB,DISP=SHR