Re: Strange ! Record not getting cleared if record not found.

Ewart -

Two suggestions...

Either trick the compiler to generate the output fields for record format IVR by:

1) Making the file Add-capable in the F-Spec
(note: the file does NOT have to be Update to be Add-capable)

2) Then put code in the initialization routine that writes a record to the file, something like:

If (*inlr = *on AND *inlr = *off);
write ivr;
Endif;

OR

Use a D-Spec to define the file as an external data structure and clear the data structure instead of the record format when the record is not found.

- sjl


----- Original Message ----- From: <ewart.desouza@xxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, June 20, 2007 12:07 AM
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.