Re: DDS screen: how to ensure field keyed is numeric for alpha-descri bed field

At 11:23 07/11/2000 , Joel Stone wrote:

>Our database cust# is an alpha field, but we only want to allow numeric 
>entries into the field.
>What is a good way to ensure data keyed into a field is numeric using DDS 
>screens?
>I can't chain to the cust file in some cases because ranges are allowed, 
>for example two fields exist on the screen to key a start cust# and an end 
>cust#.
>Also, I dont want to allow an entry such as "0   0   0" (problem, spaces 
>in between).
>What is the simplest way to accomplish this?

Well, in RPG, you could use the XLAT(e) op code to convert to convert 
spaces to zeros and test the result:

   C    ' ':'0'    xlate    DspField      TestField
   C               if       TestField = *ZEROS
   C               .....
   C               endif

hth
Pete


Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---