RE: AW: converting system date to integer

Right, all that stuff didn't come into place until V5R2 and then it was fixed
er, I mean "finished up" in V5R3. ;)

<soapbox> This sort of gives points to my argument that IBM needs to stop
enhancing RPG IV on every single release and only do it on a "fixed version"
boundary. That is, all V5Rx enhancements are available on V5R1 and later,
instead of the fragmented way it is being done today. It creates far too much
confusion when people are coding. Can I use this, oh wait that V5R2, how about
this, no that's V5R3, so I'm on V5R1 what do I do? Oh, you have to use "MOVE".
If everything was shipped for V5R1 and later, this wouldn't be an issue. But
hey, some people/customers/pundants feel it is better to "require/force/strongly
encourage" everyone to be on the most current release and punish those you are
not." That's not my view, however. </soapbox>

-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Douglas W. Palme
Sent: Friday, April 14, 2006 9:17 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: AW: converting system date to integer

When I tried the following:

0038.22 C                   EVAL      DTMPDT = %INT(%CHAR(%DATE(): *MDY0))

I get a compile error that says the parameter for %int is not valid, I 
suppose I could break it down by converting the date into a character type 
and then add an additional line to convert it to an integer


On Fri, 14 Apr 2006 15:50:04 +0200, HauserSSS wrote
> Hi,
> 
> did you try the following:
> 
> Release V5R3M0 and higher:
> DateMDY = %Dec(%Date(): *MDY);
> 
> Release V5R2M0
> DateMDY = %Int(%Char(%Date(): *MDY0));
> 
> Mit freundlichen Gruessen / Best regards
> 
> Birgitta
> 
> "Shoot for the moon, even if you miss, you'll land among the stars."
> (Les Brown)
> 
> -----Ursprungliche Nachricht-----
> Von: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Douglas W. Palme
> Gesendet: Freitag, 14. April 2006 15:10
> An: RPG Group
> Betreff: converting system date to integer
> 
> I am in need of converting a system date to a six digit numeric....
> 
> So if the system date is say 04/14/06 I need to convert it to a 
> 041406 numeric type...
> 
> I thought about doing it by using a move statement with *MDY in 
> factor one but I don't believe that will work as I would have to use 
> 10 digits for the date.
> 
> the problem is we have some display files that there is not enough 
> room to allow for a four digit year and I am not prepared at this 
> time to re-write the entire file.
> 
> Suggestions or hints?
> 
> If you bought it, it was hauled by a truck - somewhere, sometime.
> 
> --
> 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.
> 
> -- 
> 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.


If you bought it, it was hauled by a truck - somewhere, sometime.