*DECK DBBLDDNAT 
USETEXT CCTTEXT 
USETEXT DBTEXT
PROC BUILD$D; 
*CALL DEBUGVARS 
XREF BEGIN
PROC BASIC$D; 
PROC BYTEOFFSET;
PROC SIZE;
PROC TYPE;
PROC USAGE; 
PROC OCCUR; 
PROC RENAME;
PROC REDEF; 
PROC KEY$D; 
PROC INDEX; 
END 
START("BUILD$D")
#THIS PROCEDURE PERFORMS CALLS TO ALL THE SUBORDINATE 
PROCEDURES NECESSARY TO CONSTRUCT A DNAT AND APPROPRIATE
AUX TABLE ENTRIES FROM THE VALUES IN THE DDL FIELDS.
* 
THIS PROCEDURE EXISTS TO GIVE FLEXIBILITY TO THE SEQUENCE 
IN WHICH THESE SUBORDINATE PROCEDURES ARE CALLED. 
# 
IF DNAT$PTR EQ 0
  THENB ("DNAT$PTR NOT YET SETUP")
  SETI("DNAT$PTR",DNAT$PTR,CCTDNATLEN+1)
ENDIF 
BASIC$D;  #BASIC FIELDS IN DNAT ENTRY#
BYTEOFFSET; 
SIZE; 
TYPE; 
USAGE;
OCCUR;
RENAME; 
REDEF;
KEY$D;  #KEY CLAUSE - NOT RECORD KEYS#
INDEX;
SETI("DNAT$PTR",DNAT$PTR,DNAT$PTR+1)
FINIS("BUILD$D")
TERM
