CLEAR and chain

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