RE: What do you get when you multiply a number with 1

Rounding? It's doing an Eval with half-adjust.

And renowned people do crazy stuff...

> -------- Original Message --------
> Subject: What do you get when you multiply a number with 1
> From: ganeshkumar.murugesan@xxxxxxxxx
> Date: Wed, February 01, 2006 6:22 am
> To: <midrange-l@xxxxxxxxxxxx>
> 
> Here is a piece of code from my application program. The author of this
> program is a renowned person, who wouldn't do mad things.
> 
> IF        PMTEN = *BLANKS OR PMTEN = '0'   
> EVALH)   WKSLBS0 = ICNWGT * 1             
> EVAL      WRKSLBS = WRKSLBS + WKSLBS0      
> ENDIF                                      
> 
> 
> PMTEN = no. of decimal places (I'm really not sure about this. This
> field is taken from a file)
> WKLBS0 is a 15, 0 packed field
> ICNWGT is a 15, 5 packed field (This field is also taken from a file)
> 
> The question is "why is the author multiplying with 1". What is he
> trying to accomplish?
> 
> 
> Thanks,
> Ganesh
> 
> Exel GFM CM Team,
> Wipro Technologies, Chennai
> PH: +91 044 30691771
> MB: +91 09841289431
> 
> 
> 
> 
> The information contained in this electronic message and any attachments to 
> this message are intended for the exclusive use of the addressee(s) and may 
> contain proprietary, confidential or privileged information. If you are not 
> the intended recipient, you should not disseminate, distribute or copy this 
> e-mail. Please notify the sender immediately and destroy all copies of this 
> message and any attachments.
> 
> WARNING: Computer viruses can be transmitted via email. The recipient should 
> check this email and any attachments for the presence of viruses. The company 
> accepts no liability for any damage caused by any virus transmitted by this 
> email.
> 
> www.wipro.com
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.