//DEFUCAT JOB  DEFUCAT,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),REGION=3072K
//DEFUCAT EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//WORK01   DD  UNIT=3350,VOL=SER=WORK01,DISP=SHR
//SYSIN    DD  *
  DEFINE UCAT ( NAME (UCWORK01)     -
                FILE (WORK01)            -
                VOL (WORK01)             -
                CYL (10)                 -
                BUFSP (8192)             -
                NRVBL                    -
              )
/*