*COMDECK RPCOMM 
          CONTROL NOLIST;    #RPCOMM# 
  
  # THIS COMMON DECK CONTAINS THE COMMON BLOCK RPCOMM WHICH CONTAINS# 
  # VARIABLES AND FLAGS THAT ARE COMMON TO THE RPARSER PHASE        # 
  # ( THIS INCLUDES ALL R-ANALYZER MODULES).                        # 
  # IT ALSO CONTAINS THE DIAGNOSTIC DEFS WHICH ARE COMMON TO RPARSER #
  
          DEF    CALLDDIAG(P1,P2) #INTERCEPT(0,GETQ(DN$LINE,DNAT$,P1),
                     P2,DEFINITION)#; 
          DEF    CALLADIAG(P1,P2) #INTERCEPT(0,GETQ(DN$LINE,DNAT$,P1),
                     P2,ADVISORY)#; 
          DEF    CALLTDIAG(P1,P2) #INTERCEPT(0,GETQ(DN$LINE,DNAT$,P1),
                     P2,TRIVIAL)#;
          DEF    CALLPDIAG(P1,P2) #INTERCEPT(0,GETQ(DN$LINE,DNAT$,P1),
                     P2,PROPAGATED)#; 
  
  
          COMMON RPCOMM;
          BEGIN 
          ITEM   RFLAGS       U;   # ALL COMMON FLAGS ARE IN HERE   # 
          ITEM
                 DNATPOINTER ,
                 CTEXTPTR    ,
                 RPSPARE2    ,
                 LSTRSDNATIND,
                 LSTDNATIDX  ,
                 LEVELSAVE   ,
                 LINENO      ,
                 SAVEDLINENO ,
                 SAVEDCTXTPTR,
                 RPPTR       ,
                 RPLNTH      ,
                 RHFINALLCSET,
                 PFFINALLCSET,
                 DUMDTAILDNAT,
                 CIDTPTRCURRD,
                 ENDCIDTCURRD,
                 LASTFDRDNTRY,
                 NUMRDCDINTRY,
                 NUMCIDTNTRYS,
                 LNGTHLONGPLE,
                 SHORTESTPLEN,
                 RS1STDNAT   ,
                 LASTDNATINDX,
                 LASTLATINDEX,
                 LASTPNATINDX,
                 LASTAUXENTRY,
                 RPPLTOFFSET ,
                 RDLBYTOFFSET,
                 FSUBT4CURRD ,
                 RPDUMSECTION,
                 SEQOFLN     ,
                 CURRDDNAT   ,
                 LASTRGDNAT  ,
                 INDX1STLN   ,
                 TNEXTGROUP  ,
                 SVNGINTEGER ,
                 FIRSTF3OR4DE,
                 STRTCURCONTB,
                 ENDCURREPORT,
                 MSECCURRFILE,
                 CURFILOFFSET,
                 PAGECNTRDNAT,
                 LINECNTRDNAT,
                 IRTCURRBASE ,
                 BASECURRIPCT,
                 CODELITPLT  ,
                 RECNAME1DNAT,
                 F1OFFSETPRNT,
                 IRTBODYNXTGP,
                 IRTBNGEXIT  ,
                 IRTXBODYPAG ,
                 IRTBPEXIT   ,
                 FNDLSTRSDNAT,
                 UPDATE4DNATP,
                 RFFPLP      ,
                 RFDIAGLINREF,
                 SUMRELINENOS,
                 RFLOWLIMIT  ,
                 PHFPLP      ,
                 PHDIAGLINREF,
                 PHSUMRELLINE,
                 PHLOWERLIMIT,
                 RPSPARE1    ,
                 RPCOMMEND   ;   #ALWAYS LAST IN RPCOMM#
          END   #RPCOMM#
  
  
  
  
  
          #FOLLOWING ARE THE COMMON FLAGS FOR RPARSER                #
  
          DEF    ALLB4VALULIT #B< 0,1>RFLAGS#;
          DEF    CHFRGOCURD   #B< 1,1>RFLAGS#;
          DEF    CFFRGOCURD   #B< 2,1>RFLAGS#;
          DEF    PHRHANALAARG #B< 3,1>RFLAGS#;
          DEF    PHRHLOWLIMAN #B< 4,1>RFLAGS#;
          DEF    BODYRGDEFIND #B< 5,1>RFLAGS#;
          DEF    RHDEFIND     #B< 6,1>RFLAGS#;
          DEF    PHDEFIND     #B< 7,1>RFLAGS#;
          DEF    CHFDEFIND    #B< 8,1>RFLAGS#;
          DEF    CFFDEFIND    #B< 9,1>RFLAGS#;
          DEF    PFDEFINED    #B<10,1>RFLAGS#;
          DEF    RFDEFIND     #B<11,1>RFLAGS#;
          DEF    RFPFANALAARG #B<12,1>RFLAGS#;
          DEF    RFPFLOWLIMAN #B<13,1>RFLAGS#;
          DEF    ANALONLYREPT #B<14,1>RFLAGS#;
          DEF    RDOCURDSWTCH #B<15,1>RFLAGS#;
          DEF    IPAGECLAUSPC #B<16,1>RFLAGS#;
          DEF    NOFDFLAG     #B<17,1>RFLAGS#;
          DEF    INHIBITABLDF #B<18,1>RFLAGS#;
          DEF    NOCODECLAUSE #B<19,1>RFLAGS#;
          DEF    ALL4CODELIT  #B<20,1>RFLAGS#;
          DEF    ANALONLYRGRP #B<21,1>RFLAGS#;
          DEF    BUILTRFTABLS #B<22,1>RFLAGS#;
          DEF    BUILTPHTABLS #B<23,1>RFLAGS#;
          DEF    F1STRDSWITCH #B<24,1>RFLAGS#;
          DEF    RGOCCURRED   #B<25,1>RFLAGS#;
  
          CONTROL LIST;      #RPCOMM# 
