ZTDPTBD 
ASCII 
COMMON
*NOSEQ
*WIDTH 95 
  
^0 ZTDPTBD  ^T^A^B^L^E-^H^A^N^D^L^E^R (^T^D^U^T^A^B) ^P^R^O^C^E^D^U^R^E^S ^F^O^R ^D^U^M^P^I^N^G ^D^A^T^A ^2 
  
  PROCEDURE [XREF] ^D^U^M^P_^P^A^R^A^M^E^T^E^R^S (VAR ^P^A^R^M_^R^E^C^O^R^D@D ^P^A^R^A^M^E^T^E^R_^R^E^C^O^R^D); 
  
  PROCEDURE [XREF] ^D^U^M^P_^O^U^T^P^U^T_^N^O^D^E (^O^R^D^I^N^A^L@D ^O^R^D^I^N^A^L_^T^Y^P^E;
        VAR ^L^E^N^G^T^H@D INTEGER; 
        VAR ^C^H^A^R^S@D @BSTRING(*); 
        VAR ^T^O^T^A^L_^O^R^D^I^N^A^L^S@D INTEGER;
        VAR ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S@D INTEGER;
        VAR ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN); 
  
  PROCEDURE [XREF] ^D^U^M^P_^I^N^P^U^T_^N^O^D^E ( 
        ^O^U^T^P^U^T_^P^R^O^C^E^D^U^R^E@D @BPROCEDURE(^I^N_^N^D@D @B^I^N^P^U^T_^N^O^D^E));
  
  PROCEDURE [XREF] ^R^E^S^E^T_^I^N^P^U^T_^T^A^B^L^E (VAR ^C^H^A^R^A^C^T^E^R_^C^O^U^N^T@D INTEGER);
  
  PROCEDURE [XREF] ^D^U^M^P_^R^E^S^E^T_^S^E^Q^U^E^N^C^E(^O^R^D^I^N^A^L@D ^O^R^D^I^N^A^L_^T^Y^P^E; 
        VAR ^L^E^N^G^T^H@D INTEGER; 
        VAR ^C^H^A^R^S@D @BSTRING(*); 
        VAR ^T^O^T^A^L_^O^R^D^I^N^A^L^S@D INTEGER;
        VAR ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S@D INTEGER;
        VAR ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN); 
  
  PROCEDURE [XREF] ^D^U^M^P_^K^E^Y_^N^A^M^E_^N^O^D^E(^O^R^D^I^N^A^L@D ^O^R^D^I^N^A^L_^T^Y^P^E;
        VAR ^L^E^N^G^T^H@D INTEGER; 
        VAR ^C^H^A^R^S@D @BSTRING(*); 
        VAR ^T^O^T^A^L_^O^R^D^I^N^A^L^S@D INTEGER;
        VAR ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S@D INTEGER;
        VAR ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN); 
  
  PROCEDURE [XREF] ^D^U^M^P_^A^P^P^S^T^R_^N^O^D^E (VAR ^N^A^M^E@D STRING(*);
        VAR ^L^E^N^G^T^H@D INTEGER; 
        VAR ^C^H^A^R^S@D @BSTRING(*); 
        VAR ^T^O^T^A^L_^S^E^Q^U^E^N^C^E^S@D INTEGER;
        VAR ^T^O^T^A^L_^C^H^A^R^A^C^T^E^R^S@D INTEGER;
        VAR ^N^O^D^E_^R^E^T^U^R^N^E^D@D BOOLEAN); 
  
  PROCEDURE [XREF] ^R^E^S^E^T_^A^P^P^S^T^R_^T^A^B^L^E;
