*DECK TCOMMON 
      PROC TCOMMON; 
      BEGIN 
      CONTROL STEXT;
                                                                         CCOMMON
          # BASED ARRAYS TO ACCESS THE CURRENT RECORD, KEY, AREA FIT,    CCOMMON
             AREA NAME, ETC... WHOSE ADDRESSES ARE IN THE COMMON         CCOMMON
             BLOCK CBASIC.                                             # CCOMMON
                                                                         CCOMMON
                 #COMMUNICATION OF INFORMATION BETWEEN QU AND OWNCODES   CCOMMON
                 IS THROUGH A LABELLED COMMON /CCOMMON/.                 CCOMMON
                 THE FOLLOWING BASED ARRAY DESCRIBES ITS ORGANIZATION. # CCOMMON
                 #IF NO OWNCODES ARE ASSOCIATED WITH THE CURRENT AREA,   CCOMMON
                 THE COMMON BLOCK /CCOMMON/ IS UNDEFINED. MEMORY SPACE   CCOMMON
                 EQUIVALENT TO /CCOMMON/ IS THEN ACQUIRED TO RECEIVE     CCOMMON
                 THE AREA FIT, CURRENT RECORD AND ITS KEY.  THE OTHER    CCOMMON
                 ITEMS IN THIS PSEUDO-CCOMMON (ENTRY CODE, DIRECTIVE     CCOMMON
                 CODE, KEY LENGTH, RECORD LENGTH) WILL NOT BE USED,      CCOMMON
                 SINCE THEY DUPLICATE VALUES ALREADY FOUND IN /CBASIC/   CCOMMON
                 AND ARE USEFUL TO THE OWNCODES ONLY.  #                 CCOMMON
                                                                         CCOMMON
          BASED ARRAY CCOMMON [0] S(56);                                 CCOMMON
          BEGIN                                                          CCOMMON
            ITEM COMRC I(0,0,60);  #ENTRY CODE/RETURN CODE.              CCOMMON
                                   SET BY QU BEFORE ENTERING AN OWNCODE  CCOMMON
                                   TO  1 FOR OPEN OWNCODE                CCOMMON
                                       2     SEARCH                      CCOMMON
                                       3     MATCH                       CCOMMON
                                       4     MISMATCH                    CCOMMON
                                       5     UPDATE                      CCOMMON
                                       6     DISPLAY                     CCOMMON
                                       7     CLOSE.                      CCOMMON
                                   SET BY THE OWNCODE UPON RETURN TO     CCOMMON
                                   A VALUE 0 TO 3, INTERROGATED BY QU    CCOMMON
                                   TO DETERMINE SUBSEQUENT ACTION.     # CCOMMON
            ITEM COMDIR I(1,0,60); #DIRECTIVE CODE.  BINARY VALUE OF     CCOMMON
                                   DIRCODE IN CBASIC.                  # CCOMMON
            ITEM COMFIT C(2,0,240); #AREA FIT. P<AREAFIT> IS SET HERE. # QY40170
          ITEM COMKEYLG I(27,0,60); #LENGTH IN CHARACTERS OF KEYS        CCOMMON
                                   IN CURRENT AREA.  DUPLICATE OF        CCOMMON
                                   KEYLNGTH IN CBASIC.                 # CCOMMON
            ITEM COMKEY C(28,0,240); #KEY OF CURRENT RECORD.             QY40170
                                   P<KEY> IS SET HERE. THE LENGTH 260    CCOMMON
                                   IS DOCUMENTARY ONLY.  IT IS ADJUSTED  CCOMMON
                                   AT COMPILATION TIME.                # CCOMMON
          ITEM COMRECLG I(54,0,60); #LENGTH OF CURRENT RECORD.           CCOMMON
                                   DUPLICATE OF RECORDLENGTH IN CBASIC.  CCOMMON
                                   WORD POSITION 55 IS DOCUMENTARY ONLY# CCOMMON
          ITEM COMRECORD C(55,0,10); #CURRENT RECORD. P<RECORD> IS       CCOMMON
                                   SET HERE. WORD POS 56 AND LENGTH 10   CCOMMON
                                   ARE DOCUMENTARY ONLY.               # CCOMMON
          END                                                            CCOMMON
                                                                         CCOMMON
                                                                         CCOMMON
                                                                         CCOMMON
          BASED ARRAY RECORD;  ITEM IRECORD;                             CCOMMON
                             # CURRENT RECORD FROM THE AREA            # CCOMMON
          BASED ARRAY KEY;
            BEGIN 
            ITEM IKEY  I; 
            ITEM CKEY  C; 
            END 
                             # KEY OF THE CURRENT RECORD               # CCOMMON
      BASED ARRAY AREAFIT;         #ADDR OF AREA FIT                   # CCOMMON
        BEGIN  #AREAFIT#                                                 CCOMMON
        ITEM AREAFITES     U(13,33,09); #ERROR STATUS                  # CCOMMON
        END  #AREAFIT#                                                   CCOMMON
                                                                         CCOMMON
      END 
      TERM
