Re: Where is the PF-SRC attribute?

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Loyd,

Position 135 of the member header ... but that's not really what you were 
asking :)

You need to use either the RTVMBRD command or the QRTVFD API to find this 
information (if you want to stay 
with APIs).  The value is in the FILEATR return variable of the command or the 
Qdbfhfsu field of the API 
format FILD0100.  This API is not for the faint of heart and I would suggest 
you use the RTVMBRD command 
although you may have some special handling in the case of a file with no 
members.  The DSPFD command can 
also be used but I don't remember the particular format necessary.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Forte Agent 1.5/32.451
> MIME-Version: 1.0
> Date: Fri, 05 Feb 99 23:52:57 +0000
> From: lgoodbar@watervalley.net
> To: midrange-l@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Where is the PF-SRC attribute?

> 
> I'm starting to write a program to process source physical files, but I can't
> seem to find the attribute that tells me a file is source versus data. I was
> using the QUSLOBJ API to get a list of files in a library, then possibly
> QUSOBJD (? I'm not at the AS/400 now) API to retrieve the file desciption. I
> can see *FILE as the type and PF as the (extended?) attribute, but not source
> versus data. Where can I find this?
> 
> Thanks,
> Loyd

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---