On Jan 15, 2020, at 2:10 PM, Justin Taylor <JUSTIN@xxxxxxxxxxxxx> wrote:
I'd guess a pointer problem. How is EZDQLSTL defined, and how's it loaded?
From: Chris Holko [mailto:christopherholko@xxxxxxxxx]
Sent: Wednesday, January 15, 2020 12:43 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: How do I clip a vary length field?
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.
Dcl-s pEZDQLSTL pointer inz( %Addr( EZDQLSTL ) );
Dcl-s SQLStuff VarChar(32000: 4) Based( pEZDQLSTL );
Dcl-s Upper Varchar(128);
dcl-pr ODBCEXIT extpgm('ODBCEXITN');
allow = *on;
Upper = SQLStuff; // This will truncate to 1024 if needed.
*inlr = *on;
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com