RE: Date * 10000.01

["Stone, Brad V (TC)" <bvstone@xxxxxxxxxxxxxx>]

> -----Original Message-----
> From: Michael Calabro/commsoft [SMTP:mcalabro@commsoft.net]
> Sent: Wednesday, November 18, 1998 8:36 AM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: Date * 10000.01
> 
> 
> 
> 
> >Someone posted a multiplier that can be used to change an 8,0 
> >date from mdy to ymd and vice versa using the same multipier. 
> >I can not find that, and was hoping someone could re-post it. 
> >This is just a huge help for programs that are not yet converted 
> >to RPG1V.
> 
> Angie,
>   May I respectfully suggest that you use a data structure and MOVE?
> Here's a data structure that I've settled on:
>      I           IDS 
>      I                                        1   80@YMD8 
>      I                                        1   40@YR 
>      I                                        3   40@YYYMD 
>      I                                        3   80@YMD6 
>      I                                        5  100@MDY6 
>      I                                        5  120@MDY8 
>      I                                        5   60@MM 
>      I                                        7   80@DD 
>      I                                        9  100@YYMDY 
>      I                                        9  120@Y4MDY 
>      C* Convert MMDDYY date to YYMMDD 
>      C                     MOVE wrkmdy    @MDY6 
>      C                     MOVE @YYMDY    @YYYMD 
>      C* Convert YYMMDD date to MMDDYY 
>      C                     MOVE wrkymd    @YMD6 
>      C                     MOVE @YYYMD    @YYMDY 
>      C* Convert MMDDYYYY date to YYYYMMDD 
>      C                     MOVE wrkmdy8   @MDY8 
>      C                     MOVE @Y4MDY    @YR 
> 
        [And Brad Said:]  ARGHH!!!! TOO MANY @s!!!!!!!!  :)

> Buck Calabro
> CommSoft, Albany, NY
> mailto:mcalabro@commsoft.net
> 
> 
Bradley V. Stone
Taylor Corporation - OASIS Programmer/Analyst   
bvstone@taylorcorp.com

>  
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---