In this example, you intended to run IRRUT400 to lock your test database, but you accidentally locked your production database instead. You want to unlock the database as quickly as possible. IRRUT400 unlocks the database so it can resume normal RACF® database update processing. Because the database is not being copied, IRRUT400 can unlock it quickly.

//J5      JOB
//        EXEC   PGM=IRRUT400,PARM='UNLOCKINPUT'
//SYSPRINT    DD SYSOUT=A
//INDD1       DD DSN=SYS1.RACF,DISP=OLD