RE: process a list of files

The answer depends on what you want to do after you scan. If you simply
want to know if the data contains an asterisk, then you could use CPYF
with its simple selection criteria and copy the results to either a new
database file or *PRINT.
If you want to change the data, then you need a generalized scanning
tool for your character fields.

Searching is pretty simply, using QCLSCAN or CPYF or SQL can give you
results for any file, but knowing the field names and only searching in
those fields is a bit more complex. If, for example, the field name
being searched was/is the same in all 500 files, then it I would use:
 (a) SQL if a change is required once the data is detected.
 (b) CPYF or OPNQRYF if you only need to read the data
 (c) An RPG program with embedded SQL that is in a loop which is
performed once for each file.

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Ray, Adam
> Sent: Thursday, November 08, 2001 9:30 AM
> To: 'rpg400-l@midrange.com'
> Subject: process a list of files
>
> I've been stumbling over this for weeks and have decided to contact
the
> experts.
> I have a long list of files (over 500) that I need to process. I need
to
> search every character field in every file for the '*' character. I
would
> like to have one RPG program that will scan the records of the files
for the
> character. But since nearly every file has a different layout, I have
no
> idea how to accomplish this. Any ideas are greatly appreciated.
>
> Thanks,
> Adam Ray
> Programmer/Analyst
> Wipfli Ullrich Bertelson LLP
> www.wipfli.com <http://www.wipfli.com>
>
>
> __________________________________________________________________
>
> Please look below this disclaimer for attachments.
>
> This email and any files transmitted with it are confidential and
> intended solely for the use of the individual or entity to whom they
> are addressed. This communication may contain material protected by
> attorney-client privilege. If you are not the intended recipient or
> the person responsible for delivering the email to the intended
> recipient, be advised that you have received this email in error and
> that any use, dissemination, forwarding, printing, or copying of this
> email is strictly prohibited. If you have received this email in error
> please notify the Information Systems Manager by telephone at
(715)845-3111
>
> postmaster@wipfli.com
> http://www.wipfli.com
>
> ____________________________________________________________________
>
> This message has been generated by MIMEsweeper. This message and
> attachments have been swept for all known and recorded computer
viruses.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.