Subfiles For Data Entry 1

[Skittle]

I have created a load all subfile for data entry.
The subfile is set to SFLINZ and SFLRNA so I have lots of empty records the user can fill in.

Any records a user enters can be validated in a READC loop. Each subfile record in error is updated with an indicator set on to switch on a reverse image (RI) and position cursor (PC) state to the subfile record. This allows me to then redisplay the subfile with all invalid records highlighted and the cursor placed on the first record in error.

The problem is that this doesn't work over a number of pages. If the user has entered an invalid record on pages 1 and 2, the cursor is positioned to the error record on page 2. Really it should position to the record in error on page 1.

I figure I can get round this by setting the SFLRCDNBR
to the first record in error. This will then show the page where the first error record is sitting.

....But how can I grab the relative record number of a subfile record from a READC operation so I can store it and assign it to the SFLRCDNBR record number when the subfile is displayed for the second time?

 

[SunithaV]

FDISPLAY CF E WORKSTN
F RRN KSFILE SFLRCD
F KINFDS ###DSP
I###DSP DS
I *STATUS DSPSTS
I B 378 3790@SFLRN

@SFLRN has the RRN of the READC

 

[Skittle]

Thanks. Much appreciated.