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

I never cry in admiration, I'm too busy duplicating the idea.

Imagine divides by 10 in a loop to move the decimal place to the left and
multiplies by 10 in a loop to move it to the right.

There are at least three ways to improve this technique that have been
available for more than 10 years.  (1) Move numeric to character then
character to numeric.  (2) There exists a MI instruction that shifts the
decimal.  (3) We could also do it with data pointers - if anyone remembers
them.

Before ILE, calling an external MI program to do this is too expensive.  I
tried to get the IBM Toronto people to give us a built-in RPG language
function.  There is also instruction "copy external form to numeric" to
convert character values to numeric values that could have been used instead
of the RPG numeric scrub that I mentioned.  No deal.  And I couldn't get JDE
to convert their code to ILE so there it sits.

Richard Jackson
mailto:richardjackson@richardjackson.net
www.richardjacksonltd.com
Voice: 1 (303) 808-8058
Fax:   1 (303) 663-4325

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Peter Dow
Sent: Tuesday, July 11, 2000 10:56 PM
To: MIDRANGE-L@midrange.com
Subject: Re: DDS screen: how to ensure field keyed is numeric for
alpha-descri bed field


Hi Richard,

Don't leave us in suspense! Tears of admiration or disgust? What's the
trick?

Curious<G>

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

From: Richard Jackson

> Before display, they move the numeric field into an array, insert the >
editing, then move it to the character display field.
> Any you performance types wondered why JDE used so many cycles :)  The >
trick used to perform decimal alignment still brings tears to my eyes.



__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
+---
| 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
+---

+---
| 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
+---