Re: CLEAR and chain

[Booth Martin <booth@xxxxxxxxxxxx>]

Why not right after the ELSE?   That is the only time that you really 
need the CLEAR, right?

(Also, consider replacing *in92 with %found?)


On 2/5/2011 5:13 PM, 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