PROGRAM getsymm

c	Reads DSN2 file for SYMM records

	INTEGER		is(12)
	CHARACTER*60	filename
	DATA		word /'SYMM'/

	WRITE (6, 1000) 'Enter filename for DSN2 file:'
1000	FORMAT (a)

	READ (5, 1000) filename
	OPEN (unit=1, status='OLD', form='UNFORMATTED', recordsize=16,
	1	access='DIRECT', file=filename)

	DO irec = 1,1000000
	  READ (1, rec=irec, err=9) type
	  IF (type .EQ. word) THEN
	    READ (1, rec=irec) type, is
	    WRITE (6, 1001) is
1001	    FORMAT (12i5)
	  endIF
	endDO

9	CLOSE (unit=1)
	end