Re: ILE - Date Substraction

John,
              Thanks.  Excellent. Let me give this a try.  I  hope this
will solve my problem.  If this realy works, then  I am going to delete one
of the real messed up subroutines on our almost 25+ of the old RPG
programs,  which is giving me a  real head ache on the maintenence.

Thanks for  Mr. Joel Fritz and all of them who helped me  on this

Regards

rAj







John Hall <jhall@hillmgt.com> on 03-25-99 03:39:45 PM

Please respond to MIDRANGE-L@midrange.com

To:   MIDRANGE-L@midrange.com
cc:    (bcc: Rajan Srinivasan/Servicing/SuperiorBank)
Subject:  Re: ILE - Date Substraction




If your current date is the last day of the month and you want the last
day of the previous month you can do the following

Add 1 day to your date
subtract 1 month
subtract 1 day
or you can set the day portion of your month to 01 and subtract 1 day.

Either way takes you to the first day of the current month and then 1
day before that is the last day of the previous month
John Hall

Rajan.Srinivasan@Allfun.com wrote:
>
>   I tried  this.    I defined  Date1  as   a  Date Field  with (*USA)
> format.
>
>                             DATE1                   SUBUR
> 1:*M                   DATE1
>
> When I executed the above statements ,   I  get the following results on
> DATE1
>
> DATE1(before)                               DATE1 (after)
>
> 03/31/1998                                         2/28/1998
> ok
>
> 05/31/1998                                        04/30/1998
> ok
>
> 06/30/1998                                        05/30/1998
> not  ok
>
> 04/30/1998                                         03/30/1998
> not ok
>
> When  I  input  value  06/30/1998  on   DATE1 ,  and after executing
> SUBDUR ,  I  get  the value  05/30/1998, whereas
> I should get  05/31/1998
>
> I am I doing something wrong
>
> Thanks
> Raj
>
+---
| 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
+---