;     FILE NAME:  FILE_ALQ.MAR
;        AUTHOR:  
; CREATION DATE:  08/06/86
; REVISION DATE:  05/03/89 PSA modified code to return alq of file
;      LOCATION:  HSTC
;    MAIN FRAME:  VAX 11/780
;        SYSTEM:  VAX/VMS V4.6
;      LANGUAGE:  VAX MACRO ASSEMBLER
;   DESCRIPTION:  
; ---------------------------------------------------------------------
; Long Function:
;  parameter 1: length of file spec
;  parameter 2: the file spec to return the alq on
;
	.PSECT	DATA	NOEXE,RD,WRT,PIC,NOSHR,PAGE
INFAB:	$FAB	FOP=<UFO>, -
		NAM=FILENAME
FILENAME:	$NAM
SIZE:	.LONG	0
	.PSECT	CODE	EXE,RD,NOWRT,PIC,SHR,PAGE
	.ENTRY		FILE_ALQ, 0
	$FAB_STORE -
		FAB = INFAB,-
		FNA = @8(AP),-
		FNS = 4(AP)
	$OPEN		FAB=INFAB
	MOVL		INFAB+FAB$L_ALQ,SIZE
	$CLOSE	FAB=INFAB
	MOVL		SIZE,R0
	RET
	.END