C
C	SYSREP
C
C	PROGRAM TO GENERATE REPORTS FOR BOSS
C
C	MIKE BARNES
C	UTHSCD(MCRC) APR-MAR '76
C
C	SYSREP WILL GENERATE THE FOLLOWING FILES:
C
C	SYSREP.DAT	SCHREP.DAT	DSKREP.DAT
C	PLTDAT.DAT(OPT)
C
	INCLUDE 'SYSREP.PRM'
	DOUBLE PRECISION FNAME
	CALL GETFNM(FNAME)
	OPEN(UNIT=21,FILE=FNAME,MODE='IMAGE',ACCESS='SEQIN')
	OPEN(UNIT=22,FILE='SYSREP',ACCESS='SEQOUT')
	OPEN(UNIT=23,FILE='DSKREP',ACCESS='SEQOUT')
	OPEN(UNIT=24,FILE='SCHREP',ACCESS='SEQOUT')
C
C	--GET INITIAL DATA
C
	CALL ERRSET(0)
	CALL GETDAT(1,EOF)
	CALL PLTFIL
100	FORMAT(1X,16X,'Resp',9X,'Hrdw',12X,'%',5X,'%',5X,'%'
	1,5X,'%',4X,'UUOs',2X,'CTsw',2X,'WdCl',2X,'Active'
	2,2X,'Swap',4X,'Rcv',5X,'Xmt')
110	FORMAT(1X,'From',4X'To',6X,'Time',2X,'Login',2X,'Errs'
	1,2X,'Cmnds',3X,'Idle',2X,'Lost',2X,'Ovrh',2X,'User'
	2,3X,'/sec',2X,'/sec',2X,'/sec',2X,'Lines',3X,'I/Os'
	3,3X,'Scanr',3X,'Scanr',3X,'CorMax')
	CALL OUTDAT(22)
	CALL OUTDAT(23)
	CALL OUTDAT(24)
130	FORMAT(1X,16X,'Average',3X,'Jb''s out',3X,'Requeues',3X
	1,'%')
140	FORMAT(2X,'From',4X,'To',5X,'Jb Size',3X,'of order',4X
	1,'/sec',4X
	2,'Null',3X,'EBox',3X,'MBox',3X,'Cache',/)
	WRITE(22,100)
	WRITE(22,110)
	WRITE(22,120)
120	FORMAT(1X)
	WRITE(24,130)
	WRITE(24,140)
	IF (EOF .EQ. 0) GOTO 30
40	CLOSE(UNIT=21)
	CLOSE(UNIT=22)
	CLOSE(UNIT=23)
	CLOSE(UNIT=24)
	CALL PLTOUT
	CALL CALLI("12,0)
	STOP
C
C	--NOW GET FIRST COMPARISION DATA
C
30	CALL GETDAT(2,EOF)
	IF (EOF .NE. 0) GOTO 40
	CALL DOSTF
	CALL MOVDAT
	GOTO 30
	STOP
	END

