ZTDPERR 
ASCII 
COMMON
*NOSEQ
*WIDTH 95 
  
*CALLC ZTDCERR
  
^0 ZTDPERR  ^W^R^I^T^E ^E^R^R^O^R ^M^E^S^S^A^G^E^S ^T^O ^L^I^S^T^I^N^G ^F^I^L^E ^2
  
  PROCEDURE [XREF] ^R^E^P^O^R^T_^E^R^R^O^R (^T^E^X^T@D STRING(*));
  
  PROCEDURE [XREF] ^E^R^R^O^R_^S^T^A^T^U^S (^S^T^A^T^U^S@D ^O^S^T$^S^T^A^T^U^S);
