*COMDECK PNT
          CONTROL NOLIST;    #PNT#
          CONTROL EJECT;
  DEF PNT$ENTSZ  #2#;    # SIZE OF PNT ENTRY #
  COMMON PNTCOMM; 
  BASED 
    ARRAY PNT[0:0] S(PNT$ENTSZ) ; 
      BEGIN 
          ITEM PNTNAMEINFO  U(0,00,60);  # NAME INFORMATION # 
          ITEM PNTBIGHASH   U(0,00,30);  # 30 BIT HAME HASH # 
          ITEM PNTNBRWORDS  U(0,30,02);  # NUMBER OF WDS IN NAME #
          ITEM PNTNAMETPTR  U(0,33,15);  # NAME TABLE POINTER # 
          ITEM PNTIDUNQ     U(0,58,02);  #UNQ,FST,LST,BETWEEN, FOR CID #
          ITEM PNTINFO      U(1,00,60);  # MISC INFO WORD # 
          ITEM PNTCOLUMN    U(1,00,07); 
          ITEM PNTDEBUG     U(1,07,01); 
          ITEM PNTNOTUNIQUE U(1,08,01); 
          ITEM PNTAMBIGUOUS U(1,09,01); 
          ITEM PNTSECTION   U(1,10,01);  # SET IF SECTION NAME #
          ITEM PNTLINE      U(1,11,16); 
          ITEM PNTLINK      U(1,27,16);  # LINK TO NXT PNT W/SAME HASH #
          ITEM PNTGROUP     U(1,43,01); 
          ITEM PNTDECLARATV U(1,44,01); 
          ITEM PNTSEGORSECT U(1,45,15); 
      END 
          CONTROL LIST;      #PNT#
