Re: How do I clip a vary length field?

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

I think I see the problem, Chris - EZDQLSTL is defined as an integer - 
it is the length of the SQL statement, not the statement itself.

There are a couple elements that are described as "varying" - IIRC, that 
doesn't mean they are a varying-length field, just that the length is 
not fixed in the data structure, and the length is in the above-noted 
element. In working with APIs like this, you have to use the offsets and 
lengths provided. The SQL statement doesn't have an offset in the DS, 
since it is always at a fixed point, but the "extended cursor name" DOES 
have an offset, because it is located at different places in the DS, 
depending on the length of each instance, where the statements are not 
the same length.

you'll need to modify things - you can use a pointer, perhaps, to the 
element that follows EZDQLSTL, then a substring on the variable there 
and use the length for that.

Have fun!! It's API heaven!

Vern

On 1/15/2020 6:44 PM, Chris Holko wrote:
> This whole process is invoked through the exit point QIBM_QZDA_SQL2 with format ZDAQ0200.
>
>
> Upper is 128 bytes because I needed something small enough to test with when I connected via ODBC.  We have in production statements exceeding 32k and I only log a set size which would be bigger than 128 but less than 32k
>
> I was trying to simplify the substring of the passed data and though that varying fields would handle it.
>
>
>
>
> COPY BOOK
> D*******************************************************************
> D*Typedef for the SQL exit point format #2                    @A1A
> D*******************************************************************
> DEZDSQLF2         DS
> D*                                             Qzda SQL Format2
> D EZDUP05                 1     10
> D*                                   User profile name
> D EZDSID05               11     20
> D*                                   Server identifier
> D EZDFN06                21     28
> D*                                   User exit format name
> D EZDFID05               29     32I 0
> D*                                   Requested function id
> D EZDSN00                33     50
> D*                                   Statement name
> D EZDCN00                51     68
> D*                                   Cursor name
> D EZDPO00                69     70
> D*                                   Prepare option
> D EZDOA00                71     72
> D*                                   Open attributes
> D EZDPN01                73     82
> D*                                   Package name
> D EZDPLN00               83     92
> D*                                   Package library name
> D EZDRDACI00             93     94I 0
> D*                                   DRDA connect indicator
> D EZDCI00                95     95
> D*                                   Commit indicator
> D EZDDSQLL               96    105
> D*                                   Default SQL Collection @A1A
> D EZDRSV1               106    108
> D*                                   Reserved               @B2A
> D EZDOECN               109    112I 0
> D*                                   Offset to ext'd cursor @B2A
> D EZDLECN               113    116I 0
> D*                                   Length of ext'd cursor @B2A
> D EZDRSV2               117    234
> D*                                   Res. for future use    @B2C
> D EZDQLSTL              235    238I 0
> D*                                   Length of SQL Stmt text@A1A
> D*EZDSQLST00            239    239
> D*
> D*                                   Varying length
> D*                                /* SQL statement text     @B2C
> D*EZDECN00              240    240
> D*
> D*                                    Varying length        @B2A
> D*                                   Extended cursor name   @B2A
>
>
>
> > 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?
> >
> >
> >
> > -----Original Message-----
> > 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.
> >
> >
> >
> >
> >
> > **FREE
> >
> > /copy qsysinc/qrpglesrc,ezdaep
> >   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         char(1);
> >           datain        likeds(EZDSQLF2);
> >   end-pr;
> >
> >   dcl-pi  ODBCEXIT;
> >           allow         char(1);
> >           datain        likeds(EZDSQLF2);
> >
> >
> > allow = *on;
> > Upper = SQLStuff;  // This will truncate to 1024 if needed.
> >
> > *inlr = *on;
> >
> > return;
> >
> >
> > --
> > 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,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > 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