Re: Is there an alternative to FNDSTRPDM?

Glenn,

On two: use the List Member API and a dynamic SQL statement in embedded SQL
to scan the file (I think you mean SRCPFs here, as you mentioned hard-coded
values) and write report.

"Old fashioned way": DSPFD *MBRLIST to an outfile, read the outfile, use
CPYF to QTEMP, check the last message and if records found send message to
a MSGQ, print out contents MSGQ.

With regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 29-8-2007 at 16:44 Glenn Gundermann wrote:

Hi Folks,

This is a two-parter.

I'm trying to write some utilities to find hard-coded values in places

like data areas, files, etc.

1. I'm sort of happy with my utility for data areas. I'm using QUSLOBJ

to list *ALL in *ALLUSR of type *DTAARA. Then using QWCRDTAA to retrieve

the data area data and search for my string. No problem.

What I would prefer to do is to use my library list instead of *ALLUSR but

I only want the user libraries in my library list. Is there an API to

determine if the library is a user or system library or do I have to

hard-code the list of libraries found in the "Object (OBJ) - Help"?

2. I'm not sure what to do for *FILEs. I'm using QUSLOBJ to list *ALL in

<lib-parm> of type *FILE. Is there an alternative to FNDSTRPDM? When I

use system(FNDSTRPDM...) it produces a spooled file for every file and

it's just not manageable. I'm looking for an API similar to QWCRDTAA that

will retrieve the data so I can search it and only report the ones where a

match is found.

Any suggestions would be most appreciated.

Thanks,

Glenn Gundermann
ggundermann@xxxxxx
Cell: (647) 272-3295
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.484 / Virus Database: 269.12.10/977 - Release Date: 28-8-2007
16:29