Re: Subfile processing question

Hello,
I have not used COBOL for a long time but from what I remember (should be
in the 80's...) when you write the subfile you use the output buffer
(suffixed -O) and when you read it you use the input one... (suffixed -I)

so I have not seen your full listing and the declarations but I would try

evaluate scr-opt of SFLX-i
,
Paul









Paul Roy

paul.roy@xxxxxxx
+352 621 256 810
+32 477 971 925

REAL Solutions S.A.
33, rue d'Eich
L-1461 Luxembourg

real.lu





This email and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed. If
you have received this email in error please notify the system manager.
Please consider the environment before printing this e-mail.




From: "Stone, Joel" <Joel.Stone@xxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>
Date: 15/07/2016 18:48
Subject: Subfile processing question
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>



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