In this example, IRRUT400 merges two previously-split data sets from the same system into a single data set. IRRUT400 first makes a test run to identify any possible inconsistencies. Data set entries with identical names, but from different RACF® data sets, are allowed.

//J3A       JOB
//          EXEC   PGM=IRRUT400,PARM='NOLOCKINPUT,DUPDATASETS'
//SYSPRINT    DD   SYSOUT=A
//INDD1       DD   DSN=SYS1.RACF1,DISP=OLD
//INDD2       DD   DSN=SYS1.RACF2,DISP=OLD

After any identified inconsistencies are corrected, IRRUT400 performs the actual merge. To improve I/O performance, the utility is to align profiles written to the output data set.

//J3B     JOB
//        EXEC   PGM=IRRUT400,PARM=('NOLOCKINPUT,DUPDA FREE(10)',ALIGN)
//SYSPRINT     DD SYSOUT=A
//INDD1        DD DSN=SYS1.RACF1,DISP=OLD
//INDD2        DD DSN=SYS1.RACF2,DISP=OLD
//OUTDD1       DD DSN=SYS2.RACF,DISP=(,KEEP),
//             UNIT=SYSDA,VOL=SER=VOL1,
//             DCB=DSORG=PSU,
//             SPACE=(CYL,10,,CONTIG)