Re: RPG III

[Joep Beckeringh <joep@xxxxxxxxxxxxxxxxxxx>]

Douglas,

> ... that I am not permitted
> to convert to ILE.

There's your problem. So tell the one responsible: "Give me a day and 
I'll write my own conversion routine in RPG (and make sure you test it 
carefully, because I never wrote such a routine before). Or give me ten 
minutes; five to convert to RPG IV and another five to use the well 
tested functions %INT en %TRIM to convert it."

Joep Beckeringh



Douglas Palme wrote:
> I am in the process of modifying an RPG III program that I am not permitted
> to convert to ILE.
>
>  
>
> One of the fields is a 10 character field that only contains numeric numbers
> and will never have more than seven digits..I know I could change the field
> length to 7 but I was told no to that as well as it might blow up other
> programs.
>
>  
>
> Here is the delimna, I need to move the value to a 7 digit numeric.  It is
> possible that it can have anywhere from 1 to seven digits.
>
>  
>
> Example:
>
>  
>
> '116769    ' - Charcter value
>
>  
>
> I have a new field defined as 7,0
>
>  
>
> When I do a move on it it shows up as 1167690 and a movel gives me 7690000.
>
>  
>
> Suggestions? Hints?  Converting it is not an option.
>
>  
>
> Douglas
>
>  
>
>
>
> ****************************************************************************
> This transmission may contain information that is privileged,
> Confidential and/or exempt from disclosure under applicable law.
> If you are not the intended recipient, you are hereby notified that
> any disclosure, copying, distribution, or use of the information
> contained herein (including any reliance thereon) is STRICTLY
> PROHIBITED. If you received this transmission in error, please
> immediately contact the sender and destroy the material in its
> entirety, whether in electronic or hard copy format. Thank you.
> ****************************************************************************