zOs/TX/PER18RUN

//A540769U JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DBAF
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769U.RUNSTA'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN DD *
     LISTDEF LSTA
                       INCLUDE TABLESPACE  DA540769.APER18
   OPTIONS EVENT (ITEMERROR, SKIP)

   RUNSTATS TABLESPACE LIST LSTA
     SHRLEVEL CHANGE
     INDEX(ALL KEYCARD) -- FREQVAL NUMCOLS 99 COUNT 10)
     REPORT NO  UPDATE ALL