|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.