ZTDCERR 
ASCII 
COMMON
*NOSEQ
*WIDTH 95 
  
*CALLC OSDSTAT
*CALLC ZOSPSSA
*CALLC ZOSPASP
  
^0 ZTDCERR  ^T^D^U ^E^R^R^O^R-^H^A^N^D^L^I^N^G ^C^O^N^S^T^A^N^T^S ^A^N^D ^T^Y^P^E^S ^2
  
  CONST 
     ^T^D^C_^P^R^O^D_^C^O^D^E = 'TD'; 
  
  TYPE
     ^E^R^R^O^R_^T^Y^P^E = (^N^O_^E^R^R^O^R, ^N^O_^R^O^O^M_^E^R^R^O^R, ^D^U^P^L^I^C^A^T^E_^I^N^P^U^T_^E^R^R^O^R,
        ^D^U^P^L^I^C^A^T^E_^E^R^R^O^R, ^S^U^P^E^R^S^E^T_^E^R^R^O^R, ^S^U^B^S^E^T_^E^R^R^O^R, ^N^O^T_^F^O^U^N^D_^E^R^R^O^R); 
