MADISON@CICGJ.RPI.EDU (Matt Madison) (05/31/87)
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