Re: Calculating last day of month

[boothm@xxxxxxxxxxxxxxxxx]

ok, time for the contest.

Who can write Jon's code with one Eval statement?  Use of %BIFs is 
permitted of course. 

Or can't we use ADDDUR and SUBDUR in free-form statements?





Please respond to MIDRANGE-L@midrange.com
Sent by:        owner-midrange-l@midrange.com
To:     MIDRANGE-L@midrange.com
cc: 

Subject:        Calculating last day of month



Oops - sorry folks I forgot one line - shoulda cut-n-paste instead of 
re-typing
the code!! (at least I now understand Rob's comment <grin>


>    D InputDate                       D   DATFMT(*ISO)
>    D Temp                           3P 0
>
>    C                   Extract   InputDate:*D  Temp
>    C                   Eval      Temp = Temp - 1

---> C                   SubDur    Temp:*D       InputDate

>    C                   AddDur    1:*M          InputDate
>    C                   SubDur    1:*D          InputDate



+---
| 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
+---