RE: CLEAR and chain

[<paultherrien@xxxxxxxxxxxxxxxxxx>]

What is the 'C' in column 6?

Paul Therrien
Andeco Software, LLC
932 Saint Johns Dr
Maryville, TN 37801
225-229-2491
paultherrien@xxxxxxxxxxxxxxxxxx
www.andecosoftware.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Luis Rodriguez
Sent: Saturday, February 05, 2011 8:00 PM
To: RPG programming on the IBM i / System i
Subject: 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.