× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.