ZTDPFIL 
ASCII 
COMMON
*NOSEQ
*WIDTH 95 
  
*CALLC ZTDTFIL
  
^0 ZTDPFIL  TDU ^F^I^L^E ^H^A^N^D^L^E^R ^P^R^O^C^E^D^U^R^E^S ^2 
  
  PROCEDURE [XREF] ^O^P^E^N_^F^I^L^E (^F^I^L^E_^I^D@D ^F^I^L^E_^S^E^L^E^C^T^O^R;
        ^I^N^P^U^T_^O^U^T^P^U^T@D ^I^N^P^U^T_^O^U^T^P^U^T_^S^E^L^E^C^T^O^R; 
        ^C^O^D^E_^S^E^T@D ^C^O^D^E_^S^E^T_^S^E^L^E^C^T^O^R);
  
  PROCEDURE [XREF] ^C^L^O^S^E_^F^I^L^E (^F^I^L^E_^I^D@D ^F^I^L^E_^S^E^L^E^C^T^O^R); 
  
  PROCEDURE [XREF] ^G^E^T_^F^I^L^E (^F^I^L^E_^I^D@D ^F^I^L^E_^S^E^L^E^C^T^O^R;
        VAR ^T^E^X^T@D STRING(*); 
        VAR ^T^E^X^T_^L^E^N@D INTEGER;
        VAR ^E^O^F_^F^L^A^G@D BOOLEAN); 
  
  PROCEDURE [XREF] ^P^U^T_^F^I^L^E (^F^I^L^E_^I^D@D ^F^I^L^E_^S^E^L^E^C^T^O^R;
        ^T^E^X^T@D STRING(*));
