Re: Still having a problem with windowed subfile

Step 6 is for subfile B not A


On Thu, 12 Jan 2006 11:48:06 -0600, Booth Martin wrote
> I prefer for/endfor loop over readc.  You don't get caught with 
> sflnxtchg issues(which I suspect may be the heart of your problems 
> in this instance).
> 
> I wonder... how do you know which subfile record wants the result of 
> the F4 action?  Are you using cursor positioning to know?  If you 
> are using readc, then what is the change to the subfile record that 
> causes the readc indicator to be turned on?
> 
> Also, since you are discovering the subfile record to update at step 
> 3 why are you doing step 6?  READC in step 6 will not fetch the same 
> record because it is no longer a changed record, in fact step 6 
> probably won't fetch any record since you only changed one record.
> 
> Douglas W. Palme wrote:
> > I am still having a problem with overwriting subfile A after receiving a 
> > selection from subfile B (windowed subfile).
> > 
> > Here are the steps I am going through:
> > 
> > 1. Load subfile A wth one blank record, it has among others a numeric 
field 
> > for date, ref, GL account no, etc.
> > 
> > 2. Enter into loop and EXFMT subfile A to await user action.
> > 
> > 3. READC on subfile A after user makes a selection
> > 
> > 4. IF user selects F04 (*IN04 coded as CF04) we EXSR LOADCA which will 
load 
> > subfile B.
> > 
> > 5. Display subfile B and await user selection
> > 
> > 6. Upon return execute a READC to check for any user selections.
> > 
> > 7. Chain to subfile A based on the RRN and then move the new GL account 
> > number to the appropriate field on subfileA
> > 
> > 8. update subfile A.
> > 
> > 9. Control now drops all the way back to the main procedure which loops 
back 
> > to EXFMT subfile A.
> > 
> >>From what I can tell in theory everything should work, but when it 
> > redisplays subfile A it blanks out all fields with the exception of the 
GL 
> > account number.
> > 
> > Suggestions? Hints? Tell me to change jobs? :)
> >
> 
> -- 
> -----------------------------------
> Booth Martin
> http://martinvt.com
> -----------------------------------
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
>  mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To 
> subscribe, unsubscribe, or change list options, visit: 
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to 
> review the archives at http://archive.midrange.com/rpg400-l.


If you bought it, it was hauled by a truck - somewhere, sometime.