*     COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979, 1980
*
***   RECORD COMMON BLOCK DECLARATIONS
*     ================================
*
** AREA RECORD
*  -----------
*
      INTEGER ARANUM,ARAPGS,ARABPL,ARAIKS,ARANBF
      DIMENSION ARANBF(32)
      LOGICAL ARACSM,ARACIF
      COMMON /ARAREC/ARANUM,ARAPGS,ARABPL,ARACSM,ARACIF,ARAIKS,
     @ARANBF
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            ARANUM   INTEGER     AREA NUMBER
*            ARAPGS   INTEGER     SIZE OF AREA IN PAGES
*            ARABPL   INTEGER     BITS PER LINE FOR THIS AREA
*            ARACSM   LOGICAL     TRUE IF CHECKSUMS PRESENT
*            ARACIF   LOGICAL     TRUE IF AREA CIPHERED
*            ARAIKS   INTEGER     SIZE OF INDEX KEY IN BYTES
*            ARANBF   INTEGER     NAME OF AREA IN UNPACKED TEXTC
*
**
** GROUP RECORD
*  ------------
*
      INTEGER GRPNUM,GRPLOC,GRPWDS,GRPWSS,GRPDBY,GRPPMN,GRPPMX,GRPNBF,
     @GRPSCT,GRPSBF,GRPRYA
      DIMENSION GRPNBF(32),GRPSBF(SETLIM)
      COMMON /GRPREC/GRPNUM,GRPLOC,GRPWDS,GRPWSS,GRPDBY,GRPPMN,
     @GRPPMX,GRPNBF,GRPSCT,GRPSBF,GRPRYA
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            GRPNUM   INTEGER     GROUP NUMBER
*            GRPLOC   INTEGER     GROUP LOCATION MODE
*            GRPWDS   INTEGER     GROUP SIZE (WORDS)
*            GRPWSS   INTEGER     GROUP WORKING STORAGE SIZE
*            GRPDBY   INTEGER     GROUP DATA BYTE COUNT
*            GRPPMN   INTEGER     GROUP PAGE RANGE MINIMUM
*            GRPPMX   INTEGER     GROUP PAGE RANGE MAXIMUM
*            GRPSCT   INTEGER     GROUP SET COUNT
*            GRPSBF   INTEGER     GROUP SET LIST
*            GRPRYA   INTEGER     AREA IN WHICH GROUP IS DEFINED
*
**
** SET RECORD
*  ----------
*
      INTEGER SETNUM,SETONR,SETONP,SETOPP,SETNBF(32),SETMCT,
     @SETMBF(GRPLIM),SETMIM(GRPLIM),SETPBF(GRPLIM,3),SETRYA
      COMMON /SETREC/SETNUM,SETONR,SETONP,SETOPP,SETNBF,SETMCT,
     @SETMBF,SETMIM,SETPBF,SETRYA
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            SETNUM   INTEGER     SET NUMBER
*            SETONR   INTEGER     SET OWNER GROUP NUMBER
*            SETONP   INTEGER     SET OWNER NEXT POINTER POSITION
*            SETOPP   INTEGER     SET OWNER PRIOR POINTER POSITION
*            SETNBF   INTEGER     SET NAME IN UNPACKED TEXTC
*            SETMCT   INTEGER     SET MEMBER COUNT
*            SETMBF   INTEGER     SET MEMBERS
*            SETMIM   INTEGER     SET MEMBER INCLUSION MODE
*            SETPBF   INTEGER     SET MEMBER POINTER POSITIONS
*                                 ( ,1) NEXT POINTER
*                                 ( ,2) PRIOR POINTER
*                                 ( ,3) HEAD POINTER
*            SETRYA   INTEGER     AREA # OF THIS SET
*
**
** SUBSCHEMA RECORD (GENERAL)
*  --------------------------
*
      PARAMETER SSCBFM=300
      INTEGER SSCBFS,SSCBUF
      DIMENSION SSCBUF(SSCBFM)
      COMMON /SSCREC/SSCBFS,SSCBUF
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            SSCBFM   PARAMETER   MAXIMUM SUBSCHEMA BUFFER SIZE
*            SSCBUF   INTEGER     SUBSCHEMA BUFFER
*
**
***
