Re: DSPF numeric field editing

[Alan Shore <AlanShore@xxxxxxxx>]

Hi Timothy
I think that this will be the answer to your problem
As soon as an indicator associated with an ERRMSG is switched on, then any
change to the DSPF buffer is basically ignored
You can use debug and you will see that values on the DSPF change AFTER the
index is switched on, but the DSPF display will NOT reflect that
We came across this a couple of years ago. The program acted as if it was
controlled by gremlins
If you look up ERRMSG in the ibm reference manual, this is as designed.
I hated it
We have since changed that program to use a message file instead, which was
NOT a small project, but now that its complete - NO GREMLINS and things are
displayed as expected


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill


                                                                       
             "Timothy Adair"                                           
             <tadair@prairiefa                                         
             rms.com>                                                   To
             Sent by:                  midrange-l@xxxxxxxxxxxx         
             midrange-l-bounce                                          cc
             s@xxxxxxxxxxxx                                            
                                                                   Subject
                                       DSPF numeric field editing      
             02/08/2010 11:26                                          
             AM                                                        
                                                                       
                                                                       
             Please respond to                                         
             Midrange Systems                                          
                 Technical                                             
                Discussion                                             
             <midrange-l@midra                                         
                 nge.com>                                              
                                                                       
                                                                       




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.