Re: CLEAR and chain

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Because there might be those who do NOT know (I had an idea but looked 
it up), I'll answer the SR question from the reference manual -

"An SR entry in positions 7 and 8 may optionally be used for operations 
within subroutines as a documentation aid."

I see this as less useful with the advent of WDSC/RD* since you can 
filter on subroutines, etc., or use the outline or application diagram 
and find your way around easily.

As to the C, maybe in 15 years when no one has done fixed-form for the 
last 5, this will be a bit of arcane gnostic information.

:-)
Vern

On 2/6/2011 6:53 AM, paultherrien@xxxxxxxxxxxxxxxxxx wrote:
> 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