Re: CLEAR and chain

You could also di it like this:

CSR MOVEL SQSYMB CVSYMB
CSR MOVEL SQDATE CVDATE

CSR *NOKEY CLEAR CVREC

CSR KEYMCALC CHAIN MCALC 92

And the key list formed by the fields from the PF.

With regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 5-2-2011 at 17:13 James Newman, CDP wrote:

I posted last month about a problem I was having with a program updating
fields it shouldn't have been updating. I've figured out that I need to
use
CLEAR to make sure the leftover contents of the last record is wiped out
and
doesn't carry over to the next record. I guess I'm wondering where is the
best place to put it. For example, should it be done before the key is
built? After checking *IN92 to see if the record already exists?

CSR KEYMCALC KLIST
CSR KFLD SQSYMB
CSR KFLD SQDATE
C*
CSR KEYMCALC CHAIN MCALC 92
C*
CSR *IN92 IFEQ *OFF
CSR Z-ADD HOLDSTO1 CVSTO1
CSR UPDATE CVREC
CSR ADD 1 CTRUPD
CSR ELSE
CSR MOVEL SQSYMB CVSYMB
CSR MOVEL SQDATE CVDATE
CSR Z-ADD HOLDSTO1 CVSTO1
CSR WRITE CVREC
CSR ADD 1 CTRADD
CSR ENDIF



Thanks...Jim
--
This is the RPG programming on the IBM i / System i (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.



-----
Geen virus gevonden in dit bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 10.0.1191 / Virusdatabase: 1435/3420 - datum van uitgifte:

02/03/11

-----
Geen virus gevonden in dit bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 10.0.1191 / Virusdatabase: 1435/3420 - datum van uitgifte:

02/03/11