Re: CLEAR and chain

Jim,

I always put it just before the key fields assignments. Is something like
"I'm going to retrieve this record, let's just start from zero".

BTW, What does "SR" just after the C mean? :-) (ducking and running....!)

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Sat, Feb 5, 2011 at 6:43 PM, James Newman, CDP <newmanas400@xxxxxxxxx>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.