*     COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979, 1980
*
***   EXTERNAL (GLOBAL) COMMON BLOCKS FOR EXTRACTION
*     ==============================================
*
      INTEGER UERROR,UUSERI,UUSERO
      COMMON /USERIO/UERROR,UUSERI,UUSERO
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            UERROR   INTEGER     UNIT NUMBER FOR ERRORS
*            UUSERI   INTEGER     UNIT NUMBER FOR USER INPUT
*            UUSERO   INTEGER     UNIT NUMBER FOR USER OUTPUT
*
**
** STATISTICS
*  ----------
      INTEGER DBRCNT,OFRCNT,EGBFTR,EGBCNT,PTBFTR,PTBCNT
      COMMON /EXSTAT/DBRCNT,OFRCNT,EGBFTR,EGBCNT,PTBFTR,PTBCNT
*
*            NAME     TYPE        DESCRIPTION
*            -----    ----        -----------
*            DBRCNT   INTEGER     COUNT OF THE NUMBER OF RECORDS IN
*                                 THE DATABASE
*            OFRCNT   INTEGER     COUNT OF THE NUMBER OF LOGICAL
*                                 RECORDS IN THE OUTPUT FILES
*            EGBFTR   INTEGER     BLOCKING FACTOR FOR EG FILE
*            EGBCNT   INTEGER     COUNT OF THE NUMBER OF EG BLOCKS
*                                 NUMBER OF PHYSICAL RECORDS IN EG FILE
*            PTBFTR   INTEGER     BLOCKING FACTOR FOR PT FILE
*            PTBCNT   INTEGER     COUNT OF THE NUMBER OF PT BLOCKS
*                                 NUMBER OF PHYSICAL RECORDS IN PT FILE
*
**
***
***   LOCAL COMMON BLOCKS FOR EXTRACTION
*     ==================================
*
** I/O BLOCKS
*  ----------
*
      INTEGER UDBARA,CAREAI,CURPGE
      COMMON /DBSEIO/UDBARA,CAREAI,CURPGE
*
*            ----     ----        -----------
*            UDBARA   INTEGER     BASE UNIT NUMBER FOR
*                                 DATABASE AREAS
*            CAREAI   INTEGER     THE CURRENT AREA INDEX
*            CURPGE   INTEGER     THE CURRENT PAGE NUMBER
**
**
      INTEGER UEGFIL,UPTFIL,UEXCTL
      COMMON /VALDIO/UEGFIL,UPTFIL,UEXCTL
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            UEGFIL   INTEGER     UNIT NUMBER FOR EG FILE
*            UPTFIL   INTEGER     UNIT NUMBER FOR PT FILE
*            UEXCTL   INTEGER     UNIT NUMBER FOR EXTRACTION
*                                 CONTROL INFORMATION
*
**
** DATABASE PAGE AND CURRENT RECORD INFO
*  -------------------------------------
*
      INTEGER PTRSIZ,PGEBUF,PGENUM,WRDCNT,LINCNT,LINPTR,LINSUB,
     @LINSRT,LINNBR,RECHDR,RECEND,GRPNBR,GRPSUB,REFCDE,DELIND
      DIMENSION PGEBUF(512),LINSRT(256),LINNBR(256),RECHDR(256),
     @RECEND(256),GRPNBR(256),GRPSUB(256),REFCDE(256),DELIND(256)
      COMMON /DBRECS/PTRSIZ,PGEBUF,PGENUM,WRDCNT,LINCNT,LINPTR,LINSUB,
     @LINSRT,LINNBR,RECHDR,RECEND,GRPNBR,GRPSUB,REFCDE,DELIND
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            PTRSIZ   INTEGER     SIZE OF DATABASE POINTERS (BYTES)
*            PGEBUF   INTEGER     BUFFER WHICH IS THE CURRENT
*                                 PAGE
*            PGENUM   INTEGER     THE CURRENT PAGE NUMBER
*                                 (ORIGIN 1)
*            WRDCNT   INTEGER     THE NUMBER OF WORDS IN USE ON
*                                 THE CURRENT PAGE
*                                 ON THIS PAGE
*            RECEND   INTEGER     LAST WORD POINTER FOR RECORDS
*                                 ON THIS PAGE
*            LINNBR   INTEGER     LIST OF LINE NUMBERS ON THIS PAGE
*            LINSUB   INTEGER     INDEXES OF GROUPS ON CURRENT PAGE
*            GRPNBR   INTEGER     LIST OF GROUP NUMBERS ON THIS PAGE
*            GRPSUB   INTEGER     THE INDEX FOR THE GROUP NUMBER
*                                 I.E. GROUP(GRPSUB(I))=GRPNBR
*            REFCDE   INTEGER     THE REFCODES OF THE RECORDS
*            DELIND   INTEGER     DELETE INDICATORS OF THE RECORDS
*
**
** EG AND PT OUTPUT RECORDS
*  ------------------------
*
      INTEGER EGREF,EGGRP,EGSET,EGPRI,EGOWN,EGDEL
      COMMON /EGREC/EGREF,EGGRP,EGSET,EGPRI,EGOWN,EGDEL
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            EGREF    INTEGER     REFCODE OF CURRENT RECORD
*            EGGRP    INTEGER     GROUP OF CURRENT RECORD
*            EGSET    INTEGER     SET OF CURRENT RECORD
*            EGPRI    INTEGER     PRIOR POINTER OF CURRENT RECORD
*                                 ZERO IF NONE
*            EGOWN    INTEGER     OWNER POINTER OF CURRENT
*                                 RECORD. IF NO OWNER IS
*                                 AVAILABLE, EGOWN IS ZERO.
*                                 IF RECORD IS AN OWNER,
*                                 THEN EGOWN IS ITS REFCODE.
*            EGDEL    INTEGER     DELETE INDICATOR OF THIS RECORD.
**
**
      INTEGER PTREF,PTGRP,PTSET,PTNXT,PTOWN
      COMMON /PTREC/PTREF,PTGRP,PTSET,PTNXT,PTOWN
*
*            ----     ----        -----------
*            PTREF    INTEGER     REFCODE OF CURRENT RECORD
*            PTGRP    INTEGER     GROUP OF CURRENT RECORD
*            PTSET    INTEGER     SET OF CURRENT RECORD
*            PTNXT    INTEGER     NEXT POINTER OF CURRENT RECORD
*                                 ZERO IF NONE
*            PTOWN    INTEGER     OWNER POINTER OF CURRENT
*                                 RECORD. IF NO OWNER IS
*                                 AVAILABLE, PTOWN IS ZERO.
*                                 IF RECORD IS AN OWNER,
*                                 THEN PTOWN IS ITS REFCODE.
*
**
** EG AND PT FILE OUTPUT BLOCKS
*  ----------------------------
*
      INTEGER EGBSIZ,EGBPTR,EGBUF
      DIMENSION EGBUF(5994)
      COMMON /EGBLK/EGBSIZ,EGBPTR,EGBUF
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            EGBSIZ   CONSTANT    SIZE OF EG BUFFER
*            EGBPTR   INTEGER     POINTER AT END OF LAST RECORD
*                                 PLACED IN THE BUFFER
*            EGBUF    INTEGER     EG OUTPUT BLOCKING BUFFER
*
**
**
      INTEGER PTBSIZ,PTBPTR,PTBUF
      DIMENSION PTBUF(4995)
      COMMON /PTBLK/PTBSIZ,PTBPTR,PTBUF
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            PTBSIZ   CONSTANT    SIZE OF PT BUFFER
*            PTBPTR   INTEGER     POINTER AT END OF LAST RECORD
*                                 PLACED IN THE BUFFER
*            PTBUF    INTEGER     PT OUTPUT BLOCKING BUFFER
*
**
***
