//PAYCAT01 JOB (ACCT),'DATASET DOCTOR',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//STEP010  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  LISTCAT ENT(PAYROLL.PROD.MASTER) ALL
  LISTCAT LEVEL(PAYROLL.PROD.GDG) ALL
  DELETE PAYROLL.PROD.OLD.MASTER PURGE
/*
//STEP020  EXEC PGM=SORT
//SORTIN   DD DSN=PAYROLL.PROD.INPUT(+0),DISP=SHR
//SORTOUT  DD DSN=PAYROLL.PROD.OUTPUT(+1),DISP=(CATLG,CATLG,DELETE),SPACE=(TRK,(1,1)),UNIT=SYSDA
//SORTWK01 DD DSN=&&SORTWK,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(NEW,DELETE)
//STEP030  EXEC PGM=PAYLOAD
//MASTER   DD DSN=PAYROLL.PROD.MASTER,DISP=OLD
//NEWFILE  DD DSN=PAYROLL.PROD.NEWFILE,DISP=(NEW,CATLG,DELETE)
//MISSING  DD DSN=PAYROLL.PROD.MISSING,DISP=SHR
//BADNAME  DD DSN=BAD-HLQ.PAYROLL.FILE,DISP=SHR

IDCAMS  SYSTEM SERVICES                                           TIME: 08:42:10
NONVSAM ------- PAYROLL.PROD.MASTER
     IN-CAT --- CATALOG.MASTER
     VOLUMES -- PRD001
     CREATION--------2026.110    EXPIRATION------0000.000
     MANAGEMENTCLASS-PRODMC      STORAGECLASS-PRODFAST
CLUSTER ------- PAYROLL.PROD.KSDS.CUSTOMER
     IN-CAT --- CATALOG.MASTER
     CI-SPLITS-----1850     CA-SPLITS-----180
     HI-USED-RBA---0000000009500000     HI-ALLOC-RBA---0000000010000000
     FREESPACE----(10 10)   SHAREOPTIONS-(2 3)
GDG BASE ------- PAYROLL.PROD.INPUT
     LIMIT----------2        SCRATCH        NOEMPTY
IDC3012I ENTRY PAYROLL.PROD.MISSING NOT FOUND