RE: Chain and Readc

That's it, Scott! Many thanks...


Thank you


Florin Todor




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Thursday, September 30, 2010 3:32 PM
To: RPG programming on the IBM i / System i
Subject: Re: Chain and Readc

hi Florin,

After marking the records changed (with the indicator for SFLNXTCHG) you

need to display the subfile before READC will see that the records are
changed.

When I do something like this, I typically will use the WRITE opcode to
redisplay the SFLCTL record without waiting for user input. That way, I

can go ahead and start reading them immediately.


On 9/30/2010 2:18 PM, Florin Todor - YYZ Concord wrote:

Hello,



I have an issue, which, in my opinion shouldn't be an issue at all
because it is pretty straight forward...



Anyway, I have a subfile where I need to check (for ALL records) if a
specific field has a certain value. I do this using CHAIN RRN op-code.
I, also, want to make EVERY record available for the next READC
operation; pretty simple, right? The only problem is it doesn't work!
The READC does not see any "changed" record...



Here is the relevant code:



C sr_chkhaz begsr

/Free

s1rrn = 1;

Dow s1rrn<= 30 and

v_hazfrt = 'N';

Chain s1rrn R010D02;

If %found();

If #DHAZ = 'X' or

#DHAZ = 'H';

v_hazfrt = 'Y';

Endif;

*in37 = *on;

Update R010D02;

*in37 = *off;

Endif;

s1rrn += 1;

Enddo;

s1rrn = 1;

Write R010D03;

/End-free

C endsr



*in37 turns on/off SFLNXTCHG for R010D02 Subfile record:



A R R010D02 SFL

A 37

AO 69 SFLNXTCHG





The excerpt of the main program:



......................................................



C exsr sr_chkhaz

C move *off *in35

C *in35 doweq *off

C readc r010d02 35
<<<<<<----------*in35 is turned *on

C *in35 ifeq *off

........................................................................

.............





Any thoughts?







Thank you





Florin Todor



<mailto:ftodor@xxxxxxxxxxxxxxxx>