*COMDECK,COMQPID
#     COMQPID - PID/LID TABLES.     # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
**    COMQPID - PID/LID TABLES. 
# 
      BEGIN  # COMMON DECK COMQPID #
  
      DEF PLTHDRL    #2#;          # PLT HEADER LENGTH #
  
      COMMON COMQPID; 
  
      BEGIN  # COMMON BLOCK COMQPID # 
  
      ITEM PIDLASTTIM U = 0;       # BASE TIME OF DISABLE TIMERS #
      ITEM PIDLLDT    U = 0;       # LENGTH OF SYS LID TABLE #
      ITEM PIDLPID    U = 0;       # LAST PID ENTRY ASSIGNED #
      ITEM PIDNPID    U = 0;       # NUMBER OF PID ENTRIES #
      ITEM PIDSELQTIM U = 0;       # BASE TIME OF LAST UNCOVERING # 
      BASED ARRAY PLTHDR S(PLTHDRL);
        BEGIN                      # PID/LID TABLE HEADER # 
        ITEM PLTWD0     U(00,00,60);  # FIRST WORD #
        ITEM PLTPID     U(00,00,18);  # PHYSICAL ID # 
        ITEM PLTFLAGS   U(00,18,06);  # PRESERVED FLAGS # 
        ITEM PLTLPIDF   B(00,18,01);  # LAST PID (USED IN GNDT) # 
        ITEM PLTIGNORE  B(00,19,04);  # PID IGNORABLE # 
        ITEM PLTDISERR  B(00,19,01);  # PID ERROR DISABLED #
        ITEM PLTDISLDT  B(00,20,01);  # PID DISABLED IN LDT # 
        ITEM PLTDISOPR  B(00,21,01);  # PID DISABLED BY OPERATOR #
        ITEM PLTLIDSDIS B(00,22,01);  # ALL LIDS DISABLED # 
#                       U(00,23,01)     RESERVED FOR FLAGS #
        ITEM PLTSCINUSE U(00,24,12);  # PID/SELECTION CLASS IN USE #
        ITEM PLTSCDISAB U(00,36,12);  # PID/SELECTION CLASS DISABLED #
        ITEM PLTDISTIME U(00,48,12);  # DISABLED TIMER #
        ITEM PLTWD1     U(01,00,60);  # SECOND WORD # 
        ITEM PLTFLID    U(01,00,18);  # FIRST DLID #
        ITEM PLTSCCOVER U(01,18,12);  # PID/SELECTION CLASS COVERED # 
        ITEM PLTNUMLID  U(01,30,12);  # NUMBER OF LIDS #
        ITEM PLTNXTPID  U(01,42,18);  # INDEX OF NEXT PID ENTRY # 
        END 
  
      BASED ARRAY PLTDLID S(1); 
        BEGIN 
        ITEM PLTDLIDWD  U(00,00,60);  # ADDITIONAL DLIDS #
        ITEM PLTDLID1   U(00,00,18);  # DLID 1 #
        ITEM PLTDLID2   U(00,18,18);  # DLID 2 #
        ITEM PLTDLID3   U(00,36,18);  # DLID 3 #
        END 
  
      ARRAY PLTA [0:PLTLEN];       # PLT - PID/LID TABLE #
        BEGIN 
        ITEM PLTWD      U(00,00,60);
        END 
  
  
      END  # COMMON BLOCK COMQPID # 
  
      END  # COMMON DECK COMQPID #
                                               CONTROL LIST;
