× 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.



Are you redisplaying the subfile by using an exfmt (or write and read), to the
subfile control record?
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).
It doesn't sound like you are getting the sfl record on the second try.
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> 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
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: 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 for any subscription related questions.
Paul Therrien
Andeco Software, LLC
paultherrien@xxxxxxxxxxxxxxxxxx

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.