Re: evalr pad 0

Try the following

   evalr char10 = '0000000' + %editc(num3 :'X');
   *inlr = *on;

What I THINK is happening with your code is that you are first filling your
10 character field with 10 zeroes, and then concatenating the rest past the
end of the 10 character field.



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx

rpg400-l-bounces@xxxxxxxxxxxx wrote on 11/15/2006 09:47:27 AM:

Question 1: just curious as why compiler would give me this error below?
   *RNF7421 30      5 000500  Operands are not compatible with the type
of operator.

D num3            s              3  0 inz(123)
D char10          s             10
 /free

   evalr char10 = *all'0' + %editc(num3 :'X');
   *inlr = *on;

 /end-free



Question 2: Without hardcode length of any field, anybody know of an
easier way to evalr without pad blank on the left ()?
  Below is what I came up with and they are kind of ugly:
  %subst(char10
        :%len(char10)-%len(num3)+1
        :%len(num3)) = %editc(num3 :'X');

or

  char10 = %subst(char10:1:%len(char10)-%len(num3)) +
           %editc(num3 :'X');

--
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.