Re: Using %editc()

[Peter Levy <plevy@xxxxxxxxxxxx>]

Or one could create a zoned field that is based on the character field:

    D HSISN3Z         s              3s 0 based(HSISN3ZPtr)
    D HSISN3ZPtr      s               *   inz(%addr(HSISN3))

      HSISN3Z += 1;


Johnny Johnson wrote:
> I believe Peter is somewhat correct...try splitting it.
>
> D int3            s           3i 0
>
> int3   = %int(HSISN3) + 1;
> HSISN3  = %editc(int3 :'X');
>
>
>
>
>
>
>                                                                            
>              Peter Levy                                                    
>              <plevy@xxxxxxxxxx                                             
>              om>                                                        To 
>              Sent by:                  RPG programming on the AS400 /      
>              rpg400-l-bounces@         iSeries <rpg400-l@xxxxxxxxxxxx>     
>              midrange.com                                               cc 
>                                                                            
>                                                                    Subject 
>              11/21/2006 10:33          Re: Using %editc()                  
>              AM                                                            
>                                                                            
>                                                                            
>              Please respond to                                             
>               RPG programming                                              
>               on the AS400 /                                               
>                   iSeries                                                  
>              <rpg400-l@midrang                                             
>                   e.com>                                                   
>                                                                            
>                                                                            
>
>
>
>
> Just off the top of my head I'm guessing that the %INT() BIF outputs a
> binary integer that is probably a ten digit number. %EDITC() probably
> outputs a temporary value that is ten characters in length and when you
> EVAL it to a three character field it gets cut off. You could try using
> EVALR.
>
> Don Wereschuk wrote:
>   
> > 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.
>
>
>
>