*DECK DBBLDFNAT 
USETEXT CCTTEXT 
USETEXT DBTEXT
PROC BUILD$F; 
*CALL DEBUGVARS 
XREF BEGIN
PROC BASIC$F; 
PROC BUILDFD; 
PROC KEY$F; 
END 
# 
THIS PROCEDURE SETS UP THE FNAT$PTR IF IT HAS NOT BEEN INITIALISED. 
IF IT HAS BEEN INITIALISED THEN IT IS INCREMENTED BY 1. 
THE BASIC$F PROCEDURE IS THEN CALLED TO SET BASIC FNAT FIELDS.
THEN THE BASIC$FD PROCEDURE IS CALLED TO CREATE THE FD ITEM AND 
ITS ASSOCIATED LINAGE COUNTER.
# 
  
START("BUILD$F")
IF FNAT$PTR EQ 0
  THENB("FNAT$PTR NOT YET SET UP")
  SETI("FNAT$PTR",FNAT$PTR,CCTFNATLEN+1)
  ELSEB("FNAT$PTR MUST BE UPDATED") 
  SETI("FNAT$PTR",FNAT$PTR,FNAT$PTR+1)
ENDIF 
IV$($SET$,"FNAT$PTR",FNAT$PTR)
  
BASIC$F;  #SET BASIC FIELDS IN THE FNAT#
BUILDFD; #CREATE FD FNAT AND LINAGE ITEM# 
  
FINIS("BUILD$F")
TERM
