C
C
C-----------------------------------------------------------------------------
C
C	SUBROUTINE:	R H D R 1
C
C	PURPOSE:	Display of ANSI HDR1-tape header.
C
C	AUTHOR:		Jan H. Belgraver
C
C	DATE:		27-NOV-84
C
C	VERSION:	1.0
C
C	DESCRIPTION:	
C
C	INPUT  FILES:	None
C
C	OUTPUT FILES:	None, or other device or file given
C
C	LUNS:		5	TI:
C			6	TI: (default list device)
C			1	Alternative list device/file
C
C	EVENT FLAGS:	None
C
C	CALL:		RHDR1	(BUF, NTBL, LUNL, IER)
C
C	ARGUMENTS:	NAME		DESCRIPTOIN
C	    I		BUF	HDR1 tape block
C	    I		NTBL	Virtual tape block number
C	    I		LUNL	List device/file
C	    O		IER	Reserved for later use
C
C	CALLS TO:	STRCPY
C
C	PARAMETERS:	NAME		DESCRIPTION
C			See LHDR1.CMN include file.
C
C	BUILDING:	None
C
C	MODIFIED BY:	Name			Date		Ident.	Vers.
C
C-----------------------------------------------------------------------------
C
C

C
C
	SUBROUTINE	R H D R 1	(BUF, NTBL, LUNL, IER)
C
C
	INCLUDE		'LHDR1.CMN'

	LOGICAL*1	HDRSTR(12)
	LOGICAL*1	EOFSTR(12)

	DATA	HDRSTR	/'F','i','l','e',' ','H','e','a','d','e','r',' '/
	DATA	EOFSTR	/'F','i','l','e',' ','T','r','a','i','l','e','r'/

	CALL	STRCPY	(BUF, 80, BUF1)

	WRITE	(LUNL,1)	NTBL
1	FORMAT	(/' Block', I5)

	IF	(LABEL .EQ. HDR1)	WRITE	(LUNL,5)	LABEL1, HDRSTR
	IF	(LABEL .EQ. EOF1)	WRITE	(LUNL,5)	LABEL1, EOFSTR
	IF	(LABEL .EQ. EOV1)	WRITE	(LUNL,5)	LABEL1
5	FORMAT	( ' ', 4A1, ' ', 12A1, ' Label Block Contents')

	WRITE	(LUNL,12)	FILID, FSET, FSECNO, FSEQNO
12	FORMAT	(/' File identifier',   T25, '= ', 17A1, '|',
	1	 /' File set ident.',   T25, '= ',  6A1, '|', 
	2	 /' File section  no.', T25, '= ',  4A1, '|',
	3	 /' File sequence no.', T25, '= ',  4A1, '|')
	
	WRITE	(LUNL,14)	GENNO, GENVER, CREDAT, EXPDAT
14	FORMAT	( ' Generation no.',     T25, '= ', 4A1, '|',
	1	 /' Generation version', T25, '= ', 2A1, '|',
	2	 /' Creation date',      T25, '= ', 6A1, '|',
	3	 /' Expiration date',    T25, '= ', 6A1, '|')

	WRITE	(LUNL,16)	ACCESS, BLKCNT, SYSCOD, RESVD
16	FORMAT	( ' Accessibility', T25, '= ',   A1, '|',
	1	 /' Block count',   T25, '= ',  6A1, '|',
	2	 /' System code',   T25, '= ', 13A1, '|',
	3	 /' Reserved',      T25, '= ',  7A1, '|')

	RETURN
	END