Re: Still having a problem with windowed subfile

Ah.  Ok.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Douglas W. Palme" <dpalme@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2006/01/12 03:00 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Still having a problem with windowed subfile






Actually it appears that I did not have the KEEP turned on for the DDS so 
each pass it was losing the info.....I had tried writing out the existing 
data before and that did not make any difference...I saw where you were 
going and I agreed....but so far it appears the problem had nothing to do 
with the program, it was all DDS related.


This will be one lesson I won't forget soon.


On Thu, 12 Jan 2006 14:44:41 -0330, RPower wrote
> Did my suggestion work or no?
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
> 
___________________________________________________________________________
> Success is going from failure to failure without a loss of 
> enthusiasm. - Sir Winston Churchill
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/01/12 02:37 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> 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.
> 
> -- 
> 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.
> 
> -- 
> 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.