Re: current best practice" packed/11/4 to char/5

If you need to cope with the possibility of numbers > 99 and want to keep the rightmost digits then use EvalR instead of the default Eval action.

Another way to do it would be like this:

Dcl-ds convertIt;
elevenFourZ zoned(11:4);
twoDigits char(2) Pos(6); // Low order integer digits of number
End-ds;

elevenFourZ = elevenFourP;

// twoDigits now has the required digits.

This is absolutely the fastest method but less obvious.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On May 23, 2019, at 4:53 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

%int(). ah, yes. Glad I asked. Knew about %int() yet I didn't connect the dots. Thank you,

As to the decimal places: The same conversation that "guaranteed" it'd never be over 99 also assured me there'd never be fractional quantities, We had > 99 within 72 hours; I am going with truncating and no leading zeros.

%char(%int()) it shall be then.

Thank you Jon.


On 5/23/2019 9:41 AM, Jon Paris wrote:

twoDigitChar = %Char(%Int(ellevenFour));

Would be one approach. But should the decimals round or just be truncated? What do you want if the number is (say) 0.1234 - do you want the zero or blanks? If there is only one significant digit do you want leading zero or blanks? Or perhaps a single digit number should be left aligned in the char field.

Can't talk to "best practice" without an adequate spec Booth.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

--
Booth Martin
www.martinvt.com
(870)576-9371
(802)461-5349

No one is talking behind your back as far as you know.
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com