I've always used *ALL, seeing as how you provided the docs, I remember why
now. I believe you are correct.

A quick debug should prove that for sure.

Bradley V. Stone
MAILTOOL Benefit #15 <https://www.bvstools.com/mailtool.html>: The ability
to add a Footer to each email sent using an IFS stream file.

On Thu, Feb 21, 2019 at 2:52 PM <MichaelQuigley@xxxxxxxxxx> wrote:

I've been working with what I would consider a bug in a vendor supplied
program. They're processing a file conditioned on an optional field in a
secondary file. The secondary file is specified as input-only, externally
described, and keyed. For each record in the primary file, they do a chain
to the secondary (input-only) file. Then the code is something like:


chain (keys) secondary-record;
if not %found;
clear secondary-record;


In the ILE RPG Reference Manual under Initialization Operations, it reads:

"When these operation codes are applied to record formats, only fields
which are output are affected (if factor 2 is blank) or all fields (if
factor 2 is *ALL)."

Also in the manual under "Clearing Record Formats" and the CLEAR operation

if *ALL is not specified, only those fields with a usage of output or both
are affected. All field-conditioning indicators of the record format are
affected by the operation.

So am I correct in getting back to the vendor and telling them they aren't
coding the CLEAR incorrectly? i.e., It should be coded:

clear *all secondary-record;

Michael Quigley
Computer Services
The Way International
(419) 753-1222
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].