× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.