In the following example, IRRUT200 copies a RACF® data set to the SYSUT1 data set. A summary listing of all the index blocks is printed. Any BAM block that contains conflicts is also printed with a table of the locations of the conflicts.

//VERIFY    JOB
//STEP      EXEC   PGM=IRRUT200
//SYSRACF   DD     DSN=SYS1.RACF,DISP=SHR
//SYSUT1    DD     UNIT=SYSDA,SPACE=(CYL,(10)),
//                 DCB=(LRECL=4096,RECFM=F)
//SYSUT2    DD     SYSOUT=A
//SYSPRINT  DD     SYSOUT=A
//SYSIN     DD     *
    INDEX
    MAP
    END
/*

In the following example, IRRUT200 synchronizes the primary and backup RACF data sets. Before you submit this JCL, you must issue an RVARY command to make the backup data set inactive. After running the job, the backup will be a copy of the primary, and both data sets will be active.

//COPYDS  JOB  ,'RACF SYNCHRONIZE BACKUP',
//     MSGLEVEL=(1,1),TYPRUN=HOLD
//STEP    EXEC  PGM=IRRUT200,PARM='ACTIVATE'
//SYSRACF DD    DSN=SYS1.RACF,DISP=SHR
//SYSUT1  DD    DSN=SYS1.RACF.BACKUP,DISP=OLD
//SYSUT2  DD    SYSOUT=A
/*