RE: Subfile processing question

Just another opinion here...

Typically, I will only copy/use the output record because all of
my fields are setup as (B)oth. For those fields that need to be
display only, I will set them to be protected. In all cases, the
MDT tag will always be set.

R M3SFL SFL
SFLNXTCHG
M3OPT 1 B 8 2
DSPATR(MDT CS)
61 COLOR(RED)
63 DSPATR(PC)
M3WADOCO 8 B 8 72
DSPATR(MDT CS)
DSPATR(PR)
CHGINPDFT

Some folks may call this overkill because there is additional
overhead involved passing the information and attributes over
the network, but in todays world this is -minimal- compared to
web browsing :)

The benefit is that you always get all of the fields returned to
you...whether you choose to use them or not is up to you.

As far as cursor positioning, before calling another program,
save your RRN and restore it after the call. I usually retrieve
the current RRN from the I-O feedback area.

Define it in your display file:

M3RRN 4S 0H SFLRCDNBR(CURSOR)

Define a variable to hold the current RRN:

05 Save-RRN pic s9(05) value +0.

Retrieve the display attributes from the I-O feedback area
right after you read the control file record:

accept ioa-area from if-area for MyDSPF

Then save the RRN, call the program and restore your RRN
before resending the control record:

compute Save-RRN = ioa-crnt-rrn
Call PGMB
compute M3RRN = Save-RRN

If you would like a copy of the I-O feedback area in a
COBOL copybook form...send me an e-mail.

Terry


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Roy
Sent: Thursday, July 21, 2016 7:09 AM
To: Midrange Systems Technical Discussion
Subject: 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

Confidentiality Notice: The preceding e-mail message (including any attachments) contains information that may be confidential, protected by applicable legal privileges, or constitute non-public information. It is intended to be conveyed only to the designated recipient(s). If you are not an intended recipient of this message, please notify the sender by replying to this message and then delete it from your system. Use, dissemination, distribution or reproduction of this message by unintended recipients is not authorized and may be unlawful.