Re: Retrieve table's library with embedded SQL?

Hi Rob,

Yep, that should work.

Paul


----- Original Message -----
From: <rob@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, July 14, 2005 2:39 PM
Subject: Re: Retrieve table's library with embedded SQL?


> I wonder if
> D SchemaName          S                       128         Varying
>
> C/Exec SQL
> C+  VALUES CURRENT SCHEMA INTO :SchemaName
> C/End-Exec
>
> would work and not have to have the dummy select?
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> "Paul Tuohy" <tuohyp@xxxxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 07/14/2005 04:06 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> Subject
> Re: Retrieve table's library with embedded SQL?
>
>
>
>
>
>
> Hi Dan,
>
> The special register CURRENT SCHEMA should give it to you. If you just
> want
> to know the library name being used (warning, from memory, not tested):-
>
> D SchemaName          S                       128         Varying
>
> C/Exec SQL
> C+  SELECT DISTINCT CURRENT SCHEMA INTO :SchemaName FROM ANYTABLE
> C/End-Exec
>
> HTH
>
> Paul
>
> ----- Original Message -----
> From: "Dan" <dan27649@xxxxxxxxx>
> To: <RPG400-L@xxxxxxxxxxxx>
> Sent: Wednesday, July 13, 2005 8:56 PM
> Subject: Retrieve table's library with embedded SQL?
>
>
> > Related to my prior thread, I am wondering whether there is a way to
> > determine the library of the table opened/used in embedded SQL.  I do
> > not want to qualify the filename, and I am not otherwise defining the
> > file to the program (no F-spec).
> >
> > I thought there might be something in the SQLDA, but I don't see
> > anything that looks like it might be a library name.
> >
> > TIA,
> > Dan
> >
> > --
> > 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.
>
>