//SECJOB01 JOB (SEC),'SECURITY CHECK',CLASS=A,MSGCLASS=X
//STEP010  EXEC PGM=IDCAMS
//SYSIN    DD *
  DELETE SYS1.RACF.BACKUP PURGE
/*
//STEP020  EXEC PGM=IEBGENER
//SYSUT1   DD DSN=SYS1.RACF.BACKUP,DISP=OLD
//SYSUT2   DD DSN=HR.PROD.PAYROLL.EXTRACT,DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(2,1)),UNIT=SYSDA
NONVSAM ------- SYS1.RACF.BACKUP
     IN-CAT --- CATALOG.SECURE
NONVSAM ------- HR.PROD.PAYROLL.EXTRACT
     IN-CAT --- CATALOG.HR