|
Hi, I have the following SQL command in my program: D SQLOk C Const('00000') D SQLDupRec C Const('23505') D SQLWrnPfx C Const('01') C* Populate fields in work file. C/EXEC SQL C+ INSERT INTO V64BPCSUSF/SVL (SVID, SVORD) VALUES('SV', :WkOrdN) C+ WITH NC C/END-EXEC C IF SQLStt = SQLDupRec C EVAL InMsg = 'Duplicate Rec' C ELSEIF %Subst(SQLStt:1:2) = SQLWrnPfx C EVAL InMsg = SqlStt C ELSEIF SQLStt = SQLOk C EVAL InMsg = 'Valid Insert ' C ENDIF I am using this program as a stored procedure and executing it from an SQL server. That seems to be working OK, the edit checking is returning an error. The problem is when I pass it valid data, I get the 'Valid Insert' message, but there is no data in the file. Any ideas on what is wrong here? Thanks <===================================================> Terri Harteau Felker Brothers Corporation **************** "The happiest people don't necessarily have the best of everything. They just make the best of everything!" ****************
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.