//MVS0070 JOB  (SYSGEN),
//             'Build TSO Usercat',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(2,1),
//             COND=(0,NE),
//             REGION=1024K
//*********************************************************************
//*
//*                       MVS 3.8 Expansion
//*                       =================
//*
//* DESC: Create a user catalog for the TSO user(s)
//*       The catalog name is SYS1.UCAT.TSO
//*       It will be placed onto volume PUB000.
//*
//*
//*********************************************************************
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//PUB000   DD  UNIT=3350,VOL=SER=PUB000,DISP=SHR
//SYSIN    DD  *
 DELETE SYS1.UCAT.TSO USERCATALOG    FORCE    FILE(PUB000)
 SET LASTCC = 0
 SET MAXCC  = 0
 EXPORT SYS1.UCAT.TSO DISCONNECT
 SET LASTCC = 0
 SET MAXCC = 0
//DEFUCAT EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//PUB000   DD  UNIT=3350,VOL=SER=PUB000,DISP=SHR
//SYSIN    DD  *
  DEFINE UCAT ( NAME (SYS1.UCAT.TSO)     -
                FILE (PUB000)            -
                VOL (PUB000)             -
                CYL (10)                 -
                BUFSP (8192)             -
                NRVBL                    -
              )
