*     COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979, 1980
*
***   EXTERNAL (GLOBAL) COMMON BLOCKS FOR VALIDATION
*     ==============================================
*
      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
*
***
***   LOCAL COMMON BLOCKS FOR VALIDATION
*     ==================================
*
** I/O BLOCKS
*  ----------
*
      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
*
**
** VALIDATION INFORMATION
*  ----------------------
*
      INTEGER PPTSTY,PTSCNT,PTSAVE,MNPTR,MNSET
      DIMENSION PTSAVE(5,2)
      COMMON /VALID/PPTSTY,PTSCNT,PTSAVE,MNPTR,MNSET
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            PPTSTY   INTEGER     PREVIOUS PT SET TYPE
*                                 ZERO WHEN NO PREVIOUS TYPE
*            PTSCNT   INTEGER     POINTER INTO PTSAVE
*            PTSAVE   INTEGER     RECORD OF GROUP AND REFCODE
*                                 OF PREVIOUS PT RECORDS,
*                                 USED TO BUFFER DATA FOR
*                                 MULTIPLE NEXT POINTER ERROR
*            MNPTR    INTEGER     NEXT POINTER VALUE IN THE
*                                 CASE OF A MULTIPLE NEXT ERROR
*            MNSET    INTEGER     SET IN WHICH MULT NEXT ERROR
*                                 OCCURED
*
**
** EG AND PT INPUT 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
*            EGDEL    INTEGER     DELETE INDICATOR OF RECORD
**
**
      INTEGER PTREF,PTGRP,PTSET,PTNXT,PTOWN
      COMMON /PTREC/PTREF,PTGRP,PTSET,PTNXT,PTOWN
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            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
*                                 AVAILABLE, PTOWN IS ZERO
*
**
** INTERMEDIATE EG BLOCKING BUFFER AND INFORMATION
*
      INTEGER EGBSIZ,EGBPTR,EGBUF
      LOGICAL EGLIR,EGLSTR
      DIMENSION EGBUF(5994)
      COMMON /EGINT/EGLIR,EGLSTR,EGBSIZ,EGBPTR,EGBUF
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            EGLIR    LOGICAL     FLAG TO INDICATE THAT RECORD IN
*                                 INTERMEDIATE BUFFER HAS A DIFFERENT
*                                 REFCODE FROM THE LAST ONE, AND
*                                 THAT RDEGR HAS NOT YET RETURNED
*                                 AN EOD FLAG TRUE.
*            EGLSTR   LOGICAL     FLAG TO INDICATE THAT RECORD IN
*                                 THE INTERMEDIATE BUFFER IS THE
*                                 LAST IN THE EG FILE.
*            EGBSIZ   INTEGER     SIZE OF DATA AREA WITHIN THE
*                                 EG BLOCKING BUFFER
*            EGBPTR   INTEGER     LOCATION OF ORIGIN FOR NEXT
*                                 EG RECORD IN BLOCKING BUFFER
*            EGBUF    INTEGER     EG BLOCKING BUFFER
*
**
** INTERMEDIATE PT BLOCKING BUFFER AND INFORMATION
*
      INTEGER PTBSIZ,PTBPTR,PTBUF
      LOGICAL PTLIR,PTLSTR
      DIMENSION PTBUF(4995)
      COMMON /PTINT/PTLIR,PTLSTR,PTBSIZ,PTBPTR,PTBUF
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            PTLIR    LOGICAL     FLAG TO INDICATE THAT RECORD IN
*                                 THE INTERMEDIATE BUFFER HAS A
*                                 DIFFERENT REFCODE FROM THE LAST
*                                 ONE, AND THAT RDPTR HAS NOT YET
*                                 RETURNED AN EOD FLAG TRUE.
*            PTLSTR   LOGICAL     FLAG TO INDICATE THET RECORD IN
*                                 THE INTERMEDIATE BUFFER IS THE
*                                 LAST IN THE PT FILE.
*            PTBSIZ   INTEGER     SIZE OF DATA AREA WITHIN THE
*                                 PT BLOCKING BUFFER
*            PTBPTR   INTEGER     LOCATION OF ORIGIN FOR NEXT
*                                 EG RECORD IN BLOCKING BUFFER
*            PTBUF    INTEGER     PT BLOCKING BUFFER
*
**
***
