Re: DSPF numeric field editing

["Timothy Adair" <tadair@xxxxxxxxxxxxxxxx>]

I ran across that within ten minutes of my original post.  Sorry, I should 
have just kept digging.  Sometimes when the problem is very frustrating, the 
brain cells start bailing out on you.

Thank you,

TA



"Bruce Vining" <bvining@xxxxxxxxxxxxxxx> wrote in message 
news:mailman.7066.1265647540.2580.midrange-l@xxxxxxxxxxxxxxx
> The Information Center provides the following text (and quite a bit more)
> when discussing the ERRMSG keyword:
>
> When a message is displayed because of either the ERRMSG or the ERRMSGID
> keyword, all fields on the display are kept, including the field the 
> message
> is associated with. Except for option indicators, data in the output 
> buffer
> is ignored (that is, any new data from the program is not sent to the
> display).
>
> So it would appear that a whole lot more than just editing is bypassed 
> when
> ERRMSG is in effect.
>
> On Mon, Feb 8, 2010 at 10:21 AM, Timothy Adair 
> <tadair@xxxxxxxxxxxxxxxx>wrote:
>
> > I've searched the archives but have been unable to find any previous
> > reference to this issue.
> >
> > I have a DSPF with a numeric field (11,4) where the user is allowed to 
> > key
> > in a number with or without a decimal point.  If they key in a decimal
> > point, then the program takes that number as the actual value.  If not,
> > then
> > the program assumes 4 decimal places and divides the entered number by
> > 10,000.  (Please don't ask why - I've fought that battle and lost.  Yes 
> > our
> > users are still in the dark ages.)
> >
> > So far, so good.
> >
> > Let's say they key in the number "2" and press Enter.  The program will
> > assume four decimal places and divide by 10,000.
> >
> > So far, still good.
> >
> > If there are no errors or messages, the program will go back to the first
> > screen and allow the user to select another record to be updated.  But if
> > there is an error or message (my message, not system message) the program
> > loops around and does another EXFMT and the number shows up exactly as 
> > they
> > keyed it in, ignoring any editing, even though the value is correct
> > (0.0002,
> > verified in Debug).  I've tried an edit code and an edit word - neither
> > works.
> >
> > Is there some kind of quirk with a numeric display field that ignores any
> > editing if there's an ERRMSG on?
> >
> > Here is the field DDS:
> >
> > A            FUTPRC        11Y 4B 14 28COMP(GE .0000)
> > A                                      DSPATR(PC)
> > A                                      EDTWRD('0      .    ')
> > A  41                                  ERRMSG('Price Below Cost.  Press 
> > F5-
> > A                                       to override.' 41)
> > A  42                                  ERRMSG('No Cost Available' 42)
> > A  49                                  ERRMSG('Both fields are required' 
> > 4-
> > A                                      9)
> > A  40                                  ERRMSG('Abnormal price - press 
> > ENTE-
> > A                                      R to accept.')
> > A  40                                  COLOR(RED)
> >
> >
> > Please help...  I now have a dent in my wall, and a headache.
> >
> > TIA,
> >
> > Tim
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
> > list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
>
>
> --
> Regards,
> Bruce
> www.brucevining.com
> www.powercl.com