C
C
C-----------------------------------------------------------------------------
C
C	SUBROUTINE:	R H D R 3
C
C	PURPOSE:	Display of ANSI HDR3-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:	TI:, 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:		RHDR3	(BUF, NTBL, LUNL, IER)
C
C	ARGUMENTS:	NAME		DESCRIPTOIN
C	    I		BUF	HDR3 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 LHDR3.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 3	(BUF, NTBL, LUNL, IER)
C
C
	INCLUDE		'LHDR3.CMN'

	CALL	STRCPY	(BUF, 80, BUF4)

	WRITE	(LUNL,10)	NTBL
10	FORMAT	(/' Block', I5,
	1	 /' HDR3 File Header Label Block Contents')

	WRITE	(LUNL,12)	SYSDEP, RESVD
12	FORMAT	(/' File attributes', T25, '= ', 64A1, '|',
	1	 /' Reserved',        T25, '= ', 10A1, '|')

	RETURN
	END