$ERR.REX: Difference between revisions
Content added Content deleted
(added this program, it is a general purpose program to display specific error messages. -- ~~~~) |
(add HELP (doc) and others links, added whitespace. -- ~~~~) |
||
Line 1: | 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 |
<lang rexx>/**/trace o; parse arg !; if !all(arg()) then exit |
||
if !cms then address '' |
if !cms then address '' |
||
signal on halt; signal on novalue; signal on syntax |
signal on halt; signal on novalue; signal on syntax |
||
numeric digits 100 |
numeric digits 100 |
||
Line 13: | Line 16: | ||
@cmstype = 'SET CMSTYPE' /*point to SET CMSTYPE cmd*/ |
@cmstype = 'SET CMSTYPE' /*point to SET CMSTYPE cmd*/ |
||
if !cms |!dos then @ = '────────' |
if !cms | !dos then @ = '────────' |
||
else @ = '--------' |
else @ = '--------' |
||
parse var !! !! ' ..F=' ftops |
parse var !! !! ' ..F=' ftops |