Re: Half-Adjust with /free

[michaelr_41@xxxxxxxxxxxxxx]

Thanks Raul...

On Tue, 22 Jun 2004 10:47:32 -0400, "Raul A Jager" <raul@xxxxxxxxxx>
said:
> I think eval can not be ommited if you want half adjust:
> 
> eval(h) a = b + c;
> 
> You can also use %dech or justa add 0.5, like this
> 
> a = b + c + 0.5;
> 
> michaelr_41@xxxxxxxxxxxxxx wrote:
> 
> >I can't believe I haven't encoutered this yet. How does one perform
> >half-adjust when using free format?
> >
> >/free
> >  a =(H) b + c;
> >
> >doesn't seem to work. Do I need to do a %DECH or something?
> > 
> >  
> >
> 
> 
> --
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx