*COMDECK PS2CNDL
      DEF TRNS$OK # 0 #;     # STATUS OF A SUCCESSFUL READW            #
      DEF FSTKID1 # 1 #;     # INDEX OF FIRST KEYWORD ENTRY ON SUPLINK #
                             # AND TERMINAL STATEMENT                  #
      DEF FSTKID2 # 2 #;     # INDEX OF FIRST KEYWORD ENTRY ON ALL     #
                             # STMTS EXCEPT SUPLINK AND TERMINAL STMTS #
      COMMON PSS2COM; 
      BEGIN 
      ARRAY PRFX$TABLE [0:0] S(15);    # PREFIX TABLE                  #
        BEGIN 
        ITEM PT$ID  U(0,0,12);         # TABLE I.D. -- 7700            #
        ITEM PTWC  U(0,12,12);         # TABLE WORD COUNT              #
        ITEM PTWORD0 (0,0,60);         # USED TO CLEAR 1ST WORD        #
        ITEM PT$FNAME C(1,0,7);        # NAME OF NCF/LCF               #
        ITEM PTWORD1 (1,0,60);         # USED TO CLEAR 2ND WORD        #
        ITEM PT$DATE C(2,0,10);        # DATE FILE WAS CREATED         #
        ITEM PT$TIME C(3,0,10);        # TIME FILE WAS CREATED         #
        ITEM PT$OPS  C(4,0,10);        # NAME/VERSION OF OPER SYSTEM   #
        ITEM PT$PNAME C(5,0,7);        # PROGRAM NAME -- NDLP          #
        ITEM PT$PVER C(5,42,3);        # PROGRAM VERSION NUMBER        #
        ITEM PT$PLEV C(6,0,5);         # PROGRAM MOD LEVEL             #
        ITEM PT$BLNK1 C(6,30,5);       # USED TO BLANK OUT FIELD       #
        ITEM PT$BLNK2 C(7,0,10);       # USED TO BLANK OUT WORD 7      #
        ITEM PT$TITLE C(8,0,70);       # COMMENT/TITLE                 #
        END 
      ARRAY VERIFY$ENTRY [0:0] S(2);   # VERIFICATION ENTRY            #
        BEGIN                # CODE EXPECTS THIS ARRAY BE DEFINED RIGHT#
                             #   AFTER PREFIX TABLE ARRAY              #
        ITEM VE$ID C(0,0,7);           # TABLE I.D. -- "VERSION"       #
        ITEM VEWORD0 (0,0,60);         # USED TO CLEAR WORD ZERO       #
        ITEM VE$PDATE U(1,24,36);      # CREATION DATE IN PACKED FORMAT#
        ITEM VEWORD1 (1,0,60);         # USED TP CLEAR WORD ONE        #
        END 
      ARRAY ABRTMSG1 [0:3] S(4);
        BEGIN 
        ITEM EMSG1 C(0,0,38)=[" INVALID STMT I.D.-ABORT FROM         "];
        ITEM EPRC1 C(3,0,8) = ["        "]; 
        ITEM EZBYT1 U(3,48,12) = [0]; 
        END 
      ARRAY ABRTMSG2 [0:4] S(5);
        BEGIN 
        ITEM EMSG2 C(0,0,41)
          = [" INVALID KEYWORD I.D.-ABORT FROM         "];
        ITEM EPRC2 C(3,18,8) = ["        "];
        ITEM EZBYT2 U(4,6,54) = [0];
        END 
      END # PASS2 COMMON #
