FTN 
      BLOCK DATA,DATA,92069-16015 REV.2026 800122 
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18057
C     RELOC:     92069-16015
C 
C     ALTERED:   JANUARY 22, 1980 FOR SORTED CHAINS FEATURE - CEJ 
C 
C 
C****************************************************************:
C 
C 
C 
C                CONSTANT INITIALIZATION
C 
C THESE CONSTANTS ARE SET UP TO FACILITATE CHANGES TO CERTAIN VALUES
C THAT NOW APPEAR TO BE FIXED, BUT THAT MAY CHANGE BEFORE TOTAL 
C DEVELOPEMENT IS COMPLETED.
C 
C 
C CONST 
C IS A COMMON BLOCK WHICH DEFINES RESNO, DATA BASE MAXIMUMS,
C AND ARRAYS OF CONSTANTS SUCH AS "NFO", AND "NFONX".  "NFO" AND
C "NFONX" ARE USED TO SET AND TEST CONTROL OPTION TOGGLES IN "INFO".
C  SEE THE SEGMENT "CNTR" FOR MORE DETAILS. 
C 
C 
C DBCB
C IS THE DATA BASE CONTROL BLOCK OFFSETS IN BYTES. NOTE THAT THEY 
C START WITH 0. 
C 
C       --------------------------------
C  0    !                               !    DBNAM
C       -----                     ------
C  2    !      DATA BASE NAME           ! 
C       -----                    -------
C  4    !                               ! 
C       --------------------------------
C       !                               !    DBSCD
C       --------------------------------
C       ! CARTRIDGE NUMBER              !    DBCRN
C       --------------------------------
C       ! NODE NUMBER                   !    DBDSN
C       --------------------------------
C       ! RESOURCE NUMBER               !    DBRSN
C       --------------------------------
C       ! DATA ITEM COUNT               !    DBICT
C       --------------------------------
C       ! WORD OFFSET FOR ITEM TABLE    !    DBITP
C       --------------------------------
C       ! DATA SET COUNT                !    DBSCT
C       --------------------------------
C       ! WORD OFFSET TO SET TABLE      !    DBSTP
C       --------------------------------
C       ! WORD OFFSET TO SORT TABLE     !    DBSOP
C       --------------------------------
C       ! WORD OFFSET TO FREE RECORD TBL !   DBFRP
C       --------------------------------- 
C       ! LEVEL FLAG                    !    DBLMD
C       --------------------------------
C       ! LEVEL WORD1                   !    DBLVL
C       ----                        ----
C       !                               ! 
C       ----                        ----
C       !                              !
C       ------------------------------- 
C       ! LEVEL WORD2                  !
C       ----                        --- 
C       !                              !
C       ----                        --- 
C       !                              !
C       ------------------------------- 
C       !                              !
C       !             .                !
C       !             .                !
C       !             .                !
C       !                              !
C       --------------------------------
C       ! LEVEL WORD15                 !
C       ----                       ---
C       !                              !
C       ------                     ---- 
C  116  !                              !     DBLVE = END OF LEVEL WORDS 
C       ------------------------------- 
C                                            ITMST IS THE WORD OFFSET 
C                                               FOR THE START OF THE ITEM 
C                                               TABLE WHICH IS ALWAYS AT
C                                               THE END OF THE DBCB.
C 
C ITCB
C IS THE OFFSETS INTO AN ITEM TABLE. NOTE THESE OFFSETS ARE IN BYTES
C AND BEGIN WITH 0. 
C 
C 
C       --------------------------------- 
C   0   !                                 !     ITNME 
C       ----                          ----
C   2   !       ITEM NAME                 ! 
C       ----                          ----
C   4   !                                 ! 
C       ----------------------------------
C   6   !READ    !WRITE ! ITEM TYPE       !     ITINF, ITTYP
C       ----------------------------------
C   8   ! DATA SET CNT  ! SET NUMBER      !     ITSCT,ITSNO 
C       ----------------------------------
C       !               ! ELEMENT COUNT   !     ITWRC,ITECT 
C       ----------------------------------
C   12  !  ITEM LENGTH IN WORDS           !     ITLNG 
C       --------------------------------- 
C 
C            ITMSZ = BYTE SIZE OF ITEM TABLE
C            READ LVL = READ LEVEL DEFINED, RANGE 0-15
C            WRITE LVL = WRITE LEVEL FOR ITEM, RANGE 0-15 
C 
C 
C DSCB
C IS THE DATA SET TABLE.
C 
C 
C 
C 
C      ---------------------------------
C      !                               !    DSNME 
C       ----                        ----
C      !    DATA SET NAME              !
C       ----                        --
C      !                               !
C      ---------------------------------
C      ! CARTRIDGE NUMBER              !    DSCRN 
C      ---------------------------------
C      ! ! ! ! !TYP! ! !  MEDIA LENGTH !    DSINF,DSMDL 
C      ---------------------------------
C      ! DATA RECORD LENGTH            !    DSDRL 
C      ---------------------------------
C      ! FIELD/ENTRY  ! PATHS/ENTRY    !    DSFCT,DSPCT 
C      ---------------------------------
C      ! INFO TABLE POINTER            !    DSITP 
C      ---------------------------------
C      ! DOUBLE WORD CAPACITY  COUNT   !    DSCAP 
C      !                               !
C      ---------------------------------
C      ! HASH ITEM NO. !               !    DSCCT,DSPAN 
C      ---------------------------------
C      ! DOUBLE WORD RCURENT           !    DSRCN 
C      !                               !
C      ---------------------------------
C      ! DOUBLE WORD PREVIOUS          !    DSBWN 
C      !   RECORD NUMBER               !
C      ---------------------------------
C      ! DOUBLE WORD NEXT              !    DSFWN 
C      !   RECORD NUMBER               !
C      ---------------------------------
C 
C 
C          SETSZ = BYTE SIZE OF A SET TABLE 
C          TYP = 2 BITS, BIT POSITION 10,11 
C                0 IMPLIES AUTOMATIC
C                1 IMPLIES MANUAL 
C                2 IMPLIES DETAIL 
C 
C 
C OVCB
C IS THE OVERHEAD CONTROL BLOCK 
C 
C      -------------------------
C      ! START REC # OF RUN TABLE   !     OVRRC 
C      -----------------------------
C      ! SIZE OF RUN TABLE (WORDS)  !     OVRTL 
C       ----------------------------
C      ! SIZE OF FREE SPACE (WORDS) !     OVFRL 
C      -----------------------------
C      ! MAXIMUM # DCB'S            !     OVDCB 
C      -----------------------------
C      ! MAXIMUM SIZE OF RECORD     !     OVREC 
C      -----------------------------
C 
C 
C ERRM
C IS A TABLE OF CONSTANTS THAT INDEX INTO THE ERROR MESSAGE 
C TABLE.  THESE CONSTANTS SHOULD BE USED FOR ALL ERROR REPORTING, 
C AS THEY MAY CHANGE IN THE FUTURE. 
C 
C 
C THE UNLABLED COMMON CONTAINS DIFFERENT GLOBALS. 
C 
C  CARD - IS A INPUT BUFFER 
C  CHAR - CONTAINS THE LAST CHARACTER PROCESSED BY GCARD
C  CRDPR - POINTS TO CHARACTER JUST PROCESSED 
C  DSEC - IS THE DATA BASE SECURITY CODE
C  DCRN - IS THE DATA BASE'S ROOT FILE'S CARTRIDGE NUMBER 
C  ENTL - IS THE CURRENT ENTRY LENGTH, USED IN "PROCESSING "SETS:"
C  ERROR - IS THE COUNT OF ERRORS 
C  GGERR - IS A GLOBAL ERROR INDICATOR USED IN PROCESSING OF "SETS:"
C  ICNT - IS THE CURRENT COUNT OF ITEMS, IT BEGINS AS ZERO AND
C         IS INCREMENTED AFTER AN ITEM IS COMPLETELY PROCESSED. 
C  IDCB - IS THE INPUT DCB WHEN THE INPUT IS FROM FILES 
C  INDX - IS USUALLY THE INDEX TO THE CURRENT ITEM TABLE
C  INFPT -
C  INFO - IS A BUFFER USED TO HOLD THE "CONTROL:" TOGGLES 
C  IGLOB - IS USED TO HOLD THE KEYWORD JUST GATHER UP BY "GGLOB"
C  INPUT - IS THE INPUT LU NUMBER WHEN INPUT IS FROM A DEVICE 
C  ITMTB - IS THE BASE POINTER TO THE BEGINING OF THE ITEM TABLES 
C  LDCB - IS THE LIST DCB WHEN LISTING IS TO A FILE 
C  LGLOB - IS THE LENGTH IN WORDS OF IGLOB
C  LIST - IS THE LIST LU WHEN THE LISTING IS TO A DEVICE
C  LWAM - IS THE LAST WORD OF AVAILABLE MEMORY
C  MEDIA - IS THE CURRENT SIZE OF THE MEDIA RECORD
C  OVRHD - IS THE BYTE OFFSET IN THE ROOT TABLE FOR THE OVERHEAD
C            RECORD.
C  PTHTB - IS THE PATH TABLE FOR THE CURRENT DATA SET WHEN THE DATA 
C            SET IS A DETAIL DATA SET.
C  RDEF - IS THE RECORD DEFINITION TABLE FOR THE CURRENT DATA SET 
C  RESNO - IS THE RESERVED NUMBER OF THE GLOBAL RETURNED IN IGLOB 
C  RFILE - IS THE FILE NAME OF THE ROOT FILE
C  RINDX - IS THE BYTE OFFSET INTO THE ROOT TABLE.  IT IS THE CURRENT 
C             POSITION IN THE ROOT TABLE
C  SCNT - IS THE DATA SET COUNT, IT BEGINS AT ZERO AND IS INCREMENTED 
C             AFTER THE SET IS COMPLETELY PROCESSED.
C  SETTB - IS THE BASE ADDRESS OF THE BEGINNING OF THE SET TABLES 
C  SINDX - IS THE BYTE POINTER TO THE CURRENT SET TABLE 
C  SORTI - IS THE ITEM SORT TABLE 
C  SORTS - IS THE SET SORT TABLE
C  STYPE - IS THE SET TYPE OF THE CURRENT DATA SET
C  TRAIL - IS A TRACE INDICATOR --- IT IS NO LONGER USED
C  TYPE -  IS A GLOBAL RETURNED BY "GGLOB"
C 
C 
C 
C 
C 
C 
C 
C 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ JANUARY 23,1980  
C 
C 
C                      CONSTANTS IN INTEGER 
C 
C 
C 
      INTEGER AUTO,BADC,BASE,BEGIN,BLANK,BLKCD, 
     1       CAP,CNTRL,COLON,COMMA,CRDLM, 
     2       DATA,DETAIL,DOLLR,DOT, 
     3       ELSE,END,ENTY,EQUAL,ERR, 
     4       FIELD, 
     5       ICODE,INTGR,ITM, 
     6       LEVL,LPARN,LST,
     7       MANU,MXCAP,MAXRC,
     8       MXELE,MXENT,MXITM,MXLEV,MXSTR, 
     9       NAM,RSRV,ASET,AUSET,MSET,MASET,DSET,DESET,NM,NFONX,NFO,
     C       NOLST,NORES,NOTAB, 
     1       OPSET, 
     2       PMAX,
     3       ROOTR,RPARN, 
     4       SEMI,SET,SMAX, 
     5       UPPER
C 
C 
C 
C 
C                      DATA BASE OFFSETS
C 
C 
C 
      INTEGER DBNAM,DBSCD,DBCRN,DBDSN,DBRSN,DBICT,DBITP,
     1       DBSCT,DBSTP,DBSOP,DBFRP,DBLMD,DBLVL, 
     2       DBLVE
C 
C 
C 
C                     ITEM TABLE OFFSETS
C 
C 
C 
      INTEGER ITNME,ITINF,ITTYP,ITSCT,
     1       ITSNO,ITECT,ITLNG,ITMSZ,ITMST
C 
C 
C                     DATA SET TABLE OFFSETS
C 
C 
      INTEGER DSNME,DSCRN,DSTYP,DSMDL,DSDRL,DSFCT,DSPCT,
     1       DSITP,DSCAP,DSCCT,DSPAN,SETSZ
C 
C 
C 
C               OFFSET TO OVERHEAD RECORD 
C 
C 
C 
      INTEGER OVRRC,OVRTL,OVFRL,OVDCB,OVREC 
C 
C 
C 
C              ERROR MESSAGES 
C 
C 
      INTEGER ILCTR,ILCRN,ILSEC,XBEGN,XLEV, 
     1       DUPIT,ITLIM,ILITP,FLDER,ILXTP, 
     2       ILWR,ILTRM,NAMX,DUPST,STLIM, 
     3       ENTYX,NOITM,BDSET,BDKEY,DUPHS, 
     4       NOPTH,AERR,RCLIM,CAPX,ILCAP, 
     5       EMPTY,MXERR,EOF,NOSEG,NOMEM, 
     6       DUPLV,ILNAM,ILNMR,LVDEF,ILSEP, 
     7       ILRD,ILRNG,SETX,IGNSC,INMX,
     8       PTDUP,DBKEY,ENDX,PDEFC,SIMPT,
     9       BDCNT,RTERR,GOODS,GOODR,BADS,
     C       BADR,ABORT,OPNER,XCNTR,ILLVN,
     1       SRCH2,UEND,XITM,ELERR,ROTER, 
     2       UNITM,IOAIN,IOAOT,UNRDL,UNWRL,IOERR,ILOPT, 
     3       ILLSC,MORIT,ILPTH,DEFIT, 
     4       ILSRT,SIMPS,UNDST
C 
C 
C                 VARIABLES 
C 
C 
C 
      INTEGER CARD,CHAR,CODE,CRDPR
      REAL CPACK
      INTEGER DSEC,DCRN 
      INTEGER ENTL,ERROR
      LOGICAL NMFLG 
      INTEGER FWAM
      INTEGER GGERR 
      INTEGER ICNT,IDCB,INDX
      INTEGER INFPT,INFO,IGLOB,INPUT,ITMTB
      INTEGER KPACK 
      INTEGER LDCB,LGLOB,LIST,LWAM
      INTEGER MEDIA 
      INTEGER NPACK,NSETS 
      INTEGER OVRHD 
      INTEGER PTHTB 
      INTEGER RDEF,RESNO,RFILE,RINDX
      INTEGER SCNT,SETTB,SINDX,SORTI,SORTS,STYPE
      INTEGER TYPE,PRGFLG 
C 
C 
C    EXTERNAL REFERENCES
C 
C 
      INTEGER ROOTA 
C 
C                      CONSTANTS IN COMMON
C 
C 
C 
      COMMON/CONST/ AUTO,BADC,BASE,BEGIN,BLANK,BLKCD, 
     1       CAP,CNTRL,COLON,COMMA,CRDLM, 
     2       DATA,DETAIL,DOLLR,DOT, 
     3       ELSE,END,ENTY,EQUAL,ERR, 
     4       FIELD, 
     5       ICODE,INTGR,ITM, 
     6       LEVL,LPARN,LST,
     7       MANU,MXCAP(2),MAXRC, 
     8       MXELE,MXENT,MXITM,MXLEV,MXSTR, 
     9       NAM,RSRV,ASET,AUSET,MSET,MASET,DSET,DESET,NM,NFONX(10),
     C       NFO(10), 
     C       NOLST,NORES,NOTAB, 
     1       OPSET, 
     2       PMAX,
     3       ROOTR,RPARN, 
     4       SEMI,SET,SMAX, 
     5       UPPER
C 
C 
C 
C 
C                      DATA BASE OFFSETS
C 
C 
C 
      COMMON/DBCB/ DBNAM,DBSCD,DBCRN,DBDSN,DBRSN,DBICT,DBITP, 
     1       DBSCT,DBSTP,DBSOP,DBFRP,DBLMD,DBLVL, 
     2       DBLVE
C 
C 
C 
C                     ITEM TABLE OFFSETS
C 
C 
C 
      COMMON/ITCB/ ITNME,ITINF,ITTYP,ITSCT, 
     1       ITSNO,ITECT,ITLNG,ITMSZ,ITMST
C 
C 
C                     DATA SET TABLE OFFSETS
C 
C 
      COMMON/DSCB/ DSNME,DSCRN,DSTYP,DSMDL,DSDRL,DSFCT,DSPCT, 
     1       DSITP,DSCAP,DSCCT,DSPAN,SETSZ
C 
C 
C 
C               OFFSET TO OVERHEAD RECORD 
C 
C 
C 
      COMMON /OVCB/OVRRC,OVRTL,OVFRL,OVDCB,OVREC
C 
C 
C 
C              ERROR MESSAGES 
C 
C 
      COMMON/ERRM/ ILCTR,ILCRN,ILSEC,XBEGN,XLEV,
     1       DUPIT,ITLIM,ILITP,FLDER,ILXTP, 
     2       ILWR,ILTRM,NAMX,DUPST,STLIM, 
     3       ENTYX,NOITM,BDSET,BDKEY,DUPHS, 
     4       NOPTH,AERR,RCLIM,CAPX,ILCAP, 
     5       EMPTY,MXERR,EOF,NOSEG,NOMEM, 
     6       DUPLV,ILNAM,ILNMR,LVDEF,ILSEP, 
     7       ILRD,ILRNG,SETX,IGNSC,INMX,
     8       PTDUP,DBKEY,ENDX,PDEFC,SIMPT,
     9       BDCNT,RTERR,GOODS,GOODR,BADS,
     C       BADR,ABORT,OPNER,XCNTR,ILLVN,
     1       SRCH2,UEND,XITM,ELERR,ROTER, 
     2       UNITM,IOAIN,IOAOT,UNRDL,UNWRL,IOERR,ILOPT, 
     3       ILLSC,MORIT,ILPTH,DEFIT, 
     4       ILSRT,SIMPS,UNDST
C 
C 
C                 VARIABLES 
C 
C 
C 
      COMMON// CARD(36),CHAR,CODE,CPACK(50),CRDPR 
      COMMON DSEC,DCRN
      COMMON ENTL,ERROR 
      COMMON NMFLG
      COMMON FWAM 
      COMMON GGERR
      COMMON ICNT,IDCB(144),INDX
      COMMON INFPT,INFO(6),IGLOB(10),INPUT,ITMTB
      COMMON KPACK(50)
      COMMON LDCB(144),LGLOB,LIST,LWAM
      COMMON MEDIA
      COMMON NPACK(50),NSETS(50)
      COMMON OVRHD
      COMMON PTHTB(32)
      COMMON RDEF(64),RESNO,RFILE(3),RINDX
      COMMON SCNT,SETTB,SINDX,SORTI(255),SORTS(50),STYPE
      COMMON TYPE,PRGFLG
C 
C 
C    EXTERNAL REFERENCES
C 
C 
      EXTERNAL ROOTA
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ JANUARY 23,1980
C CHANGED COMMON TO ADD ILSRT,SIMPS,UNDST AND INCREASE SIZE OF PTHTB
C 
C DATA SET FLAG FOR AUTOMATIC MASTER
      DATA AUTO/0/
C CHARACTER CODE FOR BAD CHARACTERS "+", "-", "." 
      DATA BADC/7/
C RESNO  FOR BASE OF BEGIN DATA BASE
      DATA BASE/15/ 
C RESNO FOR BEGIN OF "BEGIN DATA BASE"
      DATA BEGIN/13/
C ASCII BLANKS
      DATA BLANK/2H  /
C CODE IN CODTA FOR BLANK 
      DATA BLKCD/9/ 
C RESNO FOR "CAPACITY:" 
      DATA CAP/22/
C RESNO FOR "$CONTROL"
      DATA CNTRL/11/
C TYPE NUMBER FOR COLON 
      DATA COLON/6/ 
C TYPE NUMBER FOR COMMA 
      DATA COMMA/8/ 
C MAXIMUM NUMBER OF WORDS READ FROM INPUT 
      DATA CRDLM/36/
C RESNO FOR DAT OF "BEGIN DATA BASE"
      DATA DATA/14/ 
C FLAG FOR DETAIL SET 
      DATA DETAIL/10B   / 
C CHARACTER CODE FOR DOLLAR SIGN ($)
      DATA DOLLR/44B/ 
C CHARACTER CODE FOR PERIOD 
      DATA DOT/56B/ 
C 
C CODE FOR ILLEGAL CHARACTERS 
C 
      DATA ELSE/12/ 
C RESNO FOR END. COMMAND
      DATA END/16/
C RESNO FOR "ENTRY:" COMMAND
      DATA ENTY/21/ 
C RESNO FOR "ERROR=N" CONTROL OPTION
      DATA ERR/3/ 
C CODE FOR EQUAL SIGN (=) 
      DATA EQUAL/4/ 
C RESNO FOR FIELD CONTROL OPTION
      DATA FIELD/10/
C CODE IN CODTA FOR INTEGERS
      DATA ICODE/1/ 
C TYPE NUMBER FOR INTEGERS
      DATA INTGR/1/ 
C RESNO FOR "ITEM:" COMMAND 
      DATA ITM/18/
C RESNO FOR "LEVEL:" COMMAND
      DATA LEVL/17/ 
C TYPE FOR LEFT PAREN 
      DATA LPARN/5/ 
C RESNO FOR LIST OPTION 
      DATA LST/1/ 
C DATA SET FLAG FOR MANUAL MASTERS
      DATA MANU/04B   / 
C MAXIMUM CAPCACITY COUNT 
      DATA MXCAP(1),MXCAP(2)/077777B,177777B/ 
C MAXIMUM WORDS PER RECORD
      DATA MAXRC/2048   / 
C MAXIMUM NUMBER OF ELEMENTS IN AN ARRAY
      DATA MXELE/255/ 
C MAXIMUM CHARACTERS IN A STRING ITEM 
      DATA MXSTR/255/ 
C MAXIMUM DATA RECORD SIZE
      DATA MXENT/127/ 
C MAXIMUM NUMBER OF ITEMS IN THE DATA BASE
      DATA MXITM/255/ 
C MAXIMUM READ/WRITE LEVEL
      DATA MXLEV/15/
C TYPE NUMBER FOR NAMES 
      DATA NAM/2/ 
C TYPE NUMBER OF RESERVED WORDS 
      DATA RSRV/3/
C RESNO FOR "A" AND "AUTOMATIC" 
      DATA ASET/23/ 
      DATA AUSET/24/
C RESNO FOR "M" AND "MANUAL"
      DATA MSET/25/ 
      DATA MASET/26/
C RESNO FOR "D" AND "DETAIL"
      DATA DSET/27/ 
      DATA DESET/28/
C RESNO FOR "NAME:" COMMAND 
      DATA NM/20/ 
C RESNO FOR NOLIST CONTROL OPTION 
      DATA NOLST/2/ 
C NUMBER OF RESNO 
      DATA NORES/28/
C RESNO FOR "NOSET" 
      DATA OPSET/9/ 
C RESNO FOR "NOTABLE" 
      DATA NOTAB/7/ 
C MAXIMUM NUMBER OF PATHS PER DATA SET
      DATA PMAX/16/ 
C RESNO FOR "ROOT"
      DATA ROOTR/4/ 
C TYPE NUMBER FOR RIGHT PARAN 
      DATA RPARN/10/
C TYPE NUMBER OF SEMICOLON
      DATA SEMI/11/ 
C RESNO FOR "SETS:" COMMAND 
      DATA SET/19/
C MAXIMUM NUMBER OF SETS PER DATA BASE
      DATA SMAX/50/ 
C CODE IN CODTA FOR UPPER CASE
      DATA UPPER/2/ 
C 
C 
C                DATA BASE OFFSETS
C 
C 
C 
      DATA DBNAM/0/ 
      DATA DBSCD/6/ 
      DATA DBCRN/8/ 
      DATA DBDSN/10/
      DATA DBRSN/12/
      DATA DBICT/14/
      DATA DBITP/16/
      DATA DBSCT/18/
      DATA DBSTP/20/
      DATA DBSOP/22/
      DATA DBFRP/24/
      DATA DBLMD/26/
      DATA DBLVL/28/
      DATA DBLVE/116/ 
C 
C 
C               ITEM TABLE OFFSETS
C 
C 
C 
      DATA ITNME/0/ 
      DATA ITINF/6/ 
      DATA ITTYP/7/ 
      DATA ITSCT/8/ 
      DATA ITSNO/9/ 
      DATA ITECT/11/
      DATA ITLNG/12/
      DATA ITMSZ/14/
      DATA ITMST/59/
C 
C 
C 
C                     DATA SET TABLE OFFSETS
C 
C 
C 
      DATA DSNME/0/ 
      DATA DSCRN/6/ 
      DATA DSTYP/8/ 
      DATA DSMDL/9/ 
      DATA DSDRL/10/
      DATA DSFCT/12/
      DATA DSPCT/13/
      DATA DSITP/14/
      DATA DSCAP/16/
      DATA DSCCT/20/
      DATA DSPAN/21/
      DATA SETSZ/34/
C 
C 
C            OVERHEAD TABLE OFFSETS 
C 
C 
C 
      DATA OVRRC/0/ 
      DATA OVRTL/2/ 
      DATA OVFRL/4/ 
      DATA OVDCB/6/ 
      DATA OVREC/8/ 
C 
C 
C 
C 
C                 ERROR MESSAGE CONSTANTS 
C 
C 
C 
C 
      DATA ILCTR /1 / 
      DATA ILCRN /2 / 
      DATA ILSEC /3 / 
      DATA XBEGN /4 / 
      DATA XLEV  /5 / 
      DATA DUPIT /6 / 
      DATA ITLIM /7 / 
      DATA ILITP /8 / 
      DATA FLDER /9 / 
      DATA ILXTP /10/ 
      DATA ILWR  /11/ 
      DATA ILTRM /12/ 
      DATA NAMX  /13/ 
      DATA DUPST /14/ 
      DATA STLIM /15/ 
      DATA ENTYX /16/ 
      DATA NOITM /17/ 
      DATA BDSET /18/ 
      DATA BDKEY /19/ 
      DATA DUPHS /20/ 
      DATA NOPTH /21/ 
      DATA AERR  /22/ 
      DATA RCLIM /23/ 
      DATA CAPX  /24/ 
      DATA ILCAP /25/ 
      DATA EMPTY /26/ 
      DATA MXERR /27/ 
      DATA EOF   /28/ 
      DATA NOSEG /29/ 
      DATA NOMEM /30/ 
      DATA DUPLV /31/ 
      DATA ILNAM /32/ 
      DATA ILNMR /33/ 
      DATA LVDEF /34/ 
      DATA ILSEP /35/ 
      DATA  ILRD /36/ 
      DATA  ILRNG/37/ 
      DATA SETX  /38/ 
      DATA IGNSC /39/ 
      DATA INMX  /40/ 
      DATA PTDUP /41/ 
      DATA DBKEY /42/ 
      DATA ENDX  /43/ 
      DATA PDEFC /44/ 
      DATA SIMPT /45/ 
      DATA BDCNT /46/ 
      DATA RTERR /47/ 
      DATA GOODS /48/ 
      DATA GOODR /49/ 
      DATA BADS  /50/ 
      DATA BADR  /51/ 
      DATA ABORT /52/ 
      DATA OPNER /53/ 
      DATA XCNTR /54/ 
      DATA ILLVN /55/ 
      DATA NOPTH /56/ 
      DATA SRCH2 /57/ 
      DATA UEND/58/ 
      DATA XITM/59/ 
      DATA ELERR/60/
      DATA ROTER/61/
      DATA UNITM/62/
      DATA IOAIN/63/
      DATA IOAOT/64/
      DATA UNRDL/65/
      DATA UNWRL/66/
      DATA IOERR/67/
      DATA ILOPT/68/
      DATA ILLSC/69/
      DATA MORIT/70/
      DATA ILPTH/71/
      DATA DEFIT/72/
      DATA ILSRT/73/
      DATA SIMPS/74/
      DATA UNDST/75/
C 
C 
C                VARIABLE INITIALIZATION
C 
C 
C 
C CONTROL OPTION INDEX INTO INFORMATION TABLE 
C                LIST,NOLIST,ERRORS,ROOT,NOROOT,TABLE,NOTABLE,
C                SETS,NOSETS,FIELD
      DATA NFONX/ 1 ,     1,     5,   2,     2,    3,      3, 
     &             4,     4,     6/ 
C                LIST,NOLIST,ERRORS,ROOT,NOROOT,TABLE,NOTABLE , 
C                SETS,NOSETS,FIELD
      DATA NFO/     0,     1,   100,   0,     1,    1,      0,
     &              0,     1,     1/
      END 
                                          