Re: date(8) * 10000.0001

[Vince Lazzaro <vincelaz@xxxxxxxxxxxxxx>]

Robin,

This technique has been published in the various AS400 journals in the
past, and if you had taken notice of these articles you would have realized
that this technique is stronly discouraged, as this calculation causes on
overflow exception when processing, thus slowing down any RPG program by at
least 10 times, if that is acceptable, then by all means code your programs
as such, I hope I never come accross them.
If you were using LANSA this would not be required as virtual date fields
are used to take care of such scenarios.


Vince





At 10:13 AM 11/18/98 -0500, you wrote:
>
>I think this is right.. just off the top of my head.. ..
>
>If i remember correctly the number of 0 total to one less than the digits in 
>the date and the  number of dec.. decides how
>much is to be moved.... also the number of 0's before the dec is the number 
>to not move.. then you move right into a
>8.0 field.. which will truncate the leading numbers and the dec numbers.. 
>hope this helps...  
>
>
>
>                                           12141998
>                                X     10000.0001
> ----------------------------------------------
>                                           12141998
>                         121419980000000
> ---------------------------------------------  which equals
>                     121419981214.1998  
>moved into a 8.0 field.. will equal.... 19981214
>
>Robin...
>FMU..
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *