Revision as of 15:31, 19 January 2021 (view source) rosettacode>Gerard Schildberger m (added whitespace, split a compound statement.) ← Older edit		Latest revision as of 14:10, 7 August 2023 (view source) Katsumi a.k.a. Upperdecker2562 (talk \| contribs) No edit summary
Line 1: The ~~  '''~~<code>$ERR.REX~~'''  ~~</code> (REXX) program is used to issue various formatted error messages from other REXX programs. ~~<br><br>~~The ~~  '''~~<code>$ERR.REX~~'''  ~~</code> program makes use of the ~~  '''~~<code>$T.REX~~'''  ~~</code> program to issue the error messages in red (if available). <br><br>The help for the   '''$ERR'''   REXX program is included here   ──►   [[$ERR.HEL]].▼ <lang rexx>/REXX program to display error or informational messages (in color, if supported). /▼ ▲~~<br><br>~~The help for the ~~  '''~~<code>$ERR~~'''  ~~</code> REXX program is included here ~~ ~~ ──► ~~ ~~ [[$ERR.HEL]]. <syntaxhighlight lang="rexx"> ▲~~<lang rexx>~~/REXX program to display error or informational messages (in color, if supported). / trace off /turn off all REXX cmd error messages./ Line 494 ⟶ 497: syitb: if left(sysy,1)==' ' then sysy=substr(sysy,2); call syit sysy; return syline: if a5\==0 then call sy 'on line' a5 "of" ufid; _sl=g7; call syfunc; if _sl\=='' then do; call sy; call sy "REXX sourceline is:"; call sy; call sy _sl; call sy; end; if !cms then do;'EXECSTAT' a2 a3;if rc==0 then "EXECDROP" a2 a3;end;return syntax: !sigl=sigl; call er 13,!fid(2) !fid(3) !sigl !cal() condition('D') sourceline(!sigl)~~</lang>~~ </syntaxhighlight> [[Category:REXX library routines]]

$ERR.REX: Difference between revisions

$ERR.REX (view source)

Revision as of 14:10, 7 August 2023