is there an easier way..my brain hurts

[jamief]

~
d howmanyitems    s              4  0 inz(5)         
d howmanylabels   s              4  0                
                                                     
                                                     
 /free                                               
                                                     
  howmanylabels = howmanyitems/4;                    
  if %rem(howmanyitems:4) > *zeros;                  
   howmanylabels +=1;                                
  endif;                                             
  *inlr = *on;                                       
                                                     
 /end-free 

[Red]

Re: is there an easier way..my brain hurts

~
d howmanyitems    s              4  0 inz(5)         
d howmanylabels   s              4  0                
                                                     
                                                     
 /free                                               
                                                     
  howmanylabels = howmanyitems/4;                    
  if %rem(howmanyitems:4) > *zeros;                  
   howmanylabels +=1;                                
  endif;                                             
  *inlr = *on;                                       
                                                     
 /end-free 

Would this do it ?

howmanylabels = (howmanyitems/4 + .999);

[BenThurley]

Re: is there an easier way..my brain hurts

I don't think that last one works (I might be wrong though). Are we always trying to round up? If that's the case then I think the first solution was more explicit.

This is the way I think I would try and do it...

// Adding just a whisker under a half means we always round up
howmanylabels = %IntH((howmanyitems/4)+0.4999); 

[jamief]

Re: is there an easier way..my brain hurts

Thanks guys .... Yes I must round up if there is any remainder at all.

jamie "fridays Rock!" flanary

[B.Hauser]

Re: is there an easier way..my brain hurts

Hi,

yet an other solution:

   Exec SQL  :HowManyLabels = Ceiling(:HowManyItems / 4.0); 

Birgitta

[jamief]

Re: is there an easier way..my brain hurts

Birgitta,

Thanks once again.......Your SQL skills are second to none!

jamie

[B.Hauser]

Re: is there an easier way..my brain hurts

Jamie,

thanks, that turns me always red.

Birgitta

[gcraill]

Re: is there an easier way..my brain hurts

This is my new thing to learn for today

The CEIL or CEILING function returns the "smallest integer value that is greater than or equal to expression".

The FLOOR function returns the largest "integer value less than or equal to expression".

V5R3 SQL references can be seen here

Thanks Birgitta !

GC

[FaStOnE]

Re: is there an easier way..my brain hurts

Birgitta Rocks!