.;
.;----------------------------------------------------------------------------
.;
.;	CMD-FILE:	F I L A T R
.;	AUTHOR:		Jan H. Belgraver
.;	DATE:		22-FEB-84
.;	VERSION:	1.0
.;	PURPOSE:	Demonstration command file to show contents of 
.;			ICP Special String Symbol <FILATR>.
.;	DESCRIPTION:	<FILATR> is filled following an .OPENx directive.
.;			It contains the seven file atttribute words in FILES-11
.;			File Descriptor Block.
.;	MODIFIED BY:	
.;
.;----------------------------------------------------------------------------
.;
.;
.ENABLE	SUBSTITUTION
.IF	P1 EQ ""	.ASKS	P1	Enter file spec
.OPENR	'P1'
;
;		File attributes
;
.SETS	FILATT	<FILATR>
.PARSE	FILATT	","	F1 F2 F3 F4 F5 F6 F7
;	F.RTYP	= 'F1'	1 = fixed	2 = variable	3 = sequenced
;	F.RATT	= 'F2'	1 = FORTRAN	2 = <LF> record <CR>
;	F.RSIZ	= 'F3'	Record size in bytes
;	F.HIBK	= 'F4'	Highest virtual allocated block number
;	F.EFBK	= 'F5'	End-Of-File block number
;	F.FFBY	= 'F6'	First free byte in last block
;
.CLOSE	'P1'
.EXIT