Re: evalr pad 0

Lim,

 This should work for you:

evalr char10 = %editc(num3 :'X');
char10 = %xlate(' ': '0': char10) ;

 -mark

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.