ZTDTFIL 
ASCII 
COMMON
*NOSEQ
*WIDTH 95 
  
^0 ZTDTFIL  TDU ^F^I^L^E ^H^A^N^D^L^E^R ^D^A^T^A ^T^Y^P^E^S ^2
  
  TYPE
     ^F^I^L^E_^S^E^L^E^C^T^O^R = ( ^I^N^P^U^T_^F^I^L^E_^S^E^L, ^O^U^T^P^U^T_^F^I^L^E_^S^E^L, ^E^R^R^O^R_^F^I^L^E_^S^E^L ) 
     ^I^N^P^U^T_^O^U^T^P^U^T_^S^E^L^E^C^T^O^R = ( ^I^N^P^U^T_^S^E^L, ^O^U^T^P^U^T_^S^E^L ), 
     ^C^O^D^E_^S^E^T_^S^E^L^E^C^T^O^R = ( ^A^S^C^I^I_^S^E^L, ^A^S^C^I^I64_^S^E^L ); 
