.; [7,5]DISKRPT.CMD - 15MAY81 - RDT
.; CREATE DISK SPACE REPORT
.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.SETS	OLDUIC	<UIC>
.SETS	TBCUIC	"[7,5]"	! UIC FOR TB.CMD
SET /UIC=[7,11]		! SET TO PRIVILEGED WORKING ACCOUNT
PIP TB.LST;*/DE/NM
@'TBCUIC'TB
SET /UIC='$DSAC'	! SET TO ACCOUNT FOR DISK USAGE FILES 
PIP TOTALBLK.DAT/CD=TB'$YMD'.DAT
RUN DISKUSAGE
PIP TB'$YMD'.TBL/NV/RE=TOTALBLK.TBL
PIP TOTALBLK.DAT;*/DE
PIP TB'$YMD'.TBL/SP
.;
SET /UIC='OLDUIC'