View source for $ErrMsg

<p>The $ERRMSG function returns a variable length string of up to 79 characters containing the prefix and text of the last counting error message or request cancellation message received by the user. </p>
<p>A null value is returned if no counting error or request cancellation message has been received since:</p>
<ul>
<li>The beginning of the user's <var class="product">Model&nbsp;204</var> session</li>
</li>
<li>The last call to the <var>[[$ERRCLR]]</var> function.</li>
</li>
<li>Processing a User Language OPEN statement </li>
</li>
</ul>
<p>Refer to the Rocket <var class="product">Model&nbsp;204</var> Messages Manual for more information on counting messages. This function takes no arguments.             </p>
<b>Example</b>
<p>A sample $ERRMSG function with an ON ERROR unit follows. To learn about ON ERROR units, see [[Subroutines#ON units|ON units]].</p>
<p class="code">BEGIN
ERROR.PROC: ON ERROR
               PRINT 'THE REQUEST IS ENDING'
               PRINT 'THE LAST ERROR MESSAGE RECEIVED WAS:'
               PRINT $ERRMSG
            END ON
GET.RECS:   FIND ALL RECORDS FOR WHICH
               AGENT = CASOLA
            END FIND
            FOR EACH RECORD IN GET.RECS
               .
               .
               .
            END FOR
END   
</p>
[[Category:SOUL $functions]]