×
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.
"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 01/15/2020
01:43:10 PM:
Okay, I am truly lost here. I am missing something really simple.
this is a quick test program that fails when called by the exit with
RNQ0115 when it does the upper=sqlstuff
RNQ0115 is Length of varying length variable is out of range.
So, if the data is being passed in via the PI, then try this:
**free
/include qsysinc/qrpglesrc,ezdaep
dcl-s Upper Varchar(128);
dcl-s pEZDQLSTL pointer;
dcl-s SQLStuff VarChar(32000: 4) Based( pEZDQLSTL );
dcl-pi ODBCEXIT extpgm('ODBCEXITN');
allow char(1);
datain likeds(EZDSQLF2);
end-pi;
pEXDQLSTL = %addr(datain.EZDQLSTL);
allow = *on;
Upper = SQLStuff; // This will truncate to 128 if needed.
*inlr = *on;
return;
Sincerely,
Dave Clark
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.
midrange.com
