Re: RPG III

[Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx>]

I had forgotten how many hoops we used to have to jump through to do 
really simple things like this.

Wayne McAlpine wrote:
> It doesn't normally but what you're concatenating is the result field 
> VAR10R (all blanks) with VAR10 ('116769    ').  With the blanks extender 
> specified (variable L with a value of 4), you wind up with four leading 
> blanks in VAR10R ('    116769') and that works with the MOVE.
>
> jstevens@xxxxxxxxxxxxxx wrote:
> > AHH!!
> >
> > Now that looks like it'll work.  And, much cleaner than the Array method.
> >
> > Wayne,  I didn't know that the CAT did a Right Justification?
> >
> >
> > Jeff Stevens
> > Mize, Houser & Co. P.A.
> > 913 451 1882
> > JStevens@xxxxxxxxxxxxxx
> >
> >
> >
> >
> >
> > Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx> Sent by: 
> > rpg400-l-bounces@xxxxxxxxxxxx
> > 02/08/2007 03:19 PM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> >
> >
> > To
> > rpg400-l@xxxxxxxxxxxx
> > cc
> >
> > Subject
> > Re: RPG III
> >
> >
> >
> >
> >
> >
> > 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.
> > ****************************************************************************