*     COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979
*
      IMPLICIT LOGICAL(A-Z)
*
*  EQUIVALENCES FOR THE RSP RECORDS @ 1979 06 20/JAL
*                                   @ 1979 07 03/CHS
*                                   @ 1979 08 02/JAL
*
*  VARIABLE-LENGTH NAME FIELDS ARE APPENDED TO THE END
*  OF THE FIXED-LENGTH DEFINITIONS GIVEN HERE
*
*  COMMON CONTROL CODES
*
      PARAMETER RSPRSZ=80
      INTEGER RSPREC
      COMMON /RSPBUF/RSPREC(RSPRSZ)
      PARAMETER KEYSZ=16
      CHARACTER RSPKEY*(KEYSZ)
      INTEGER RSPROG
      CHARACTER ITEMKEY*(KEYSZ)
      COMMON/RSPIO/RSPROG
      CHARACTER*1 NEXTRSP
      COMMON/NXTKEY2/NEXTRSP
      INTEGER RSPCODE,RSPSORT
      INTEGER RSPNAM(8)
      EQUIVALENCE
     @(RSPREC(01),RSPCODE),
     @(RSPREC(02),RSPSORT),(RSPREC(72),RSPNAM(1))
*
*  AREA DEFINITION RECORD
*
*AREA RECORD DEFINITION
*======================
*
*    WORD   CONTENT
*    ----   -------
*      1    AREA RECORD CODE, =1
*      2    SORT CODE, =0
*      3    OLD AREA NUMBER (0 IF NEW AREA)
*      4    NEW AREA NUMBER
*      5    OLD AREA SIZE (PAGES)
*      6    NEW AREA SIZE (PAGES)
*      7    OLD AREA LINE SIZE (BITS)
*      8    NEW AREA LINE SIZE (BITS)
*      9    OLD AREA CHECKSUM FLAG
*     10    NEW AREA CHECKSUM FLAG
*     11    NEW FILL %
*     12    NEW INVENTORY %
*
      INTEGER ASCNUM,ATGNUM,ASCSIZ,ATGSIZ,ASCLSZ,ATGLSZ,
     @ASCCHK,ATGCHK,ATGFIL,ATGINV
      EQUIVALENCE
     @(RSPREC(03),ASCNUM),
     @(RSPREC(04),ATGNUM),
     @(RSPREC(05),ASCSIZ),
     @(RSPREC(06),ATGSIZ),
     @(RSPREC(07),ASCLSZ),
     @(RSPREC(08),ATGLSZ),
     @(RSPREC(09),ASCCHK),
     @(RSPREC(10),ATGCHK),
     @(RSPREC(11),ATGFIL),
     @(RSPREC(12),ATGINV)
*
*  GROUP DEFINITION RECORD
*
*GROUP RECORD DEFINITION
*=======================
*
*    WORD   CONTENT
*    ----   -------
*      1    GROUP RECORD CODE, =2
*      2    SORT CODE, SAME AS WORD 5
*      3    OLD AREA NUMBER (0 IF NEW GROUP)
*      4    NEW AREA NUMBER
*      5    OLD GROUP NUMBER (0 IF NEW GROUP)
*      6    NEW GROUP NUMBER
*      7    OLD PAGE RANGE MINIMUM
*      8    NEW PAGE RANGE MINIMUM
*      9    OLD PAGE RANGE MAXIMUM
*     10    NEW PAGE RANGE MAXIMUM
*     11    NEW PAGE RANGE PRIME VALUE
*     12    NEW GROUP SIZE (WORDS)
*     13    GROUP LOCATION MODE
*              0 - VIA SET
*              1 - DIRECT
*              2 - CALC
*              3 - INDEXED
*     14    REORG FILL %
*     15    RSP'S WORD
*
      INTEGER GSCARA,GTGARA,GSCNUM,GTGNUM,GSCPMN,GTGPMN,GSCPMX,
     @GTGPMX,GTGPRV,GTGSIZ,GTGLCM,GFLPCT,$MODGRP
      EQUIVALENCE
     @(RSPREC(03),GSCARA),
     @(RSPREC(04),GTGARA),
     @(RSPREC(05),GSCNUM),
     @(RSPREC(06),GTGNUM),
     @(RSPREC(07),GSCPMN),
     @(RSPREC(08),GTGPMN),
     @(RSPREC(09),GSCPMX),
     @(RSPREC(10),GTGPMX),
     @(RSPREC(11),GTGPRV),
     @(RSPREC(12),GTGSIZ),
     @(RSPREC(13),GTGLCM),
     @(RSPREC(14),GFLPCT),
     @(RSPREC(15),$MODGRP)
*
*  ITEM DEFINITION RECORD
*
*ITEM DEFINITION
*===============
*
*    WORD   CONTENT
*    ----   -------
*      1    ITEM RECORD CODE, =3
*      2    SORT CODE, SAME AS WORD 4
*      3    ITEM CONTROL TYPE CODE
*              0 - NON-CONTROL,CALC,SORT, OR INDEX
*              1 - CONTROL ITEM
*              2 - CALC KEY
*              4 - ASCENDING SORT KEY
*              6 - DESCENDING SORT KEY
*              8 - INDEXED ITEM
*      4    SOURCE GROUP NUMBER
*      5    TARGET GROUP NUMBER
*      6    ITEM TYPE CODE
*              0 - SIGNED NUMERIC
*              1 - ALPHANUMERIC
*              2 - NUMERIC
*              3 - ALPHABETIC
*              4 - BINARY
*              5 - FLOATING SHORT
*              6 - FLOATING LONG
*              7 - PACKED DECIMAL
*      7    INVERT FLAG (1 IFF INVERTED ITEM)
*      8    INVERT CALC (TARGET) AREA NUMBER
*      9    INVERT CALC GROUP NUMBER
*     10    INVERT CALC GROUP PAGE MINIMUM
*     11    INVERT CALC GROUP PAGE MAXIMUM
*     12    INVERT CALC GROUP PAGE PRIME VALUE
*     13    INVERT CALC GROUP SIZE (WORDS)
*     14    STARTING BYTE IN SOURCE RECORD
*     15    STARTING BYTE IN TARGET RECORD
*     16    SIZE IN BYTES IN SOURCE
*     17    SIZE IN BYTES IN TARGET
*     18    FIELD EXPANSION CODE (BYTES)
*              >0 MEANS ADD TO RIGHT
*              <0 MEANS ADD TO LEFT
*     19    RSP'S WORD.
*     20    SIGN FLAG(1 IFF SIGN EXISTS IN PIC) -- ADDED BY HIS
*     21     DIGIT LENGTH(# OF 9'S IN PIC)
      INTEGER ICNTRL,ISCGRP,ITGGRP,ITYPCD,INVERT,ITGARA,INVGRP,INGPMN,
     @INGPMX,INGPRV,INGSIZ,ISCPOS,ITGPOS,ISCSIZ,ITGSIZ,IEXPND,$MODITM,
     @ISIGN,IPDLEN
      EQUIVALENCE
     @(RSPREC(03),ICNTRL),
     @(RSPREC(04),ISCGRP),
     @(RSPREC(05),ITGGRP),
     @(RSPREC(06),ITYPCD),
     @(RSPREC(08),ITGARA),
     @(RSPREC(09),INVGRP),
     @(RSPREC(10),INGPMN),
     @(RSPREC(11),INGPMX),
     @(RSPREC(12),INGPRV),
     @(RSPREC(13),INGSIZ),
     @(RSPREC(14),ISCPOS),
     @(RSPREC(15),ITGPOS),
     @(RSPREC(16),ISCSIZ),
     @(RSPREC(17),ITGSIZ),
     @(RSPREC(18),IEXPND),
     @(RSPREC(19),$MODITM),
     @(RSPREC(20),ISIGN),
     @(RSPREC(21),IPDLEN)
*
*  POINTER DEFINITION RECORD
*
*
*POINTER DEFINITION
*==================
*
*    WORD   CONTENT
*    ----   -------
*      1    POINTER RECORD CODE, =4
*      2    SORT CODE, SAME AS WORD 4
*      3    SET NUMBER
*      4    SOURCE GROUP NUMBER
*      5    TARGET GROUP NUMBER
*      -    NOTE: ALL POINTER POSITIONS AND
*           SIZES ARE IN BYTES
*      6    SOURCE NEXT POINTER POSITION
*      7    SOURCE NEXT POINTER SIZE
*      8    TARGET NEXT POINTER POSITION
*      9    TARGET NEXT POINTER SIZE
*     10    SOURCE PRIOR POINTER POSITION
*     11    SOURCE PRIOR POINTER SIZE
*     12    TARGET PRIOR POINTER POISTION
*     13    TARGET PRIOR POINTER SIZE
*     14    SOURCE OWNER POINTER POSITION
*     15    SOURCE OWNER POINTER SIZE
*     16    TARGET OWNER POINTER POSITION
*     17    TARGET OWNER POINTER SIZE
*     18    RSP'S WORD
*
      INTEGER PSETNM,PSCGNM,PTGGNM,PSCNPOS,PSCNSIZ,PTGNPOS,PTGNSIZ,
     @PSCPPOS,PSCPSIZ,PTGPPOS,PTGPSIZ,PSCOPOS,PSCOSIZ,PTGOPOS,PTGOSIZ,
     @$MODSET,$MODMEM
      EQUIVALENCE
     @(RSPREC(03),PSETNM),
     @(RSPREC(04),PSCGNM),
     @(RSPREC(05),PTGGNM),
     @(RSPREC(06),PSCNPOS),
     @(RSPREC(07),PSCNSIZ),
     @(RSPREC(09),PTGNSIZ),
     @(RSPREC(10),PSCPPOS),
     @(RSPREC(11),PSCPSIZ),
     @(RSPREC(12),PTGPPOS),
     @(RSPREC(13),PTGPSIZ),
     @(RSPREC(14),PSCOPOS),
     @(RSPREC(15),PSCOSIZ),
     @(RSPREC(16),PTGOPOS),
     @(RSPREC(17),PTGOSIZ),
     @(RSPREC(18),$MODSET,$MODMEM)
*
*  SORT DEFINITION RECORD
*
*SORT DEFINITION
*===============
*
*     WORD   CONTENT
*     ----   -------
*       1    SORT RECORD CODE, =5
*       2    SORT CODE, SAME AS WORD 4
*       3    SET NUMBER
*       4    GROUP NUMBER
*       5    NUMBER OF SORT ITEMS IN KEY
*       6    POSITION OF PRIOR POINTER
*       7                NEXT
*       8                OWNER
*       9    SIZE OF POINTERS
*      10-?  ARRAY OF 3*SRTNKS ELEMENTS
*            1) ASCENDING/DESCENDING
*            2) KEY POSITION
*            3) KEY SIZE
*
      INTEGER SRTSET,SRTGRP,SRTNKS,SRTPRIOR,SRTNEXT,SRTOWNER,
     @SRTPTRS,SRTKEY
      EQUIVALENCE
     @(RSPREC(03),SRTSET),
     @(RSPREC(04),SRTGRP),
     @(RSPREC(05),SRTNKS),
     @(RSPREC(06),SRTPRIOR),
     @(RSPREC(07),SRTNEXT),
     @(RSPREC(08),SRTOWNER),
     @(RSPREC(09),SRTPTRS),
     @(RSPREC(10),SRTKEY)
