*DECK DBTYPE
USETEXT DBTEXT
USETEXT DNTEXT
PROC TYPE;
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL DNATVALS
  
START("TYPE") 
# 
THIS PROCEDURE SETS THE CURRENT DNAT ITEM TYPE
* 
# 
ARRAY CLASSTT [7];
  BEGIN 
  ITEM CLASS$DNT I (0,0,60) = 
  [0,ALPHABET,NUMERIC,ALPHNUM,4(ERRTYPE)];
  END 
  $S(DN$TYPE,DNAT$,DNAT$PTR,CLASS$DNT[ICLASS]); 
          IF  ILEVEL EQ 88
          THEN
              BEGIN 
              $S(DN$TYPE,DNAT$,DNAT$PTR,NONDATA); 
              END 
   IF IUSAGE EQ $UCOMP1 AND ICLASS EQ 0 
   THEN BEGIN 
        $S(DN$TYPE,DNAT$,DNAT$PTR,NUMERIC); 
        END 
FINIS("TYPE") 
TERM
