C DQFDEF.INC
C
C  John Hasstedt
C  Physics Department
C  State University of New York
C  Stony Brook, NY 11794-3800
C  (516) 632-8154
C  HASSTEDT@SUNYSBNP.BITNET
C
C
C Definition of a structure for the quota transfer block.
C
      STRUCTURE /DQFDEF/
        INTEGER*4 DQF$L_FLAGS
        UNION
          MAP
            INTEGER*4 DQF$L_UIC
          END MAP
          MAP
            INTEGER*2 DQF$W_MEMBER
            INTEGER*2 DQF$W_GROUP
          END MAP
        END UNION
        INTEGER*4 DQF$L_USAGE
        INTEGER*4 DQF$L_PERMQUOTA
        INTEGER*4 DQF$L_OVERDRAFT
        INTEGER*4 DQF$L_RESERVED(3)
      END STRUCTURE

      INTEGER DQFDEFSIZ
      PARAMETER (DQFDEFSIZ = 32)