I would always use 'clear *ALL ivb;' in this situation...
Mike
-----Original Message-----
From: rpg400-l-bounces+mike.waite=computersoftware.com@xxxxxxxxxxxx
[
mailto:rpg400-l-bounces+mike.waite=computersoftware.com@xxxxxxxxxxxx]
On Behalf Of Lapeyre, Francis
Sent: 20 June 2007 14:44
To: RPG programming on the AS400 / iSeries
Subject: RE: Strange ! Record not getting cleared if record not found.
Jeff is correct. To get around this, declare the file as update and add
the (N) extender to chains, reads, etc., for the file.
Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[
mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
ewart.desouza@xxxxxxxxxxx
Sent: Wednesday, June 20, 2007 12:07 AM
To: RPG programming on the AS400 / iSeries
Subject: Strange ! Record not getting cleared if record not found.
Hello all,
Following are my program statements:
Fexcdtls0 iF E k Disk EXTFILE(wExcdtls0) USROPN
chain (d2wbcd:d2wccd:bdjtce) excdtls0; if not %found(excdtls0);
clear ivb;
endif;
I always clear the record (ivb) if the record is not found so that
whenever any fields from that record are used it is blank or 0. This
morning I found it strange that the record does not get cleared. Is it
because in the F specs the file is input only(i) & not for update (u)
???
Thanks & best regards
Ewart
--
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.
midrange.com
