×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
midrange.com
