CIPRIME PARX                                                            PARX        1
*IF SIZE12K                                                             PARX        2
      PARAMETER (LEND=5000,NUDC=1500,NUDC5=NUDC*5,IFRMAC=1,IFRMDC=2     PARX        3
     &,ISOURC=3,IUNARY=4,IBINAR=5,MULTI=6,LIMITR=7,ISBLCK=8             PARX        4
     &,IOTHER=9,INTERF=10,ISETUP=11,ISUBSY=12,LOGIC=13,ISTRUC=14        PARX        5
     &,IFRTRA=15,IUDUMY=16,IACSYS=17,IBREAK=18,IPRTR=19)                PARX        6
C DCPARM                                                                PARX        7
      PARAMETER (NDCB=50,NDCL=50,NDCC=50,NDCC3=3*NDCC,NDCN=50,          PARX        8
     &NDCN5=5*NDCN,NCC=50,NCC5=NCC*5,JMAX=500)                          PARX        9
      PARAMETER (NUDCC=200)                                             PARX       10
      PARAMETER (ICLOSE=32,IOPEND=33,IOPENG=34)                         PARX       11
C ACPARM                                                                PARX       12
      PARAMETER                                                         PARX       13
     1( NB=12000,NTR=NB*2,NTRX2=NTR*2,NB2=2*NB,NB3=NB*3,NB8=8*NB        PARX       14
     2,NDAT=200000,NM=2000,NMP1=NM+1,MP=2000,NG=2000,NDYG=2200          PARX       15
     3,NG40=NG*40,NG65=NG*65,NG17=NG*17,NSS=NB/12,JAR=100,JZN=1000      PARX       16
     4,NZL=NB/2,JLOAD=NB*3/4,NMT=NZL/10,NSR=100,NDC=4000,NDCL2=100      PARX       17
     5,NB1P1=NB+1,NSVCR=50,NSVCR3=3*NSVCR,NPL=NB*5,MSEL=4096            PARX       18
     6,NPL2=NPL*2,NPL3=3*NPL,NPL4=4*NPL,NPL5=NPL*5,NPL6=6*NPL           PARX       19
     7,NSR4=4*NSR,MONL=2000,MONL4=4*MONL,NB4=4*NB,NB5=5*NB,NB10=NB*10   PARX       20
     8,NSID=50,NSI=24000,MADATA=60000,MAXCHM=50,MAXSET=2000             PARX       21
     9,NDEV=NM+NDCL+NMT+NZL,NOBLK=100,ML=512,NITERF=50,NBUF=2500        PARX       22
     A,JBA=6000,JBB=6000)                                               PARX       23
C                                                                       PARX       24
      PARAMETER                                                         PARX       25
*IF -MI2                                                                PARX       26
     1(NSCRA0=NB+NPL2+NPL,NSCRA1=NB*14+NPL*6+2*NTR+NTRX2+NB*9/6+220     PARX       27
     2,NSCRA2=NPL2,NSCRA3=2*NPL2+NM/2+10,NSCRA4=49153                   PARX       28
     3,NSCRA5=100000/2+200+NB*2+MONL                                    PARX       29
     4,NSCRA6=3*NG17+NG65+NG40+14*NG+NG65/2+NSI+5                       PARX       30
     5,NSCRA7=6*NDYG+NB+1                                               PARX       31
     6,NSCRA8=5*NDEV                                                    PARX       32
     7,NSCRA9=6*NZL+2*MP+2*NM+2+NZL/2)                                  PARX       33
*ENDIF                                                                  PARX       34
*IF MI2                                                                 PARX       35
*ENDIF                                                                  PARX       43
C UDM                                                                   PARX       44
*IF FACTS                                                               PARX       45
      PARAMETER (NXUDB=40,NXLEN=2000,NXDEL=50,NDLEN=2500,NXRAN=50       PARX       46
     &,NXSTP=50,NXSDB=50,NUDCM=100,NXUDB2=NXUDB*2,LOUTP=4)              PARX       47
*ENDIF                                                                  PARX       48
*IF -FACTS                                                              PARX       49
*ENDIF                                                                  PARX       52
*ENDIF                                                                  PARX       53
*IF SIZE4K                                                              PARX       54
*IF -MI2                                                                PARX       78
*ENDIF                                                                  PARX       86
*IF MI2                                                                 PARX       87
*ENDIF                                                                  PARX       95
*IF FACTS                                                               PARX       97
*ENDIF                                                                  PARX      100
*IF -FACTS                                                              PARX      101
*ENDIF                                                                  PARX      104
*ENDIF                                                                  PARX      106
*IF SIZE2K                                                              PARX      107
*IF -MI2                                                                PARX      131
*ENDIF                                                                  PARX      139
*IF MI2                                                                 PARX      140
*ENDIF                                                                  PARX      148
*IF FACTS                                                               PARX      150
*ENDIF                                                                  PARX      153
*IF -FACTS                                                              PARX      154
*ENDIF                                                                  PARX      157
*ENDIF                                                                  PARX      158
*IF SIZE1K                                                              PARX      159
*IF -MI2                                                                PARX      182
*ENDIF                                                                  PARX      190
*IF MI2                                                                 PARX      191
*ENDIF                                                                  PARX      199
*IF FACTS                                                               PARX      202
*ENDIF                                                                  PARX      205
*IF -FACTS                                                              PARX      206
*ENDIF                                                                  PARX      209
*ENDIF                                                                  PARX      210
C DBPARM                                                                PARX      211
      PARAMETER (NMODEX=28,NMODVC=3,NMODST=8,NMODGV=11,NMODGN=4,        PARX      212
     1           NMODSV=6)                                              PARX      213
      PARAMETER (MISTN=1500,MLENG=128,MISTN1=MISTN*2,MAREA=101)         PARX      214
C DBBUF1                                                                PARX      215
      PARAMETER                                                         PARX      216
     1(J9G1D=12,J9G1P=91,J9G2D=26,J9G2P=103,J9E1D=40,J9E1P=21           PARX      217
     2,J9E2D=30,J9E2P=62,J9S1D=32,J9S1P=21 ,J9S2D=16,J9S2P=53           PARX      218
     3,J9S3D=16,J9S3P=69,J9S4D=26,J9S4P=85 ,J9V1D=24,J9V1P=24           PARX      219
     4,J9V2D=24,J9V2P=24,J9V3D=12,J9V3P=48 ,J9V4D=18,J9V4P=60           PARX      220
     5,J9V5D=18,J9V5P=78,J9V6D=6 ,J9V6P=97 ,J9V7D=26,J9V7P=103)         PARX      221
C FILRUN                                                                PARX      222
      PARAMETER (MXRECS=1000,NFSPTR=5,IBPADY=1,IOUTPT=2,ISWITC=3,       PARX      223
     +           ITABDA=4,ITABIC=5)                                     PARX      224
