C**************************************************************
C
C	TITLE --  DSKID  (FLX)
C
C	FUNCTION -- LIST LABELS AND CREATION DATES OF MOUNTED DISKS
C
C	ORIGINAL VERSION -- 8/12/79
C
C	ORIGINAL PROGRAMMER -- PMC
C
C	LAST CHANGE DATE, BY --
C
C**************************************************************
C
	BYTE BBUF(512),CBUF(512),STAT(4)
	INTEGER IOSTAT(2)
	EQUIVALENCE(IOSTAT(1),STAT(1))
	EQUIVALENCE(CBUF(2),BBUF(4))
101	FORMAT('0DP',I1,':',T7,12A1,T22,2A1,'-',3A1,'-',2A1,
	1 2X,2A1,2(':',2A1))
102	FORMAT(
	1'0DP',I1,': NOT MOUNTED, NOT MOUNTED [FOR], OR NOT',
	1' MOUNTED [DCF]')
103	FORMAT('0DISK LABELS AND CREATION DATES ARE:')
104	FORMAT('0')
	WRITE (1,103)
	DO (I=0,2)
	CALL ASNLUN(2,'DP',I)
	CALL RLB(2,BBUF,0,1,IOSTAT,DSW)
	WHEN (STAT(1).GE.0)
	WRITE (1,101) I,((CBUF(J)),J="15,"30),((CBUF(J)),J="73,"107)
	FIN
	ELSE WRITE (1,102) I
	CALL CLOSE(2)
	FIN
	WRITE (1,104)
	STOP
	END