*COMDECK PTCOMMON 
          COMMON PTCOMMON;   #COMMON FOR PROCTAB AND ITS COHORTS# 
              BEGIN 
              ITEM AUXINDEX   I;    #AUX TABLE INDEX# 
              ITEM AUXPTR     I;    #AUX TABLE POINTER (VIRTUALIZED)# 
              ITEM BLOCKNAME  C(10);  #NAME OF BLOCK BEING DEFINED# 
              ITEM BLOCKNUMBER  I;  # NUMBER OF USE BLOCK # 
              ITEM CDCSIXFNFLAG B;  # CDCS FILE HAS AN INDEX FILE      #
              ITEM CDCSRELFLAG  B;  # CDCS RELATION # 
              ITEM CHARPOS    I;    #CHARACTER POSITION#
              ITEM COMMONFLAG  B;   # SET IF BLOCK IN COMMON #
              ITEM CRECOFFSET I;    #OFFSET FOR CURRENT RECORD AREA#
              ITEM DNATINDEX  I;    #DNAT INDEX#
              ITEM DNATPTR    I;    #DNAT INDEX VIRTUALIZED#
              ITEM FITBLOCK   I;    #BLOCK NUMBER FOR FITS# 
              ITEM FNATINDEX  I;    #INDEX INTO FNAT# 
              ITEM FNATPTR    I;    #FNAT INDEX VIRTUALIZED#
              ITEM I          I;    #LOOP INDEX#
              ITEM NOGENFLAG  B;    #NO GENERATE CODE IF SET #
              ITEM PLTINDEX   I;    #INDEX INTO PLT#
              ITEM PLTPTR     I;    #PLT INDEX VIRTUALIZED# 
              ITEM PNATINDEX  I;    #INDEX INTO PNAT# 
              ITEM PNATPTR    I;    #PNAT INDEX VIRTUALIZED#
              ITEM RECBLOCK   I;    #BLOCK NUMBER OF RECORD AREA# 
              ITEM TEMP       I;    #TEMPORARY FOR LOCAL USE ANYWHERE#
              ITEM TEMP1      I;    #DITTO# 
              ITEM TEMP2      I;    #DITTO# 
              ITEM TEMP3      I;    #DITTO# 
              ITEM TEMP4      I;    #DITTO# 
              ARRAY PLTSTRDATA [0:25] S(1); 
                  ITEM PLTSTRDWORD  C(0,0,10);
              END 
