Re: Does a program contain embedded SQL?

["Doug Davie" <dougdavie@xxxxxxxxx>]

So long as the modules are ILE, the QBNLPGMI should work.
I tried it here this morning and was able to  see the SQL count.

Ensure you are reading all entries in the user space   (one per module)
(in my test here I had 3 modules, but only one had SQL, and it wasn't the
first retrieved)

Ensure you are looking at a module that contains SQL:
D QBNBMN                 21     30
D*                                             Bound Module Name

Ensure you have the correct positions for the number of SQL statements:

D QBNNSQLI              325    328B 0
D*                                             Number SQL Inst


On Fri, Oct 31, 2008 at 3:57 PM, Chris Beck <CBeck@xxxxxxxxxxxx> wrote:

> Yes Most are ILE, and some have multiple modules. The dsppgm does show the
> correct information.
>
> > > > dougdavie@xxxxxxxxx 10/31/2008 2:46:45 PM >>>
>  Is the program an ILE program?
> Does it have multiple modules?  (maybe the first returned isn't the module
> you're interested in)
> If you use DSPPGM PGM(pgmName) DETAIL(*MODULE), then option 5 next to the
> module and page down, does it show the correct information there?
> On Fri, Oct 31, 2008 at 3:30 PM, Chris Beck <CBeck@xxxxxxxxxxxx> wrote:
>
> > Thanks, I am using that API already in my process, and the number of sql
> > statments field is always returning 0 for me.
> >
> >
> > > > > dougdavie@xxxxxxxxx 10/31/2008 2:12:27 PM >>>
> >
> > Maybe make use of the "List ILE Program Information (QBNLPGMI)" API,
> > PGML0100
> > Format, to see the "Number of SQL statements"
> >
> > On Fri, Oct 31, 2008 at 2:51 PM, Jerry Adams <Jerry@xxxxxxxxxxxxxxx>
> > wrote:
> >
> > > Obviously I'm no expert, but I looked at one of mine.  Neither the
> object
> > > attribute, which is RPGLE, nor DSPPGM nor DSPOBJD revealed anything
> that
> > > even hinted at SQL.  But those were the only commands I tried, and
> didn't
> > > look at any API's.
> > >
> > > Jerry C. Adams
> > > IBM System i Programmer/Analyst
> > > B&W Wholesale
> > > office: 615-995-7024
> > > email:  jerry@xxxxxxxxxxxxxxx
> > >
> > >
> > > -----Original Message-----
> > > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:
> > rpg400-l-bounces@xxxxxxxxxxxx]
> > > On Behalf Of Chris Beck
> > > Sent: Friday, October 31, 2008 1:37 PM
> > > To: rpg400-l@xxxxxxxxxxxx
> > > Subject: Does a program contain embedded SQL?
> > >
> > > Does anyone know how to tell by only looking at the object if a program
> > > contains embedded SQL?
> > >
> > > I looked through the API's but didn't see much, I hope I am just
> missing
> > > the obvious.
> > >
> > > Chris
> > >
> > >
> > > This email transmission and any documents, files or previous
> > > email messages attached to it may contain information that is
> > > confidential or legally privileged. If you are not the intended
> > > recipient, you are hereby notified that any disclosure, copying,
> > > printing, distributing or use of this transmission is strictly
> > > prohibited. If you have received this transmission in error,
> > > please immediately notify the sender by telephone or return
> > > email and delete the original transmission and its attachments
> > > without reading or saving in any manner.
> > >
> > > The Evangelical Lutheran Good Samaritan Society.
> > >
> > > --
> > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> > list
> > > To post a message email: RPG400-L@xxxxxxxxxxxx
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > > or email: RPG400-L-request@xxxxxxxxxxxx
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/rpg400-l.
> > >
> > > --
> > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> > list
> > > To post a message email: RPG400-L@xxxxxxxxxxxx
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > > or email: RPG400-L-request@xxxxxxxxxxxx
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/rpg400-l.
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
> >
> >
> > This email transmission and any documents, files or previous
> > email messages attached to it may contain information that is
> > confidential or legally privileged. If you are not the intended
> > recipient, you are hereby notified that any disclosure, copying,
> > printing, distributing or use of this transmission is strictly
> > prohibited. If you have received this transmission in error,
> > please immediately notify the sender by telephone or return
> > email and delete the original transmission and its attachments
> > without reading or saving in any manner.
> >
> > The Evangelical Lutheran Good Samaritan Society.
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> --
>  This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
>
> This email transmission and any documents, files or previous
> email messages attached to it may contain information that is
> confidential or legally privileged. If you are not the intended
> recipient, you are hereby notified that any disclosure, copying,
> printing, distributing or use of this transmission is strictly
> prohibited. If you have received this transmission in error,
> please immediately notify the sender by telephone or return
> email and delete the original transmission and its attachments
> without reading or saving in any manner.
>
> The Evangelical Lutheran Good Samaritan Society.
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.