Re: Chain and Readc

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

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>