Common ZTDPERR

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ztdperr +++|*NOSEQ
00002  M01S00002.ztdperr +++|*WIDTH 95
00003  M01S00003.ztdperr +++|
00004  M01S00004.ztdperr +++|*CALLC ZTDCERR
00005  M01S00005.ztdperr +++|
00006  M01S00006.ztdperr +++|{ ZTDPERR  write error messages to listing file }
00007  M01S00007.ztdperr +++|
00008  M01S00008.ztdperr +++|  PROCEDURE [XREF] report_error (text: STRING(*));
00009  M01S00009.ztdperr +++|
00010  M01S00010.ztdperr +++|  PROCEDURE [XREF] error_status (status: ost$status);