$SirMsg: Difference between revisions

From m204wiki
Jump to navigation Jump to search
(Added the optional %arg1, %arg2, %arg3 substitutions for %C in the message)
m (misc formatting and links)
 
(2 intermediate revisions by one other user not shown)
Line 7: Line 7:


==Syntax==
==Syntax==
<p class="syntax"><span class="term">%msg</span> = $SirMsg (<span class="term">line_num, %arg1, %arg2, %arg3</span>)
<p class="syntax"><span class="term">%msg</span> = $SirMsg (<span class="term">line_num</span> [,<span class="term">%arg1</span>][,<span class="term">%arg2</span>][,<span class="term">%arg3</span>])
</p>
</p>


Line 20: Line 20:
If there is no current <var>$SirMsg</var> procedure or the requested line number is invalid (negative or greater than the number of lines in the <var>$SirMsg</var> procedure), <var>$SirMsg</var> returns a null string.</p></td></tr>
If there is no current <var>$SirMsg</var> procedure or the requested line number is invalid (negative or greater than the number of lines in the <var>$SirMsg</var> procedure), <var>$SirMsg</var> returns a null string.</p></td></tr>


<tr><th nowrap>%arg1</th>  
<tr><th>%arg1</th>  
<td>An optional substitution argument that will replace the first %C, if one is present, in the message. This argument may also be a literal.</td></tr>
<td>An optional substitution argument that will replace the first occurrence of the literal <code>%C</code>, if one is present, in the message. See the example in the "Examples" section, below. </td></tr>


<tr><th nowrap>%arg2</th>  
<tr><th>%arg2</th>  
<td>An optional substitution argument that will replace the second %C, if one is present, in the message.  This argument may also be a literal.</td></tr>
<td>An optional substitution argument that will replace the second <code>%C</code>, if one is present, in the message.</td></tr>


<tr><th nowrap>%arg3</th>  
<tr><th>%arg3</th>  
<td>An optional substitution argument that will replace the third %C, if one is present, in the message.  This argument may also be a literal.</td></tr>
<td>An optional substitution argument that will replace the third <code>%C</code>, if one is present, in the message.</td></tr>
</table>
</table>


Line 44: Line 44:
Suppose the current <var>$SirMsg</var> procedure as set by <var>$SirMsgP</var> contains these lines:
Suppose the current <var>$SirMsg</var> procedure as set by <var>$SirMsgP</var> contains these lines:


<p class="code">MSG0001 Invalid PF key.
<p class="code">MSG0001: Invalid PF key.
MSG0002 Record not found.
MSG0002: Processing record number=%C in file=%C.
MSG0003 Invalid data in input field.
MSG0003: Invalid data in input field.
</p>
</p>


The following statement would print: <code>MSG0002 Record not found</code>.
If this <var>Print</var> statement is in a <var>For</var> loop against file <code>HISTORY</code>, on record number 355:
<p class="code">Print $SirMsg(2)
<p class="code">Print $SirMsg(2,$Currec,$Curfile)</p>
<p>
The output is:
</p>
<p class="output">MSG0002: Processing record number=355 in file=HISTORY </p>
<p>
The value of <var>[[$Currec]]</var> replaces the first <code>%C</code> substitution string, and the value of <var>[[$Curfile]]</var> replaces the second. As many as three, optional, substitution strings (<code>%C</code>) might be present in one message.
</p>
</p>
 
<p>
The following statement would print a null string:
The following statement prints a null string: </p>
<p class="code">Print $SirMsg(4)
<p class="code">Print $SirMsg(4)
</p>


[[Category:$Functions|$SirMsg]]
[[Category:$Functions|$SirMsg]]

Latest revision as of 16:49, 14 August 2017

Line of current $SirMsgP procedure

Note: Many $functions have been deprecated in favor of Object Oriented methods. There is no OO equivalent for the $SirMsg function.

The $SirMsg function is used to retrieve a line from the current $SirMsg procedure as set by $SirMsgP.

Syntax

%msg = $SirMsg (line_num [,%arg1][,%arg2][,%arg3])

Syntax terms

%msg A string set to the contents of line_num in the current $SirMsg procedure.
line-num The number of the line within the current $SirMsg procedure to be returned. A zero returns the name of the current $SirMsg procedure.

If there is no current $SirMsg procedure or the requested line number is invalid (negative or greater than the number of lines in the $SirMsg procedure), $SirMsg returns a null string.

%arg1 An optional substitution argument that will replace the first occurrence of the literal %C, if one is present, in the message. See the example in the "Examples" section, below.
%arg2 An optional substitution argument that will replace the second %C, if one is present, in the message.
%arg3 An optional substitution argument that will replace the third %C, if one is present, in the message.

Usage notes

  • $SirMsgP and $SirMsg allow a programmer to use a Model 204 procedure as a message repository. Each line of the procedure corresponds to a message that can be requested by line number with $SirMsg. The advantages of using $SirMsg are:
    • No server space is wasted holding infrequently used error messages.
    • The virtual storage holding the messages can be shared among users.
    • It simplifies sharing common messages among procedures in a subsystem or online.

Examples

Suppose the current $SirMsg procedure as set by $SirMsgP contains these lines:

MSG0001: Invalid PF key. MSG0002: Processing record number=%C in file=%C. MSG0003: Invalid data in input field.

If this Print statement is in a For loop against file HISTORY, on record number 355:

Print $SirMsg(2,$Currec,$Curfile)

The output is:

MSG0002: Processing record number=355 in file=HISTORY

The value of $Currec replaces the first %C substitution string, and the value of $Curfile replaces the second. As many as three, optional, substitution strings (%C) might be present in one message.

The following statement prints a null string:

Print $SirMsg(4)