Re: problem with hidden field in subfile

[Booth Martin <booth@xxxxxxxxxxxx>]

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