Re: validate & update of subfile

[Booth Martin <booth@xxxxxxxxxxxx>]

Some good responses.  Thanks.   Yes, it is a load-all subfile.

My issues arise when there is an error in a code in column I.  I want to 
send a subfile message and RI the invalid field(s).    That works OK.
However it does not allow a a change in the field in the Control Record, 
so far as I can see?



Alan Shore wrote:
> Hi Booth
> I believe what you want to do IS possible.
> It would have to be a load-all subfile
> You would need to load ALL the data and then just PRIOR to the exfmt, read
> ALL the subfile records (by rrn) from beginning to end to accumulate column
> II, storing this value in the control record.
> Then perform this routine AGAIN AFTER the EXFMT to re-accumulate column 2.
> If this is different than the one before, loop back to the EXFMT with the
> SFLMSG
>
> I realize that the program will be a little more complicated than that, but
> that's the basic logic
>
>
>
> Alan Shore
> Programmer/Analyst, Distribution
> E:AShore@xxxxxxxxxxx
> P:(631) 200-5019
> C:(631) 880-8640
> "If you're going through Hell, keep going" - Winston Churchill
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/29/2009 12:56:40 PM:
>
>   
> > I believe what I want to do is not possible however I am wrong so often
> > I decided to ask here.
> >
> > I have a subfile with two editable columns.
> > I wish to validate that each code in column I is valid.
> > I wish to total the numeric values in column II and display the total of
> > column II in a field on the Control Record
> >
> > If the user keys an invalid code in column I _and_ changes values in
> > column II I would like to issue a SFLMSG, highlight the erroneous field,
> > _and_ change the column II total on the Control Record.
> >
> > Reasonably possible?
> > --
> > This is the RPG programming on the IBM i / System i (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.
> >
> >