RE: Subfile processing question

it has been mentioned by at least one other person that when you read the
subfile record the modified data tag is set off so a READC will not find the
record the next time around.
So on the first read of the subfile record you need to set the SFLNXTCHG
indicator on and update the subfile record.
Then the next time you execute the readc you will again find that subfile
record.

On July 15, 2016 at 1:07 PM "Stone, Joel" <Joel.Stone@xxxxxxxxxx> wrote:






From: paultherrien [mailto:paultherrien@xxxxxxxxxxxxxxxxxx]
Sent: Friday, July 15, 2016 12:05 PM
To: Stone, Joel <Joel.Stone@xxxxxxxxxx>; Midrange Systems Technical
Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Re: Subfile processing question



Are you redisplaying the subfile by using an exfmt (or write and read), to
the subfile control record?



*yes*







When you fetch the subfile record, how are you fetching it? Are you chaining
with a record number? Or are you doing a readc (i am not certain what the
equivalent is in cobol).



Readc (COBOL equicalent)





It doesn't sound like you are getting the sfl record on the second try.



Correct. Any idea why not? Is it required to reset the SFL cursor to the
top prior to READC or something similar?



Thanks



On the 2nd read are you testing for 'not found' or ;end of file' on the
subfile read.




> On July 15, 2016 at 12:48 PM "Stone, Joel" <Joel.Stone@xxxxxxxxxx
> <mailto:Joel.Stone@xxxxxxxxxx> > wrote:
>
>
> In pgmA, I am presenting a subfile with only the OPTION field
> input-capable.
>
> If user selects a record by keying "5" into the OPTION field, then I call
> pgmB to display it.
>
> When control returns to pgmA, I am not able to repeat the above.
>
> I put the pgm into debug, and any record selected from the subfile with an
> option 5 does nothing, ie the subfile continues to display and ignores the
> option 5.
>
>
> Its cobol, but don't let that scare you. Should be the same as RPG.
>
> In the SFL pgmA, I am looping thru a READ NEXT MODIFIED to grab the next
> changed SFL record.
>
> Using STRDBG, the OPTION field that should contain '5" shows only blank.
>
>
>
> When pgmB returns to pgmA, do I have to somehow reset the SFL cursor back
> to the top? Or something else?
>
> Thanks in advance!
>
>
> when key-ENTER-pressed
> perform select-entry until EOF-SFL
>
> ...
>
>
>
>
> select-entry.
> read subfile DISPLAY-FILE next modified
> format is 'SFLX'
> indicators are ws-screen-indicators
> at end
> set EOF-SFL to true
> not at end
> move link-userID to parm-userID
> move SITE of SFLX-o to parm-site
> move CSCTYPE of SFLX-o to parm-csctype
> move CSC-N of SFLX-o to parm-csc-n
>
> evaluate scr-opt of SFLX-o
> when '5'
> move space to scr-opt of SFLX-o
> move 'N' to parm-update
> call 'CMP702' using parm-key
> end-evaluate
> rewrite subfile DISPLAY-rec
> format is 'SFLX'
> indicators are ws-screen-indicators
> end-rewrite
> end-read
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> <mailto:MIDRANGE-L@xxxxxxxxxxxx>
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> <mailto:MIDRANGE-L-request@xxxxxxxxxxxx>
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx <mailto:support@xxxxxxxxxxxx> for any
> subscription related questions.

Paul Therrien
Andeco Software, LLC
paultherrien@xxxxxxxxxxxxxxxxxx <mailto:paultherrien@xxxxxxxxxxxxxxxxxx>

Paul Therrien
Andeco Software, LLC
paultherrien@xxxxxxxxxxxxxxxxxx