Re: Retrieve SQLCODE descriptions programmatically?

Are you basically talking RTVMSG? Negative SQLCOD translate to message
description IDs, with a little work, right?

Don't have one here. Nice idea.

At 09:28 AM 4/11/02 -0500, you wrote:
>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
>
>
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.