ZTDPTBS 
ASCII 
COMMON
*NOSEQ
*WIDTH 95 
  
^0 ZTDPTBS  ^T^A^B^L^E-^H^A^N^D^L^I^N^G ^P^R^O^C^E^D^U^R^E^S ^T^O ^S^T^O^R^E ^I^T^E^M^S ^2
  
  PROCEDURE [XREF] ^S^T^O^R^E_^P^A^R^A^M^E^T^E^R^S (^P^A^R^M@D ^P^A^R^A^M^E^T^E^R_^R^E^C^O^R^D);
  
  PROCEDURE [XREF] ^S^T^O^R^E_^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;
        ^S^E^Q^U^E^N^C^E_^L^E^N^G^T^H@D INTEGER;
        ^C^H^A^R_^S^E^Q^U^E^N^C^E@D STRING(*);
        VAR ^E^R^R^O^R_^R^E^T^U^R^N@D ^E^R^R^O^R_^T^Y^P^E); 
  
  PROCEDURE [XREF] ^S^T^O^R^E_^I^N^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;
        ^S^E^Q^U^E^N^C^E_^L^E^N^G^T^H@D INTEGER;
        ^C^H^A^R_^S^E^Q^U^E^N^C^E@D STRING(*);
        VAR ^E^R^R^O^R_^R^E^T^U^R^N@D ^E^R^R^O^R_^T^Y^P^E); 
  
  PROCEDURE [XREF] ^S^T^O^R^E_^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;
        ^C^H^A^R_^S^E^Q_^L^E^N^G^T^H@D INTEGER; 
        ^C^H^A^R_^S^E^Q@D STRING(*);
        VAR ^E^R^R^O^R_^R^E^T^U^R^N@D ^E^R^R^O^R_^T^Y^P^E); 
  
  PROCEDURE [XREF] ^S^T^O^R^E_^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; 
        ^S^E^Q^U^E^N^C^E_^L^E^N^G^T^H@D INTEGER;
        ^C^H^A^R_^S^E^Q^U^E^N^C^E@D STRING(*);
        VAR ^E^R^R^O^R_^R^E^T^U^R^N@D ^E^R^R^O^R_^T^Y^P^E); 
  
  PROCEDURE [XREF] ^S^T^O^R^E_^A^P^P^S^T^R_^N^O^D^E (^N^A^M^E@D STRING(*);
        ^S^E^Q^U^E^N^C^E_^L^E^N^G^T^H@D INTEGER;
        ^C^H^A^R_^S^E^Q^U^E^N^C^E@D STRING(*);
        VAR ^E^R^R^O^R_^R^E^T^U^R^N@D ^E^R^R^O^R_^T^Y^P^E); 
