RE: problem with hidden field in subfile

The only scenario I can envisage that would cause your symptoms is that
you are inadvertently using an old version of the screen that doesn't
include the hidden field.

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of dale janus
Sent: Tuesday, June 25, 2013 9:37 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: problem with hidden field in subfile

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