Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!caip!nike!ucbcad!ucbvax!ARIZMIS.BITNET!JMS
From: JMS@ARIZMIS.BITNET (I think I'll dye my hair blue.)
Newsgroups: mod.computers.vax
Subject: reading the quota file
Message-ID: <8609070925.AA14962@ucbvax.Berkeley.EDU>
Date: Sun, 7-Sep-86 03:50:00 EDT
Article-I.D.: ucbvax.8609070925.AA14962
Posted: Sun Sep  7 03:50:00 1986
Date-Received: Sun, 7-Sep-86 10:06:29 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 44
Approved: info-vax@sri-kl.arpa

One doesn't read the quota file; only VMS actually performs operations
on QUOTA.SYS.  Use QIOs, like this (incomplete) code fragment illustrates:

fibdesc:                                        ; FIB descriptor
        .word           FIB$C_LENGTH            ; length
        .word           0                       ; not used
        .address        fibblk                  ; address of fib block
fibblk: .blkb           FIB$C_LENGTH            ; an FIB

dqfdesc:                                        ; disk quota file descriptor
        .word           DQF$C_LENGTH            ; length
        .word           0                       ; not used
        .address        dqfblk                  ; address of dqf block
dqfblk: .blkb           DQF$C_LENGTH            ; a DQF block (only need one)

iosb:   .blkw   4                               ; I/O status block

        movab   fibblk, r0
        movw    #FIB$C_EXA_QUOTA, FIB$W_CNTRLFUNC(r0)   ; EXAmine quota entry

        movab   dqfblk, r11                     ; get UIC for exquota
                                                ; R11 IS NOT SCRATCH ANYMORE!!!
        movw    member, DQF$L_UIC(r11)          ; ... member
        movw    group, DQF$L_UIC+2(r11)         ; ... and group

        movab   dqfdesc,r0
        $QIOW_S -                               ; do the read
                CHAN=dkchan, -                  ; disk channel
                FUNC=#IO$_ACPCONTROL, -         ; ACP function
                IOSB=iosb, -                    ; IO status block
                P1=fibdesc, -                   ; FIB descriptor
                P2=#dqfdesc, -                  ; Disk Quota Descriptor-IN
                P4=#dqfdesc                     ; Disk Quota Descriptor-OUT


jms

+-------------------------------+
| Joel M Snyder                 |             BITNET: jms@arizmis.BITNET
| Univ of Arizona Dep't of MIS  |           ArizoNET: MRSVAX::JMS
| Tucson, Arizona 85721         |    Pseudo-PhoneNET: (602) 621-2748
+-------------------------------+
(std. disclaimer in re: nobody taking anything I say seriously)
--*> "Wherever you go ... there you are."  -- Buckaroo Bonzai <*--