Retrieve SQLCODE descriptions programmatically?

Does anyone have a piece of code they would be willing to share?

Ideally, I'm looking for a subprocedure (called from RPG/IV) that will
accept a SQLCODE and SQLERRM, and return the explanation text from the SQL
message file QSYS/QSQLMSG. Substitution variables would be replaced with
values in SQLERRM.

If not, I will probably write one. I find myself doing a lot of embedded SQL
for CGI programs (works well), and I currently get the SQL code and state
values for the prepare (if used), open, and first fetch of an SQL statement.
I output these to HTML comments in the web page for tracking/debugging. I
also want the SQL message (if an error) to show also. This would also be
useful in traditional RPG/IV programs using embedded SQL.

Sample usage...
if sqlcod <> 0 or sqlstt <> '00000'
eval sqlmessage = GetSQLMsg( sqlcod : sqlerrm )
endif

Thanks,
Loyd

--
Loyd Goodbar
Programmer/Analyst
BorgWarner Incorporated
Air/Fluid Systems, Water Valley, MS