      REM PC.COMMON
*PRE-COMPILER
*INCLUDE
*
*
*N
*
*
************************************************************************
************************************************************************
***                                                                  ***
*** PICK PARSING PRE-COMPILER SYSTEM                                 ***
***                                                                  ***
*** COPYRIGHT 1988 MODULAR SOFTWARE                                  ***
***                P.O. BOX 204                                      ***
***                ATLANTA, GA  30291                                ***
***                (404) 964 - 7171                                  ***
***                                                                  ***
*** THIS PROGRAM IS PROPRIETARY TO MODULAR SOFTWARE AND MAY NOT BE   ***
*** USED, COPIED, EXAMINED, OR DISCLOSED WITHOUT A VALID LICENSE     ***
*** FROM MODULAR SOFTWARE.                                           ***
***                                                                  ***
************************************************************************
************************************************************************
*
*
* Common variables for pre-compiler
*
      EQUATE YES              TO 1
      EQUATE NO               TO 0
      EQUATE AM               TO CHAR(254)
      EQUATE VM               TO CHAR(253)
      EQUATE SVM              TO CHAR(252)
      EQUATE CR               TO CHAR(13)
      EQUATE BELL             TO CHAR(7)
*
      COMMON KW(6)
      EQUATE KW.F TO KW(1)
      EQUATE KW.P TO KW(2)
      EQUATE KW.S TO KW(3)
      EQUATE KW.FC TO KW(4)
      EQUATE KW.PC TO KW(5)
      EQUATE KW.SC TO KW(6)
*
      COMMON KW.A
      COMMON KW.AC
*
      COMMON N.F
      COMMON N.S
*
      COMMON SYNTAX.FILE
      COMMON SYNTAX.FILE.DEF
      COMMON SRC.FD
      COMMON DEST.FD
      COMMON OBJ.FD
*
      COMMON PREC.STR
      COMMON BTREE.VARS
*
      COMMON SOURCE.FD
*
      COMMON FN.NO
*
      COMMON PGM.NO
      COMMON PGM.NAME
      COMMON LINE.NO(10)
      COMMON LINE.CNT(10)
      COMMON LINE.OFF(10)
*
      COMMON CHAIN.FILE
      COMMON CHAIN.ID
      COMMON ERROR
*
      COMMON OPT.ARRAY(12)
      EQUATE SYNTAX.FILE1 TO OPT.ARRAY(1)
      EQUATE SYNTAX.FILE2 TO OPT.ARRAY(2)
      EQUATE CHAIN.OPT TO OPT.ARRAY(3)
      EQUATE CHAIN.STR TO OPT.ARRAY(4)
      EQUATE INCLUDE.OPT TO OPT.ARRAY(5)
      EQUATE INCLUDE.STR TO OPT.ARRAY(6)
      EQUATE Q.OPT.DEF TO OPT.ARRAY(7)
      EQUATE MICRODATA.FLG TO OPT.ARRAY(8)
      EQUATE SENTENCE.FLG TO OPT.ARRAY(9)
      EQUATE CAPT.FILE TO OPT.ARRAY(10)
      EQUATE O.OPT.DEF TO OPT.ARRAY(11)
*
      COMMON RECUR.LEVEL
*
      COMMON PORT
      COMMON INCL.NO
      COMMON CHAIN.FLG
*
      COMMON DATA.ARRAY(1000)
*
      COMMON Q.OPT
      COMMON T.OPT
      COMMON X.OPT
      COMMON X.OPT.FD
      COMMON X.OPT.ID
*
      COMMON BAD.INCL.LIST
      COMMON NO.BAD.INCL
      COMMON PC.FLG
*
      COMMON DEF.SYMBOLS
      COMMON DEF.NEST.CNT
