Re: CLEAR and chain

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