Re: RPG III

[Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx>]

Sorry the code came out garbled.  Trying again:

C           ' '       CHEKRVAR10     LEN     40
C           10        SUB  LEN       L       40
C                     CAT  VAR10:L   VAR10R 10
C                     MOVE VAR10R    VAR7    70


Wayne McAlpine wrote:
> You need a right-adjusted character field to move to your numeric field.
> If the number of digits can vary, you will need to get the length of the 
> string of digits first.  This code will do what you want:
>
> >  C           ' '       CHEKRVAR10     LEN     40    C           
> > 10        SUB  LEN       L       40    C                     CAT  
> > VAR10:L   VAR10R 10     C                     MOVE VAR10R    VAR7    70   
>
>
>
>
> 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.
> > ****************************************************************************