*DECK DBBLDFD 
USETEXT DBTEXT
USETEXT DNTEXT
PROC BUILDFD; 
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL DNATVALS
#THIS PROCEDURE CREATES THE FD DNAT ITEM AND ITS FOLLOWING
LINAGE COUNTER
# 
START("BUILDFD")
$S(DN$LEVEL,DNAT$,DNAT$PTR,FDDESCR);  #FD ITEM# 
$S(DN$FNATPTR,DNAT$,DNAT$PTR,FNAT$PTR); 
$S(DN$LABREC,DNAT$,DNAT$PTR,1); 
$S(DN$DATREC,DNAT$,DNAT$PTR,1); 
$S(DN$TYPE,DNAT$,DNAT$PTR,NONDATA); 
$S(DN$TERMPER,DNAT$,DNAT$PTR,1);
$S(DN$ORG,DNAT$,DNAT$PTR,1); #ORGANISATION SET IN FNAT# 
$S(DN$ACC,DNAT$,DNAT$PTR,1); #ACC MODE SET IN FNAT# 
  
$S(DN$SSORD,DNAT$,DNAT$PTR,AORDINAL);  #SAVE SS ORDINAL#
  
SETI("DNAT$PTR",DNAT$PTR,DNAT$PTR+1)
$S(DN$TYPE,DNAT$,DNAT$PTR,ERRTYPE);  #LINAGE COUNTER# 
SETI("DNAT$PTR",DNAT$PTR,DNAT$PTR+1)
FINIS("BUILDFD")
TERM
