program	index
C********** Program to test get_hit subroutine *****
	character	keyin1*10,keyin2*10
	structure /recx/
	character	first*10
	character	rest*21
	end structure
	record	/recx/ temp(2)

	include	'($rabdef)'
	integer	rabadr,for$rab
C********** Open two indexed files ******************
	open(unit=1,file='idx1.dat',status='old',form='unformatted',
	1	access='keyed',shared,
	1	organization='indexed',key=(1:10:CHARACTER),
	1	recordtype='fixed')
	open(unit=2,file='idx2.dat',status='old',form='unformatted',
	1	access='keyed',shared,
	1	organization='indexed',key=(1:10:CHARACTER),
	1	recordtype='fixed')

C*********** Read two records from each 100 times
	do	i=1,100
	 keyin1=' Ellis    '
	 read(unit=1,key=keyin1,keyid=0) temp(1)
	 keyin2=' xxxxxxx5 '
	 read(unit=1,key=keyin2,keyid=0) temp(2)
	 keyin1=' Carson   '
	 read(unit=2,key=keyin1,keyid=0) temp(1)
	 keyin2=' Monster  '
	 read(unit=2,key=keyin2,keyid=0) temp(2)
	enddo
C************ Call the get_hit subroutine passing the rab address and lun
	call	get_hit(%val(for$rab(1)),1)
	call	get_hit(%val(for$rab(2)),2)
	end