*DECK DBSIZE
USETEXT DBTEXT
USETEXT DNTEXT
PROC SIZE;
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL DNATVALS
#THIS PROCEDURE SETS THE CURRENT DNAT ITEM"S NUMERIC
SIZE (IF RELEVANT) AND ITEM SIZE. 
# 
START("SIZE") 
IF ICLASS EQ $NUM 
  THENB ("PICSIZE WILL CONTAIN NUMERIC LENGTH") 
  $S(DN$NUMLEN,DNAT$,DNAT$PTR,IPICSIZE); #SET NUM LEN#
ENDIF 
IF ILEVEL NQ 88 THEN         #-DN$ITMLEN- WOULD DESTROY -DN$88CPTR-#
$S(DN$ITMLEN,DNAT$,DNAT$PTR,IUSESIZE);  #SET ITEM LENGTH# 
FINIS("SIZE") 
TERM
