Re: blanks between numbers filled with zeros

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 04/04/2016 03:16:37
PM:

----- Message from Darren Strong <darren@xxxxxxxxx> on Mon, 4 Apr
2016 15:06:16 -0400 -----

To:

"midrange-RPG RPG message board" <rpg400-l@xxxxxxxxxxxx>

Subject:

blanks between numbers filled with zeros


We have a number of screens, that display the current transaction that

will

occur, allowing users to modify the value. Sometimes they enter a

number

at the left and the blanks are filled with zeros, making for a huge

number.

Is there a way to prevent this from happening at the DDS level? Ideally,

I

think I'd like the system to say, "That's not a valid number, with those
spaces there."

BEFORE:
4 32.56
3 50.00

AFTER:
4000000000032.56
3000000000050.00

I usually use CHECK(FE) which pretty much enforces a Field-exit. I say
"pretty much" because they can still tab out of the field. But I've had
better success by coding the CHECK(FE). I believe the problem isn't really
in the coding for your display file, but in the way the 5250 data stream
handles the data--it's been a while since I researched this issue.

Michael Quigley
Computer Services
The Way International
www.TheWay.org