Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!husc6!think!ames!sdcsvax!ucbvax!CICGJ.RPI.EDU!MADISON
From: MADISON@CICGJ.RPI.EDU (Matt Madison)
Newsgroups: comp.os.vms
Subject: Using RMS XABSUM block
Message-ID: <8705311845.AA02855@ucbvax.Berkeley.EDU>
Date: Sun, 31-May-87 11:50:00 EDT
Article-I.D.: ucbvax.8705311845.AA02855
Posted: Sun May 31 11:50:00 1987
Date-Received: Tue, 2-Jun-87 02:21:18 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 33

Has anyone had experience with filling XAB's?  Specifically, I'm having
trouble with the XABSUM block, which is supposed to give the number of
areas & number of keys that a file has.  Unfortunately, for any file
I open, regardless of whether it is indexed or not, my XABSUM block always
seems to show zero areas and zero keys.  A code sample follows.

--------------------------

    	.title	x

    	.psect	x_data,wrt,noexe,noshr

fab:	$fab	xab=xabsum,fac=<bio,get>,shr=upi,fnm=<INPUT:>
xabsum:	$xabsum

    	.psect	x_code,nowrt,exe,shr

    	.entry	x,^m<>

    	$open	fab=fab
; look at contents of xabsum block at this point
    	$close	fab=fab

    	movl	#1,r0
    	ret

    	.end	x

--------------------------
I'd appreciate any clues someone might give.

Matt Madison
madison@cicgj.rpi.edu