Re: One function to Trim and Edit a number.

On 15/07/2009, at 10:55 AM, John Rusling wrote:

To me, it seemed/seems redundant to add a msg file entry AND place
comments in the pgm that echoed (almost exactly) what the msgid was.

The solution to that is to use properly named constants instead of literal message IDs.

D $FILE_NOT_FOUND C CONST('XYZ9801')
D $BAD_OPTION C CONST('XYZ1234')

/FREE
sndPgmMsg( $FILE_NOT_FOUND :
$PROD_MSGF :
$PROD_LIB :
msgDta :
$MH_MSGT_ESCAPE )
/FREE

Then the only time you need examine the message description is when you format the msgDta or if you need to modify the text or substitution data.

Note that if you're clever you can have the sndPgmMsg function accept an open number of substitution values and it can build a properly formatted msgDta structure based on information about the message description retrieved directly from the message file.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------