Re: DSPF alpha field question -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

evalr = move the field to the right of the field.
%trimr trims blanks from the right side.

Adam West wrote:

Booth, this could be good provide that it does allow for say 55 will not delete the left most.,

--- On Thu, 9/4/08, Booth Martin <booth@xxxxxxxxxxxx> wrote:

From: Booth Martin <booth@xxxxxxxxxxxx>
Subject: Re: DSPF alpha field question
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Date: Thursday, September 4, 2008, 6:17 PM

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

Adam West wrote:

HI I have a 2 pos. alpha field but in reality it is only getting numbers.

I want to prevent them from not hitting the field exit key - eventually this
field will be used as numeric. So if they enter 5 and a blank that is 50 rather
than 05.

I could make it numeric and then back out i suppose but is there a way

besides that?

------------------------------------------------------------------------

No virus found in this incoming message.
Checked by AVG - http://www.avg.com Version: 8.0.169 / Virus Database: 270.6.15/1648 - Release Date: 9/2/2008 5:29 PM

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.