Common ZTDPERR

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ztdperr +++|*NOSEQ
00002  M00S00002.ztdperr +++|*WIDTH 95
00003  M00S00003.ztdperr +++|
00004  M00S00004.ztdperr +++|*CALLC ZTDCERR
00005  M00S00005.ztdperr +++|
00006  M00S00006.ztdperr +++|{ ZTDPERR  write error messages to listing file }
00007  M00S00007.ztdperr +++|
00008  M00S00008.ztdperr +++|  PROCEDURE [XREF] report_error (text: STRING(*));
00009  M00S00009.ztdperr +++|
00010  M00S00010.ztdperr +++|  PROCEDURE [XREF] error_status (status: ost$status);