Anonymous user
$ERR.REX: Difference between revisions
add HELP (doc) and others links, added whitespace. -- ~~~~
(added this program, it is a general purpose program to display specific error messages. -- ~~~~) |
(add HELP (doc) and others links, added whitespace. -- ~~~~) |
||
Line 1:
The '''$ERR.REX''' (REXX) program is used to issue various formatted error messages from other REXX programs.
<br><br>The '''$ERR.REX''' program makes use of the '''$T.REX''' 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>/**/trace o; parse arg !; if !all(arg()) then exit
if !cms then address ''
signal on halt; signal on novalue; signal on syntax
numeric digits 100
Line 13 ⟶ 16:
@cmstype = 'SET CMSTYPE' /*point to SET CMSTYPE cmd*/
if !cms | !dos then @ = '────────'
else @ = '--------'
parse var !! !! ' ..F=' ftops
| |||