Re: Month/Dates..

[Jon.Paris@xxxxxxxxxx]

 >> Please suggest the easy way to know how to determine the previous month
name, the staring date & ending date of the previous month????.



     D Today           S               D   Inz(*Sys)
     D WorkDate        S               D
     D Month           S              2P 0
     D Day             S              2P 0

     C                   Extract   Today         Day:*D
     C     Today         SubDur    Day:*D        WorkDate
     C                   Extrct    WorkDate      Day:*D
     C                   Extract   WorkDate      Month:*M

At this point Month contains the month number and you can simply use it against
an array of month names.  Day contains the last day of the month - it is left to
you to calculate the first day of the month (hint - it is usually 1 <g>)  If you
mean business day - then you'll have to calculate what day of the week the first
and last days represent and then increment/decrement the day to get to the
Monday/Friday.


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