*COMDECK RGCOMM1
          CONTROL NOLIST;    #RGCOMM1#
          COMMON RGCOMM1; 
          BEGIN 
           ITEM 
                 DNATPTR      I,
                 PNATPTR      I,
                 PLTPNTR      I,
                 PSICTEXTATOM I,
                 PICONTROLS   I,
                 PICEXIT      I,
                 INITBAS4LINE I,
                 NXTSUBTENPTR I,
                 SAUXINDEX    I,
                 P001PNAT     I,
                 CSETGIPNAT   I,
                 CEXITPNAT    I,
                 CURRUNBASE   I,
                 RPTGROUPTYPE I,
                 TEMPCTPTR    I,
                 BUMPCTR      I,
                 MUCOUNT      I,
                 LINENUM      I,
                 NUMCONTROLS  I,
                 LINKNUM      I,
                 RGFLAGS      I;
        END #RGCOMM1# 
          DEF    GPLFLAG      #B< 0,1>RGFLAGS#; 
          DEF    GOTOEXITFLAG #B< 1,1>RGFLAGS#; 
          DEF    GIITEMSFLAG  #B< 2,1>RGFLAGS#; 
          DEF    RHPLFLAG     #B< 3,1>RGFLAGS#; 
          DEF    PHPLFLAG     #B< 4,1>RGFLAGS#; 
          DEF    PFPLFLAG     #B< 5,1>RGFLAGS#; 
          DEF    RFPLFLAG     #B< 6,1>RGFLAGS#; 
          DEF    CHPLFLAG     #B< 7,1>RGFLAGS#; 
          DEF    CFPLFLAG     #B< 8,1>RGFLAGS#; 
          DEF    NEEDPERIOD   #B< 9,1>RGFLAGS#; 
          DEF    GENMFLAG     #B<10,1>RGFLAGS#; 
          CONTROL LIST;      #RGCOMM1#
