*COMDECK DBCORTAB 
CONTROL EJECT;
DEF CT$SIZE #1500#;  #CORRESPONDANCE TABLE# 
COMMON CTCOM; BEGIN 
  
#THE FOLLOWING DEFINITIONS ARE FOR TABLES USED INTERNALLY 
FOR THE DATABASE TRANSLATION PHASE. 
* 
CORRESPONDANCE TABLE
THIS TABLE IS USED TO RELATE ENTRIES IN THE DDL 
SUBSCHEMA TABLES TO THE DNAT ENTRIES THAT ARE BUILT FROM THEM.
ULTIMATELY THIS TABLE SHOULD BE BUILT INTO VIRTUAL - IT APPEARS 
HERE ONLY TO ENABLE TESTING TO OCCUR. 
# 
ARRAY CT$ [1:CT$SIZE] S(2); 
  BEGIN 
  ITEM CT$WA       I(0,0,60);       #WORD ADDRESS OF ITEM IN SS FILE# 
  ITEM CT$DNAT     U(1,0,30);       #DNAT POINTER#
  ITEM CT$ORD      U(1,30,29);      #GROUP OF ORDINALS# 
  ITEM CT$AORDINAL U(1,30,9);       #AREA ORDINAL#
  ITEM CT$RORD     U(1,39,10);      #RECORD ORDINAL#
  ITEM CT$IORD     U(1,49,10);      #ITEM SUB-ENTRY ORDINAL#
  END 
ITEM CT$PTR I=1;  #ACCESS POINTER#
ITEM CT$LEN I=0;  #CURRENT TABLE LENGTH#
END #CTCOM# 
