Re: DSPF alpha field question

----- Original Message -----
From: "Scott Klement" <rpg400-l@xxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Subject: Re: DSPF alpha field question
Date: Thu, 04 Sep 2008 14:44:51 -0500




Booth Martin wrote:

Could you let them enter 5 & blank and then when you read the
screen, do an evalr ScrField = %trimr(ScrField) ?

Or better yet, do:

monitor;
evalr ScrField = %editc(%dec(ScrField:2:0):'X');
on-error;
// ScrField isn't a valid number,
// take appropriate action.
endmon;

This converts it to a numeric field, then converts it back to a
character field. If they typed '5 ' it'd return '05'. If they typed
'55' it'd return 55. If they type 'AB' it'd detect that the field isn't
a number.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.