*
*
*  EQUIVALENCES FOR THE CSGP RECORDS @ 1979 07 23/CHS
*
*
************************************************************************
*
*  KEYSIZ  -- PARAMETERED VARIABLE USED TO DEFINE KEYLENGTH
*  CSGPKEY--CHARACTER  KEY CREATED AS KEY FOR KEYED OUTPUT FILES
*  TEMPKEY-- USED TO REMEMBER KEY WHEN NECESSARY
*  CSGPSIZ--SIZE OF THE SOURCE DATA BASE CSGP FILE RECORDS (IN WORDS)
*  RSPSIZ --SIZE OF THE RSP FILE RECORDS (IN WORDS)
*  BUFFER --I/O BUFFER FOR CSGP FILES
*  RSPREC --OUTPUT BUFFER FOR RSP FILES
*  UNIT ASSIGNMENTS
*       CSGPIN=1 UNIT # FOR SEQUENTIAL CSGP FILE-USAGE INPUT
*       SCSGP =2 UNIT # FOR KEYED SOURCE CSGP FILE-USAGE OUTPUT
*       TCSGP =3 UNIT # FOR KEYED TARGET CSGP FILE-USAGE OUTPUT
*  $TSPSIZ-- POINTER SIZE PARAMETER FROM SUBSCHEMA DESCRIPTION
*  $STATS -- INDICATOR MESSAGE RETURNED BY BUFFER IN CALL
*  $PASSNMB- COUNTER USED TO BUILD UNIQUE KEY FOR PASSWORD DEF'N RECORD
*  $ALIASNM- COUNTER USED TO BUILD UNIQUE KEY FOR ALIAS DEF'N RECORD
*  NEXTKEY-- 1 CHARACTER VARIABLE USED AS KEY TO READ KEYED FILES SEQUENTIALLY
*  XIST    - LOGICAL VARIABLE USED BY INQUIRE STMT
*  OPND    -   ""       ""      "" "     ""     "
*  NMD     -   ""       ""      ""  "    ""     "
*  INDEX  -- SUBSCRIPT FOR DO LOOPS
*
*
************************************************************************
*
*
      PARAMETER KEYSIZ=16
      CHARACTER CSGPKEY*(KEYSIZ)
      CHARACTER TEMPKEY*(KEYSIZ)
      PARAMETER CSGPSIZ=300
      INTEGER BUFFER
      COMMON /BUFFIO/BUFFER(CSGPSIZ)
      INTEGER TEMPBUF
      COMMON /TBUFFIO/TEMPBUF(CSGPSIZ)
      INTEGER CONTREC(CSGPSIZ)
      EQUIVALENCE(TEMPBUF , CONTREC)
      COMMON $TSPSIZ,$STATS,$PASSNMB,$ALIASNM
      CHARACTER*1 NEXTKEY
      COMMON/NXTKEY1/NEXTKEY
      INTEGER CSGPIN,SCSGP,TCSGP
      COMMON /CSGPIO/CSGPIN,SCSGP,TCSGP
      LOGICAL XIST,OPND,NMD
      INTEGER INDEX
      PARAMETER ARAYWDTH=31
      PARAMETER ALNTH=10
      PARAMETER ARLNTH=100
      CHARACTER*(ARAYWDTH) AREANMS
      CHARACTER*(ARAYWDTH) GRPNMS
      CHARACTER*(ARAYWDTH) SETNMS
      COMMON/NAMES/AREANMS(ALNTH),GRPNMS(ARLNTH),SETNMS(ARLNTH)
      INTEGER GRPNUM,SETNUM,ARANUM
      COMMON/NUMBERS/GRPNUM(ARLNTH),SETNUM(ARLNTH),BLNK,ARANUM(ALNTH)
      INTEGER AREACNT,GRPCNT,SETCNT
      COMMON/COUNTERS/AREACNT,GRPCNT,SETCNT
      CHARACTER*(ARAYWDTH) ENDBUF
      CHARACTER*(ARAYWDTH) BLANK
      ENDBUF='END                            '
      BLANK='                               '
      CHARACTER*(ARAYWDTH) COMPTBL
      COMMON/SIZES/ENDBUF,COMPTBL,BLANK
************************************************************************
*                                                                      *
*                                                                      *
*        CODES FOR THE OUTPUT RECORD  TYPES                            *
*        ARCODE   - CODE FOR AREA DEFINITION
*        GRCODE   - CODE FOR GROUP DEFINITION
*        VSCODE   - CODE FOR VIA SET NAME
*        VSCODE+1 - CODE FOR STORAGE SET DEFINITION
*        CICODE   - CODE FOR CONTROL ITEM
*        ITCODE   - CODE FOR NON-CONTROL ITEM
*        IVCODE   - CODE FOR INVERT ITEM
*        STCODE   - CODE FOR SET DEFINITION
*        MMCODE   - CODE FOR MEMBER DEFINITION
*        PSCODE   - CODE FOR PASSWORD DEFINITION
*        SBCODE   - CODE FOR SUBSCHEMA DEFINITION
*        ISCODE   - CODE FOR INDEXED SEQUENTIAL DEFINITION
*        ALCODE   - CODE FOR ALIAS RECORD DEFINITION
*                                                                      *
*                                                                      *
************************************************************************
      INTEGER
     . ARCODE , GRCODE , VSCODE , CICODE , ITCODE , IVCODE ,
     . STCODE , MMCODE , PSCODE , SBCODE , ISCODE , ALCODE
*                                                                      *
      COMMON / CODES /
     . ARCODE , GRCODE , VSCODE , CICODE , ITCODE , IVCODE ,
     . STCODE , MMCODE , PSCODE , SBCODE , ISCODE , ALCODE
*                                                                      *
      DATA
     . ARCODE / 01 / , GRCODE / 02 / , STCODE / 03 / , SBCODE / 07 / ,
     . PSCODE / 08 / , MMCODE / 10 / , ISCODE  / 10 / , VSCODE / 10 / ,
     . CICODE / 25 / , ITCODE / 30 / , IVCODE / 40 / , ALCODE / 20 /
************************************************************************
*                                                                      *
*                                                                      *
*                  $AREA - CURRENT AREA                                *
*                  $CODE- CODE FOR AREA DEFINITION RECORD. (01)        *
*                  $SBCOD- SUBCODE. ALWAYS ZERO FOR AREA DEF. RECORDS. *
*           $AWSINC - WORKING STORAGE INCREMENT                        *
*           $NPAGE - NUMBER OF PAGES IN AREA                           *
*                  $AREAN- AREA NUMBER                                 *
*           $INVPC - INVENTORY PERCENT                                 *
*           $CHKSM - FLAG TO INDICATE IF AREA IS CHECKSUMMED           *
*           $CIPHR - FLAG TO INDICATE IF AREA IS ENCIPHERED            *
*           $JRNAL - FLAG TO INDICATE IF AREA IS JOURNALLED            *
*           $FLPCT - FILL PERCENTAGE OF THE AREA                       *
*           $IKSIZ - NUMBER OF BYTES IN INDEX KEYS                     *
*           $PASIZ - PAGE SIZE IN WORDS                                *
*           $OVMIN - FIRST OVERFLOW PAGE FOR THE INDEXED GROUP DEFINED *
*                    IN THIS AREA.                                     *
*           $OVMAX - LAST OVERFLOW PAGE FOR THE INDEXED GROUP DEFINED  *
*                    FOR THIS AREA.                                    *
*           $NMCNT - NUMBER OF CHARACTERS IN AREA NAME                 *
*           $ARNAM - NAME IN "A1" FORMAT
*                                                                      *
************************************************************************
      INTEGER
     . $AREA  , $CODE  , $SBCOD , $AWSINC , $NPAGE , $AREAN , $INVPC ,
     . $CHKSM , $DPLNN , $CIPHR , $JRNAL , $FLPCT , $IKSIZ , $PASIZ ,
     . $OVMIN , $OVMAX , $NMCNT , $ARNAM
      EQUIVALENCE
     .($AREA  , BUFFER( 1) ) ,
     .($CODE  , BUFFER( 2) ) ,
     .($SBCOD  , BUFFER( 3) ) ,
     .($AWSINC , BUFFER( 4) ) ,
     .($NPAGE , BUFFER( 5) ) ,
     .($AREAN , BUFFER( 6) ) ,
     .($INVPC , BUFFER( 7) ) ,
     .($CHKSM , BUFFER( 8) ) ,
     .($DPLNN , BUFFER( 9) ) ,
     .($CIPHR , BUFFER(10) ) ,
     .($JRNAL , BUFFER(11) ) ,
     .($FLPCT , BUFFER(12) ) ,
     .($IKSIZ , BUFFER(13) ) ,
     .($PASIZ , BUFFER(14) ) ,
     .($OVMIN , BUFFER(15) ) ,
     .($OVMAX , BUFFER(16) ) ,
     .($NMCNT , BUFFER(17) ) ,
     .($ARNAM , BUFFER(18) )
*                                                                      *
*                  - CURRENT AREA                                      *
*                  - CODE FOR GROUP DEFINITION RECORD (02)             *
*                  - SUBCODE (ALWAYS ZERO)                             *
*           $GRPNM - GROUP NUMBER                                      *
*           $GWSINC - WORKING STORAGE INCREMENT                        *
*           $STREL - FLAG TO INDICATE IF THIS GROUP IS RELATIVE TO A   *
*                    STORAGE SET.                                      *
*           $RTLOK - RETRIEVE LOCK                                     *
*           $UPLOK - UPDATE LOCK                                       *
*           $GRTYP  - GROUP TYPE :                                     *
*                    0) VIA SET                                        *
*                    1) DIRECT GROUP                                   *
*                    2) CALC GROUP                                     *
*                    3) INDEXED GROUP                                  *
*           $DBGSZ - DATA BASE GROUP SIZE IN WORDS                     *
*           $WSSIZ - WORKING STOREAGE SIZE IN WORDS                    *
*           $GPGMIN - PAGE RANGE MINIMUM (0 IF NOT PRESENT)            *
*           $GPGMAX - PAGE RANGE MAXIMUM (0 IF NOT PRESENT)            *
*           $PGPRM - PAGE RANGE PRIME VALUE (0 IF NOT PRESENT)        **
*           $CNREC - NUMBER OF CONTROL ITEMS FOR THIS GROUP            *
*           $BYTES - NUMBER OF DATA BYTES IN GROUP                     *
*           $MANUL - FLAG TO INDICATE IF THIS IS A MANUAL MEMBER OF    *
*                    A SET                                             *
*                    THIS GROUP                                        *
*           $NSIZE  - NUMBER OF CHARACTERS IN NAME                     *
*           $GNAME - NAME                                              *
*           $DUPE -  FLAG TO INDICATE IF DUPLICATES ARE ALLOWED, IF THIS
*                    IS A CALC GROUP
*                                                                      *
************************************************************************
      INTEGER
     . $GRPNM , $GWSINC , $STREL , $RTLOK , $UPLOK , $GSTATS , $GRTYP ,
     . $DBGSZ , $WSSIZ , $GPGMIN , $GPGMAX , $PGPRM , $CNREC , $BYTES ,
     . $NSIZE  , $GNAME , $MANUL , $DUPE
      EQUIVALENCE
     .($GRPNM , BUFFER( 4) ) ,
     .($GWSINC , BUFFER( 5) ) ,
     .($STREL , BUFFER( 6) ) ,
     .($RTLOK , BUFFER( 7) )
      EQUIVALENCE
     .($UPLOK , BUFFER( 8) ) ,
     .($GRTYP , BUFFER( 9) ) ,
     .($DBGSZ , BUFFER(10) ) ,
     .($WSSIZ , BUFFER(11) ) ,
     .($GPGMIN , BUFFER(12) ) ,
     .($GPGMAX , BUFFER(13) ) ,
     .($PGPRM , BUFFER(14) ) ,
     .($CNREC , BUFFER(15) ) ,
     .($BYTES , BUFFER(16) ) ,
     .($MANUL , BUFFER(17) ) ,
     .($GSTATS , BUFFER(18) ) ,
     .($DUPE  , BUFFER(19) ) ,
     .($NSIZE  , BUFFER(20) ) ,
     .($GNAME , BUFFER(21) )
************************************************************************
*                                                                      *
*                                                                      *
*                  - CURRENT AREA                                      *
*                  - CODE FOR GROUP DEFINITION RECORD (02)             *
*                  - CODE FOR VIA SET NAME (10)                        *
*           $SGRPNM - NUMBER OF GROUP THIS NAME IS ASSOCIATED WITH     *
*           $SNSIZE - SIZE OF NAME                                     *
*           $SNAME - "A1" FORMAT NAME                                  *
*                                                                      *
*                                                                      *
************************************************************************
      INTEGER
     .$SGRPNM , $SNSIZE , $SNAME
      EQUIVALENCE
     .( $SGRPNM , BUFFER(4) ) ,
     .( $SNSIZE , BUFFER(5) ) ,
     .( $SNAME , BUFFER(6) )
************************************************************************
*
*
*         - CURRENT AREA
*         - CODE FOR GROUP DEFINITION (02)
*         - CODE FOR CONTROL ITEM DEFINITION (25)
*  BUFFER(4) - GROUP NUMBER ASSOCIATED WITH THESE ITEMS
*        (5) - NUMBER OF CONTROL ITEMS IN THIS GROUP (N)
*        (6)+N*4) - TYPE OF CONTROL ITEM:
*                                      2 - CALC
*                                      4 - ASC SORT KEY
*                                      6 - DSC SORT KEY
*                                      8 - INDEXED -- UNKEYED CSGP SEQ FILE
*                                                  -- KEYED SOURCE CSGP FILE
*                                      2 - INDEXED -- KEYED TARGET CSGP FILE
*        (7)+N*4) - FILE INCREMENT
*        (8)+N*4) - POSITION OF ITEM IN CHAIN
*        (9)+N*4) - SET NUMBER
* ---------ABOVE FOUR FIELDS REPEAT N TIMES----------------
*
*
************************************************************************
*
*
*
*
*
*                                                                      *
*            - CURRENT AREA                                            *
*            - CODE FOR GROUP DEFINITION ( 02 )                        *
*            - CODE FOR NON-CONTROL ITEM DEFINITION (30)
*     $GRNUM - GROUP NUMBER ASSOCIATED WITH THIS ITEM                  *
*     $CONT    - 0 IF NON-CONTROL ITEMS       NON-ZERO IF CNTRL ITEMS:
*     NON-ZERO CONTROL TYPES:
*                  2 - CALC
*                  4 - ASC SORT KEY
*                  6 - DSC SORT KEY
*                  8 - INDEXED -- UNKEYED SEQUENTIAL CSGP FILE
*                              -- KEYED SOURCE CSGP FILE
*                  2 - INDEXED -- KEYED TARGET CSGP FILE
*                              -- KEYED RSP FILE
*     $ITYPE   - ITEM TYPE :                                           *
*                 0 -> SIGNED NUMBER                                   *
*                 1 -> ALPHANUMERIC                                    *
*                 2 -> NUMERIC                                         *
*                 3 -> ALPHABETIC                                      *
*                 4 -> BINARY                                          *
*                 5 -> FLOATING SHORT
*                 6 -> FLOATING LONG                                   *
*                 7 -> PACKED DECIMAL                                  *
*     $INVRT   - 1 IF ITEM IS INVERTED                                 *
*     $IWSINC  - WORKING STORAGE INCREMENT OF ITEM                     *
*     $ISIZE   - ITEM SIZE IN BYTES                                    *
*     $FINC    - FILE INCREMENT OF ITEM                                *
*     $RTLOC   - RETRIEVE LOCK FOR ITEM                                *
*     $INSIZ   - NAME SIZE                                             *
*     $INAME   - NAME IN 'A1' FORMAT                                   *
*     $IPSIZ - PIC SIZE
*     $IPIC - PICTURE IN 'A1' FORMAT
************************************************************************
      INTEGER
     . $CONT  , $ITYPE , $INVRT , $IWSINC , $FINC,
     . $RTLOC , $UPLOC , $INSIZ , $INAME , $GRNUM,
     .  $ISIZE
      EQUIVALENCE
     .( $GRNUM , BUFFER( 4) ) ,
     .( $CONT  , BUFFER( 5) ) ,
     .( $ITYPE , BUFFER( 6) ) ,
     .( $INVRT , BUFFER( 7) ) ,
     .( $IWSINC , BUFFER( 8) ) ,
     .( $ISIZE , BUFFER( 9) ) ,
     .( $FINC  , BUFFER(10) ) ,
     .( $RTLOC , BUFFER(11) ) ,
     .( $UPLOC , BUFFER(12) ) ,
     .( $INSIZ , BUFFER(13) ) ,
     .( $INAME , BUFFER(14) )
************************************************************************
*                                                                      *
*                                                                      *
*            - CURRENT AREA                                            *
*            - CODE FOR GROUP DEFINITION (02)                          *
*            - CODE FOR INVERT ITEM DEFINITION (40)                    *
*     $IVGRP      - INVERT GROUP NUMBER                                *
*     $IIPGMIN    - PAGE RANGE MINIMUM                                 *
*     $IIPGMAX    - PAGE RANGE MAXIMUM                                 *
*     $PGPRI      - PAGE RANGE PRIME VALUE                             *
*     $IIDUPE     - 1 IF DUPLICATES ALLOWED                            *
*     $IINSIZE    - SIZE OF NAME                                       *
*     $IINAME     - NAME IN 'A1' FORMAT                                *
*           $SGRP -  THE GROUP NUMBER THE INVERT ITEM BELONGS TO
*                                                                      *
*                                                                      *
************************************************************************
      INTEGER
     . $IVGRP , $IIPGMIN , $IIPGMAX , $PGPRI , $IIDUPE ,$IINSIZE ,
     . $IINAME , $SGRP
      EQUIVALENCE
     .( $SGRP    ,BUFFER( 4) ) ,
     .( $IVGRP   , BUFFER( 5) ) ,
     .( $IIPGMIN , BUFFER( 6) ) ,
     .( $IIPGMAX , BUFFER( 7) ) ,
     .( $PGPRI   , BUFFER( 8) ) ,
     .( $IIDUPE  , BUFFER( 9) ) ,
     .( $IINSIZE , BUFFER(10) ) ,
     .( $IINAME  , BUFFER(11) )
************************************************************************
*                                                                      *
*            - CURRENT AREA                                            *
*            - CODE FOR SET DEFINITION (03)                            *
*            - SUBCODE (ALWAYS ZERO)                                   *
*     $SETN    - NUMBER OF THE SET DEFINED BY THIS OWNER DEFN.         *
*     $OGRP    - NUMBER OF THE OWNER GROUP FOR THIS SET                *
*     $SPNEXT  - POSITION OF NEXT POINTER FOR THIS SET                 *
*     $SPRIOR  - POSITION OF PRIOR POINTER FOR THIS SET                *
*     $ONSIZ   - SIZE OF GROUP(SET OWNER) --IN CHARACTERS
*     $ONAME   - GROUP NAME(SET OWNER) IN UNPACKED TEXT FORMAT (A1)
*    $ONSIZ+12  - SIZE OF SET NAME -- IN CHARACTERS
*    $ONSIZ+13  - SET NAME IN UNPACKED TEXT FORMAT(A1)
*     $OTYPE - TYPE OF OWNER (0 - GRP, 1-AREA)                         *
*     $SORDER - ORDER OF SET (SORTED,FIRST,LAST...)                    *
*     $SSTATS - FLAG TO INDICATE IF STATISTICS ARE TO BE COLLECTED ON  *
*              THIS SET.                                               *
*                                                                      *
************************************************************************
      INTEGER  $SETN , $OGRP , $SPNEXT , $SPRIOR , $ONSIZ , $ONAME
     . , $OTYPE , $SORDER , $SSTATS
      EQUIVALENCE
     .( $SETN  , BUFFER( 4) ) ,
     .( $OGRP  , BUFFER( 5) ) ,
     .( $SORDER , BUFFER( 6) ) ,
     .( $OTYPE , BUFFER( 7) ) ,
     .( $SPNEXT , BUFFER( 8) ) ,
     .( $SPRIOR , BUFFER( 9) ) ,
     .( $SSTATS , BUFFER(10) ) ,
     .( $ONSIZ , BUFFER(11) ) ,
     .( $ONAME , BUFFER(12) )
************************************************************************
*                                                                      *
*                                                                      *
*            - CURRENT AREA                                            *
*            - CODE FOR SET DEFINITIONS (03)                           *
*            - CODE FOR MEMBER DEFINITIONS (10)                        *
*                   FOR ALIAS DEF'N RECORD (20)
*     $MSETN   - SET NUMBER THIS MEMBER BELONGS TO                     *
*     $PNEXT   - POSITION OF NEXT POINTER FOR THIS MEMBER              *
*     $PRIOR   - POSITION OF PRIOR POINTER FOR THIS MEMBER             *
*     $PHEAD   - POSITION OF HEAD POINTER FOR THIS MEMBER              *
*     $ALIAS   - 1 IF THERE IS AN ALIAS FOR THIS SET, 0 IF NOT         *
*     $OPTON   - 1 IF THIS IS AN OPTIONAL MEMBER OF THE SET            *
*     $MMANUL  - 1 IF THIS S A MANUAL MEMBER OF THE SET                *
*     $PSET    - 1 IF THIS IS A PAGESET MEMBER                         *
*     $CSET    - 1 IF THIS IS A CALCSET MEMBER                         *
*     $ORDER   - 0 -> LAST                                             *
*                1 -> PRIOR                                            *
*                4 -> SORTED                                           *
*                8 -> FIRST                                            *
*                9 -> NEXT                                             *
*                6 -> SORTED BY GROUP NUMBER                           *
*     $MDUPE   - 0 IMPLIES DUPLICATES NOT ALLOWED                      *
*              - 1 IMPLIES DUPLICATES FIRST                            *
*              - 2 IMPLIES DUPLICATES LAST                             *
*     $SELEC   - 0 IMPLIES LOCATION MODE OF OWNER                      *
*              - 1 IMPLIES SELECTION IS CURRENT                        *
*     $STSET   - 1 IF THIS IS THE STORAGE SET FOR A GROUP              *
*     $STGRP   - GROUP NUMBER IT IS STORAGE SET FOR                    *
*     $PRIME   - 1 IF THIS IS A PRIME RETRIEVAL SET                    *
*     $MCOUNT  - 1 IF CONTROL ITEMS HAVE BEEN OMMITTED                 *
*     $ALIAC - COUNT OF NUMBER OF ALIAS DEFINITIONS ASSOCIATED
*              WITH THIS MEMBER DEFINITION
*     $MNSIZ - COUNT OF CHARACTERS IN GROUP NAME                       *
*     $MNAME - OWNER  GROUP NAME                                       *
*     $ANSIZ - SIZE OF ITEM NAME IN ALIAS DEFININITION
*     $ANAME - ITEM NAME FOR ALIAS DEF'N
*     $MGRPNM - GROUP NUMBER OF MEMBER
*                                                                      *
*                                                                      *
************************************************************************
      INTEGER  $MSETN , $PNEXT , $PRIOR , $PHEAD , $ALIAS , $OPTON
     . ,$MDUPE , $SELEC , $STSET , $STGRP , $PRIME , $MCOUNT
     . , $ALIAC , $ANAME , $MNSIZ , $MNAME , $MGRPNM
      EQUIVALENCE
     .( $MSETN , BUFFER( 4) ) ,
     .( $MGRPNM , BUFFER( 5) ) ,
     .( $PNEXT , BUFFER( 6) ) , ($ANSIZ , BUFFER( 6) ) ,
     .( $PRIOR , BUFFER( 7) ) , ($ANAME , BUFFER( 7) ) ,
     .( $PHEAD , BUFFER( 8) ) ,
     .( $ALIAS , BUFFER( 9) ) ,
     .( $OPTON , BUFFER(10) )
      EQUIVALENCE
     .( $MMANUL , BUFFER(11) ) ,
     .( $PSET  , BUFFER(12) ) ,
     .( $CSET  , BUFFER(13) ) ,
     .( $SORT  , BUFFER(14) ) ,
     .( $ORDER , BUFFER(15) ) ,
     .( $MDUPE , BUFFER(16) ) ,
     .( $SELEC , BUFFER(17) ) ,
     .( $STSET , BUFFER(18) ) ,
     .( $STGRP , BUFFER(19) ) ,
     .( $PRIME , BUFFER(20) ) ,
     .( $MCOUNT , BUFFER(21) ) ,
     .( $ALIAC , BUFFER(22) ) ,
     .( $MNSIZ , BUFFER(23) ) ,
     .( $MNAME , BUFFER(24) )
************************************************************************
*                                                                      *
*            - CURRENT AREA                                            *
*            - CODE FOR SUBSCHEMA DEFINITION (07)                      *
*            - SUBCODE (ALWAYS ZERO)                                   *
*     $YEAR    - YEAR THE SUBSCHEMA WAS CREATED                        *
*     $DAY     - DAY OF THE YEAR                                       *
*     $SPSIZ   - 3 OR 4 BYTE SET POINTERS                              *
*     $ALL     - 1 IF SUBSCHEMA  WAS CREATED USING                     *
*                "COMPONENTS ARE ALL"                                  *
************************************************************************
      INTEGER $YEAR ,  $DAY , $SPSIZ , $ALL
      EQUIVALENCE
     .( $YEAR  , BUFFER(4) ) ,
     .( $DAY   , BUFFER(5) ) ,
     .( $SPSIZ , BUFFER(6) ) ,
     .( $ALL   , BUFFER(7) )
************************************************************************
*                                                                      *
*            - CURRENT AREA                                            *
*            - CODE FOR PASSWORD DEFINITION RECORD (08)                *
*            - SUBCODE (ALWAYS ZERO)                                   *
*     $PASS    - PASSWORD IN A4 FORMAT                                 *
*     $RETIN   - RETRIEVE LOCKS                                        *
*     $UPDIN   - UPDATE LOCKS                                          *
************************************************************************
      INTEGER
     . $PASS(2) , $RETIN(8) , $UPDIN(8)
      EQUIVALENCE
     .( $PASS(1)  , BUFFER(4)  ) ,
     .( $RETIN(1) , BUFFER(6)  ) ,
     .( $UPDIN(1) , BUFFER(14) )
************************************************************************
*                                                                      *
*                                                                      *
*            - CURRENT AREA                                            *
*            - CODE FOR ISEQ RECORD ( 10)                              *
*            - SUBCODE (ALWAYS ZERO)                                   *
*     $TYPE    - 1 IF THIS IS INDEX LEVEL, 0 IF OVERFLOW               *
*     $LEVEL   - INDEX LEVEL NUMBER                                    *
*     $START   - BEGINNING PAGE NUMBER                                 *
*     $END     - ENDING PAGE NUMBER                                    *
*                                                                      *

      INTEGER
     . $TYPE  , $LEVEL , $START , $END
      EQUIVALENCE
     .( $TYPE  , BUFFER(4) ) ,
     .( $LEVEL , BUFFER(5) ) ,
     .( $START , BUFFER(6) ) ,
     .( $END   , BUFFER(7) )

