Re: problem with hidden field in subfile

I wonder if, just until the problem is solved, if would change results if you changed the window width to 45 and showed the field? Nothing should change of course, but the process might hold a surprise for you.

(Of course, I would change the width to 48 and I'd add SFLEND(*SCRBAR). Just to see it, don't cha know.)

On 6/25/2013 8:36 AM, dale janus wrote:

I am missing something with a hidden field in a subfile. This in an
enhancement to an old program, so it is fixed format with a mix of coding
styles.

The application displays a subfile screen with about 15 records. The user
chooses one by cursor position and presses enter.
Initially, all the program needed was the field GRDESC. Now I need a
second field, GRALLY.
I added GRALLY , a hidden field, as seen in the A specs. The field will
be either blank or Y.

When I read the subfile, the last record in GRDREC has the Y in GRALLY.

My rpg code chains to the subfile (in this case record #1). It retrieves
the correct GRDESC and the corresponding field GRALLY should be blank.
Instead it is keeping the value Y from the last record read from GRDREC
when I filled the subfile.

When debugging, each read of GRDREC that loads the subfile shows the
correct value for each record. It's on the subsequent read of the
subfile control I have a problem. Somehow my read only gets the first
field, not the hidden field.





A R SFDRM3 SFL
A TEXT('subfile for quote')
A*
A GRDESC R O 1 2REFFLD(GRDREC/GRDESC SPC5LI
A GRALLY R H REFFLD(GRDREC/GRALLY SPC5LI





C EXFMT SFDRMCT3
C*
C WINCUR IFGT 0
C WINCUR CHAIN SFDRM3 99
C MOVE GRDESC QTDESC
C eval wkaloy = GRALLY




I don't think the problem is in the control record, but here it is:

A R SFDRMCT3 SFLCTL(SFDRM3)
A TEXT('subfile control quote
A N89 ROLLUP(86 'roll up')
A N88 ROLLDOWN(87 'roll down')
A INDTXT(80 'subfile display'
A INDTXT(81 'subfile control
A INDTXT(82 'initialize subfi
A INDTXT(83 'delete subfile')
A INDTXT(84 'clear subfile')
A INDTXT(85 'subfile end')
A OVERLAY
A SFLCSRRRN(&WINCUR)
A 80 SFLDSP
A 81 SFLDSPCTL
A 82 SFLINZ
A 83 SFLDLT
A 84 SFLCLR
A SFLSIZ(0040)
A SFLPAG(0010)
A 88 SFLMSG('Beginning of file h
A reached. Press reset.' 88)
A 89 SFLMSG('End of file has bee
A d. Press reset.' 89)
A WINDOW(10 3 13 40)
A WDWTITLE((*TEXT 'GRADE. PAG
A WINCUR 5S 0H