INTEGER P(6)
	DOUBLE PRECISION END
	INTEGER REC(8)
	BYTE NAME(12),NM(9),TY(3),UICM(2),XUIC(2)
	INTEGER	TYP,F(3),F1,F2,F3,UIC
	BYTE	PP(2)
	INTEGER DMPNO
	EQUIVALENCE(UICM(1),UIC)
	EQUIVALENCE(F(1),F1),(F(2),F2),(F(3),F3)
	EQUIVALENCE(REC(3),PP(1))
	DATA	END	/'********'/
	CALL GETADR(P,END)
	P(2)=8
	P(3)=32
	CALL	WTQIO("1400,5,1)
	CALL ERRSET(39,,.FALSE.,,.FALSE.)
	TYPE 101
101	FORMAT('0 ***** INCREMENTAL DUMP EXAMINATION PROGRAM V01.02',
     1	' [RJDK] *****'//)
	TYPE 100
100	FORMAT(' %%NULL PARAMETERS ARE SPACES OR ZERO ',/
     1  ' all dumps =-1')
1	CALL	WTQIO("440,5,1,,,P)
	TYPE2
2	FORMAT(' INCREMENT :'$)
	READ(5,89,END=999)DMPNO
89	FORMAT(I8)
	TYPE 3
	READ(5,4,END=999)UICM(2),UICM(1)
3	FORMAT(' UIC =n,m:'$)
4	format(O4,O4)
	TYPE 5
	READ(5,7,END=999)TY
	TYPE6
	READ(5,8,END=999)NM
5	format(' FILE EXTENSION:'$)
6	FORMAT(' FILENAME      :'$)
7	FORMAT(3A1)
8	FORMAT(9A1)
	CALL	IRAD50(9,NM,F1)
	CALL	IRAD50(3,TY,TYP)
C	HERE AFTER SETTING UP PARAMS FOR READING THE FILES
	
9	OPEN(NAME='SY:[10,1]INCDMPSTS.SYS',READONLY,TYPE='OLD',ACCESS=
     1	'DIRECT',UNIT=1,RECORDSIZE=4)
	IREC=0
10	IREC=IREC+1
	READ(1'IREC,ERR=15,END=15)REC
	IF(REC(2).EQ.0.OR.(TYP.NE.0.AND.TYP.NE.REC(7)).OR.(UIC.NE.0
     1	.AND.UIC.NE.REC(3)).OR.(F1.NE.0.AND.(F1.NE.REC(4).OR.F2.NE.REC(5)
     2	.OR.F3.NE.REC(6))).OR.(DMPNO.NE.-1.AND.DMPNO.NE.REC(1)))GOTO 10
	CALL	R50ASC(12,REC(4),NAME(1))
	WRITE(5,12)REC(1),IREC,REC(2),PP(2),PP(1),(NAME(I),I=1,12)
     1   ,REC(8)
12	FORMAT(' INCR:',I6,' FILEID :',O6,' :',O6,
     1	,' [',O3,',',O3,']',9A1,'.',3A1,';',O8)
	GOTO 10			! AND THE NEXT
15	CLOSE(UNIT=1)
	OPEN(NAME='[10,1]OFFLINE.SYS',UNIT=1,READONLY,ACCESS='DIRECT',
     1	TYPE='OLD',RECORDSIZE=4)
	IREC=0
16	IREC=IREC+1
	READ(1'IREC,END=20,ERR=20)REC
	IF(REC(2).EQ.0.OR.(TYP.NE.0.AND.TYP.NE.REC(7)).OR.(UIC.NE.0
     1	.AND.UIC.NE.REC(3)).OR.(F1.NE.0.AND.(F1.NE.REC(4).OR.F2.NE.REC(5)
     2	.OR.F2.NE.REC(6))).OR.(DMPNO.NE.-1.AND.DMPNO.NE.REC(1)))GOTO 16
	CALL	R50ASC(12,REC(4),NAME(1))
	WRITE(5,12)REC(1),IREC,REC(2),PP(2),PP(1),(NAME(I),I=1,12),
     1	REC(8)
	GOTO 16			! AND THE NEXT
20	CONTINUE
	CLOSE(UNIT=1)
	GOTO 1
999	CALL	EXIT
	END