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

Follow-Ups:
Replies:

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

This mailing list archive is Copyright 1997-2020 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].