RE: Using %editc()

Michael:   Thanks for the help. Using %DEC() worked. I did have the
variable defined as a 3 character field and I was using a temp.
intermediate variable using %int() but then when converting the temp. to
the character field I had to start calculating the length and
concatenating '0's. I knew I could do it all in 1 step using %editc(),
just used the wrong bif.

 Thanks again to all the replies. There's always 101 different ways of
doing any 1 thing when programming and I appreciate all the methods
everyone posted.

******************************************
Don Wereschuk
ISD  - Programmer/Analyst
Simcoe Parts Service Inc.
Phone:   705-435-7814          Ex: 302
Fax:         705-435-6746
mailto:dwereschuk@xxxxxxxxxxxxxxx
******************************************
 "Save the Cheerleader - Save the world"  - Hiro Nakamura
-----Original Message-----
From: Michael_Schutte@xxxxxxxxxxxx [mailto:Michael_Schutte@xxxxxxxxxxxx]

Sent: Tuesday, November 21, 2006 11:32 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Using %editc()


It seems that it's getting truncated.  Try using
%EditC(%Dec(HSISN3:3:0)
+ 1:'X');



Ciao!
Michael Schutte
Classic Italian dishes with a Bob Evans Twist - Enjoy our new Homestyle
Pastas!


rpg400-l-bounces@xxxxxxxxxxxx wrote on 11/21/2006 11:25:31 AM:

Hi All:   I'm trying to use %editc() to add 1 to a 3 character field

but

it is not working quite right. I just can't see what I am doing wrong.



The code is as follows:



                            HSISN3 = %editc((%int(HSISN3) + 1):'X');



HSISN3 is defined as 3 character. The initial value is '001'. I was
hoping after the calc that the value would be '002'. Instead I get
'000'.



The program is compiled as *ZONED. Can anyone help?   TIA



******************************************

Don Wereschuk

ISD  - Programmer/Analyst

Simcoe Parts Service Inc.

Phone:   705-435-7814          Ex: 302

Fax:         705-435-6746

mailto:dwereschuk@xxxxxxxxxxxxxxx

******************************************

"Save the Cheerleader - Save the world"  - Hiro Nakamura



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.