*DECK DBUSAGE 
USETEXT DBTEXT
USETEXT DNTEXT
PROC USAGE; 
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL DNATVALS
  
START("USAGE")
#THIS PROCEDURE SETS THE DNAT ITEM USAGE# 
ARRAY USAGETT [7];
  BEGIN 
  ITEM USAGE$DNT I (0,0,60) = 
          [NULL, DISPUSE, COMPUSE, NULL, COMP1USE, INDEXUSE,
           COMP2USE, NULL]; 
  END 
##
  
IF IUSAGE NQ 0
  THENB("USAGE MUST BE SET")
  $S(DN$USAGE,DNAT$,DNAT$PTR,USAGE$DNT[IUSAGE]);
ENDIF 
FINIS("USAGE")
TERM
