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);