Re: Question on SQL tables vs PF

[CRPence <CRPbottle@xxxxxxxxx>]

  That... but I was actually more surprised about the use of an SQL 
query to answer the question.  The first inquiry is odd... for the 
assumption that there must be only one file in the *SYSBAS or across the 
iASP and *SYSBAS; e.g. there is nothing to resolve the first file with 
that file name within the library list.  If the input file name and 
library name had been the long names, then at least the SQL would 
provide something more than what directly a non-SQL request could effect 
without using the Retrieve Short Name (QDBRTVSN) API.  If I wanted only 
to know if a 10-byte file name [in the library list or a 10-byte library 
name] was created by SQL DDL, then I would use the Retrieve Database 
File Description (QDBRTVFD) API.

Regards, Chuck

On 02 Sep 2013 04:33, Vernon Hamberg wrote:
> I'm just curious - in daily operations, what does this matter? IOW,
> what do you differently based on whether a file is a table or not?
>
> On 8/30/2013 9:12 AM, Gene Burns wrote:
> > I have a service program to check this:
> >
> >
> >
> >       p CheckTableType...
> >       p                 b                   export
> >
> >       d CheckTableType...
> >       d                 pi             1a
> >       d  FilName                      10a
> >       d  FilLib                       10a   options(*nopass)
> >
> >       d type            s              1a
> >       d sqlOK           c                   '00000'
> >
> >        /free
> >
> >
> >          exec sql
> >            Set Option
> >            Naming    = *Sys,
> >            Commit    = *None,
> >            UsrPrf    = *User,
> >            DynUsrPrf = *User,
> >            Datfmt    = *iso,
> >            CloSqlCsr = *EndActGrp;
> >
> >          if %parms() = 1;
> >            exec sql
> >              select table_type into :type
> >                from qsys2/systables
> >                where system_table_name = :FilName;
> >          else;
> >            exec sql
> >              select table_type into :type
> >                from qsys2/systables
> >                where system_table_name = :FilName and
> >                      system_table_schema = :FilLib;
> >          endif;
> >
> >          if sqlstate <> sqlOK;
> >            type = *blank;
> >          endif;
> >
> >          return type;
> >
> >        /end-free