C     ZCNTRL.INC 2.1 9/4/91
C
C**********************************************************************
C*    ZCNTRL.INC    common blocks containing control parameters
C**********************************************************************
C
      INTEGER       MXSCBF
      PARAMETER    (MXSCBF=3000)
      INCLUDE 'pmxrsl.inc'
C
      COMMON/ZCNTL1/ZERR,ZRET,ZMESFL,ZSCLU,ZCMDAV,ZFKEY,ZCMDMX,
     .              ZESCST,ZTUTPS,ZDTYP,ZQUFG,ZB2LEN,ZCLEN,ZCWID,
     .              ZMNLEN,ZMSLEN,ZWN2ID,ZWN3ID,ZGP3,
     .              ZHLPLN,ZMNSAV,ZSTLEN,ZSTNLN,ZSTCSL,ZCMDST,
     .              ZXPLEN,ZXPNLN,ZXPCSL,ZXPLIN,ZXPCOL,
     .              ZHLLIN,ZHLCOL,ZHLLEN,ZCRLIN,ZCRCOL,GPTR,HPTR,
     .              ZWLDFL,ZWLDLI,HPINIT
      INTEGER       ZERR,ZRET,ZMESFL,ZSCLU,ZCMDAV(26),ZFKEY(12),ZCMDMX,
     .              ZESCST,ZTUTPS(2),ZDTYP,ZQUFG,ZB2LEN(4),ZCLEN,ZCWID,
     .              ZMNLEN(MXSCBF),ZMSLEN(3),ZWN2ID,ZWN3ID,ZGP3,
     .              ZHLPLN(4),ZMNSAV,ZSTLEN(10),ZSTNLN,ZSTCSL,ZCMDST,
     .              ZXPLEN(10),ZXPNLN,ZXPCSL,ZXPLIN,ZXPCOL,
     .              ZHLLIN,ZHLCOL,ZHLLEN,ZCRLIN,ZCRCOL,GPTR,HPTR(64),
     .              ZWLDFL,ZWLDLI,HPINIT
C
      COMMON/ZCNTL2/ZMNTXT,ZCMDNA,ZHLTXT,ZMSTXT,ZSTTXT,ZXPTXT,
     .              ZAPNAM,RSPSTR,ZWNNAM,ZSCNAM,ZSCNOP
      CHARACTER     ZMNTXT(MXSCBF)*78,ZCMDNA(26)*6,ZHLTXT(4)*78,
     .              ZMSTXT(3)*78,ZSTTXT(10)*78,ZXPTXT(10)*78,
     .              ZAPNAM*48,RSPSTR(MXRSLN),ZWNNAM(13)*8,ZSCNAM*48,
     .              ZSCNOP(6)*8
C
      EQUIVALENCE (ZMNTXT,ZMNTX1),(ZWNNAM,ZWNAM1),(ZCMDNA,ZCMDN1),
     .            (ZHLTXT,ZHLTX1),(ZXPTXT,ZXPTX1)
      CHARACTER*1  ZMNTX1(78,MXSCBF),ZWNAM1(8,13),ZCMDN1(6,26),
     .             ZHLTX1(78,4),ZXPTX1(78,10)
C
      COMMON/ZCNTL3/ZITYPE,ZNFCOL,ZNBCOL,ZRFCOL,ZRBCOL,ZBORD,
     .              ZB1F,ZB2F,ZB3F,ZB1N,ZB2N,ZB3N,ZMNNLI,
     .              ZMNLNI,ZMNCSL,ZWNFLG,ZDBFLG
      INTEGER       ZITYPE,ZNFCOL,ZNBCOL,ZRFCOL,ZRBCOL,ZBORD,
     .              ZB1F,ZB2F,ZB3F,ZB1N,ZB2N,ZB3N,ZMNNLI,
     .              ZMNLNI,ZMNCSL,ZWNFLG,ZDBFLG
C
      SAVE   /ZCNTL1/, /ZCNTL2/, /ZCNTL3/
C
