C*	DSXMN	- MAIN ROUTINE FOR DISK STORAGE MONITOR
C
C 11/21/79	LEN	- ADDED NWSTAT FOR ISTAT RECORD SIZE AND ADDED
C		CALL TO DSMCHK TO CHECK DISK ALLOCATION RECORDS.
C 12/10/79	LEN	- REMOVED DB1: FROM LIST OF DEVICES
C
	PROGRAM DSX
C
	INCLUDE 'DSMCM.COM'
C
	DATA IDEV/'DB',0, 'DB',2, 0,0/
	DATA MAXDEV/2/, MAXUIC/300/, IDTTM/9*'  '/
	DATA LBTF/.FALSE./
C
	CALL DATE (IDTTM)
	CALL TIME (IDTTM(6))
C
	CALL DSMPRS (ISTDEV, IENDEV)
	CALL DSXFBI
C
	DO 400 NDEV = ISTDEV, IENDEV
D	GO TO 400
D9000	CONTINUE
	IUDEV = IDEV(1,NDEV)
	IUNIT = IDEV(2,NDEV)
	NFO = 0
	NERUIC = 0
	CALL SIVFL (0, ISTAT, NWSTAT*MAXUIC)
	KSA	= 0
	KSU	= 0
	NFILSU	= 0
	CALL DSMUIC (NDEV)
	CALL DSMTB (NDEV)
	IF (NERUIC .NE. 0) WRITE (6, 520) NERUIC
 520	FORMAT (/' ',I3, ' UIC''S COULD NOT FIT IN ISTAT TABLE',
	1	' REBUILD DSX WITH LARGER MAXUIC SIZE')
C
 400	CONTINUE
C
	IF (LBTF) CALL DSXFBP
C
	STOP 'BLOCK NOT FOUND ON DIRECTORY, WAS [*,*] SELECTED ?'
C
	END