C
C
C-----------------------------------------------------------------------------
C
C	SUBROUTINE:	R H D R 2
C
C	PURPOSE:	Display of ANSI HDR2-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:		RHDR2	(BUF, NTBL, LUNL, IER)
C
C	ARGUMENTS:	NAME		DESCRIPTOIN
C	    I		BUF	HDR2 tape block
C	    I		NTBL	Virtual tape block number
C	    I		LUNL	List device/file
C	    O		IER	Rreserved for later use.
C
C	CALLS TO:	STRCPY
C
C	PARAMETERS:	NAME		DESCRIPTION
C			See LHDR2.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 2	(BUF, NTBL, LUNL, IER)
C
C
	INCLUDE		'LHDR2.CMN'

	LOGICAL*1	HDRSTR(12)
	LOGICAL*1	EOFSTR(12)
	LOGICAL*1	EOVSTR(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'/
	DATA	EOVSTR	/12*0/

	CALL	STRCPY	(BUF, 80, BUF2)

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

	IF	(LABEL .EQ. HDR2)	WRITE	(LUNL,5)	LABEL2, HDRSTR
	IF	(LABEL .EQ. EOF2)	WRITE	(LUNL,5)	LABEL2, EOFSTR
	IF	(LABEL .EQ. EOV2)	WRITE	(LUNL,5)	LABEL2, EOVSTR
5	FORMAT	( ' ', 4A1, ' ', 12A1, ' Label Block Contents')

	WRITE	(LUNL,12)	RECFMT, BLKLEN, RECLEN
12	FORMAT	(/' Record format', T25, '= ',  A1, '|',
	1	 /' D= Variable, F= Fixed, S= Spanned, U= Undefined',
	2	//' Block  length', T25, '= ', 5A1, '|',
	3	 /' Record length', T25, '= ', 5A1, '|')

	WRITE	(LUNL,14)	RESVD1, VFC, RESVD2, OFFSET, RESVD3
14	FORMAT	( ' Reserved',             T25, '= ', 21A1, '|',
	1	 /' Vert. format control', T25, '= ',   A1, '|',
	2	 /' A= Fortran, M= List, Space= None',
	3	//' Reserved',             T25, '= ', 13A1, '|',
	4	 /' Buffer offset',        T25, '= ',  2A1, '|',
	5	 /' Reserved',             T25, '= ', 28A1, '|')

	RETURN
	END