*DECK DBBLDDBFS 
USETEXT DBTEXT
USETEXT DNTEXT
PROC BLDDBFS; 
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL DNATVALS
#THIS PROCEDURE CREATES THE DATA BASE FD SECTION DNAT 
# 
START("BLDDBFS")
$S(DN$LEVEL,DNAT$,DNAT$PTR,DBFSSECTN);
$S(DN$TYPE,DNAT$,DNAT$PTR,NONDATA); 
IV$($SET$,"DNAT$PTR",DNAT$PTR)
FINIS("BLDDBFS")
TERM
