RE: How to tell *FILE object is PF-DTA or PF-SRC

Hi Ben

When I had to do this a while ago, I resorted to using the SYSTABLES file
and SQL:

C/Exec SQL
C+ Declare csrSysTables Cursor for
C+ Select Sys_Tname, Label
C+   From SysTables
C+   Where Sys_Dname = :p1?Libn and Type In('P','T') and  FileType = 'D'
C/End-Exec

Here, "Type In('P','T')" includes Physical Files and Tables, and "FileType =
'D'" checks for data files only.

HTH

Jonathan

-----Original Message-----
From: rpg400-l-bounces+jonathan.mason=astradyne-uk.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+jonathan.mason=astradyne-uk.com@xxxxxxxxxxxx]On
Behalf Of Ben_Pforsich@xxxxxxxxxxxx
Sent: 31 May 2005 20:14
To: RPG programming on the AS400 / iSeries
Subject: How to tell *FILE object is PF-DTA or PF-SRC


I need to be able to determine if a physical file is a data or source
physical file in RPG IV.  I thought the QUSROBJD API could be used for
this, but I don't see how.  The attribute returned is always "PF"
regardless.  Any ideas?

Ben Pforsich
Programmer Analyst
Bob Evans Farms, Inc.
I/S Department
Columbus, Ohio

--
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.