ZTDAMT0 
ASCII 
COMMON
*NOSEQ
*WIDTH 95 
*CALLC ZOSTSTA
*CALLC OSDSTAT
*CALL ZTDVMT0 
*CALL ZCLVMT0 
  
   VAR
  
     ^O^S^V$^T^E^M^P^L^A^T^E_99999@D [^S^T^A^T^I^C] ^S^T^R^I^N^G (2) @D= '+T';
  
   CONST
     ^O^S^C$^T^E^M^P^L^A^T^E_^A^R^R^A^Y_^L^E^N^G^T^H = 1 +
       ^O^S^C$ZTDVMT0_^C^O^U^N^T +
       ^O^S^C$ZCLVMT0_^C^O^U^N^T ;
  
   VAR
     ^O^S^V$^T^E^M^P^L^A^T^E_^T^A^B^L^E @D [XDCL, READ] ^R^E^C^O^R^D
       ^S^I^Z^E @D 1 .. ^O^S^C$^M^A^X_^C^O^N^D^I^T^I^O^N, 
       ^T^E^M^P^L^A^T^E_^A^R^R^A^Y @D ^A^R^R^A^Y[1 .. ^O^S^C$^T^E^M^P^L^A^T^E_^A^R^R^A^Y_^L^E^N^G^T^H] ^O^F ^R^E^C^O^R^D
         ^C^O^N^D^I^T^I^O^N_^C^O^D^E @D 0 .. ^O^S^C$^M^A^X_^C^O^N^D^I^T^I^O^N,
         ^S^T^A^T^E@D ^O^S^T$^S^T^A^T^U^S_^S^T^A^T^E^S, 
         ^T^E^M^P^L^A^T^E_^P^T^R @D @B^S^T^R^I^N^G(*),
       ^R^E^C^E^N^D,
     ^R^E^C^E^N^D @D= 
     [^O^S^C$^T^E^M^P^L^A^T^E_^A^R^R^A^Y_^L^E^N^G^T^H, [
*CALL ZTDNMT0 
*CALL ZCLNMT0 
       [99999, ^O^S^C$^W^A^R^N^I^N^G_^S^T^A^T^U^S, @B^O^S^V$^T^E^M^P^L^A^T^E_99999]]];
