• Subject: RE: Last Day of Last Month
  • From: Terry Richardson <RichardsonT@xxxxxxxxx>
  • Date: Wed, 13 Oct 1999 10:38:27 -0400

Brad-Try something like this:  You will have to change your input date to be
something like 

DRealDate         DS                                                  
D ISODate                         D   DATFMT(*ISO) INZ(D'1940-01-01') 
D   ISOCC                        2  0 Overlay(ISODate:1)              
D   ISOYY                        2  0 Overlay(ISODate:3)              
D   ISOCCYY                      4  0 Overlay(ISODate:1)              
D   ISOMM                        2  0 Overlay(ISODate:6)              
D   ISODD                        2  0 Overlay(ISODate:9)             


C                   eval      InputDate = ISODate       
  * Calculate the last date of the month.               
 C                   eval      ISOMM  = ISOMM + 1       
 C                   If        ISOMM   > 12             
 C                   eval      ISOMM   = 1              
 C                   eval      ISOCCYY   = ISOCCYY + 1  
 C                   endif                              
 C                   eval      ISODD = 1                
 C     ISODate       subdur    1:*D          Date       
 C                   move      Date         ENDOFMTH

Terry Richardson
Sr. P/A
The Orvis Company, Inc.

        -----Original Message-----
        From:   Brad McDaniel [SMTP:BMCDANIEL@ABSBC.ORG]
        Sent:   Wednesday, October 13, 1999 9:31 AM
        To:     'midrange-l@midrange.com'
        Subject:        Last Day of Last Month

        I am writing some CL's to automate some monthly jobs that are
usually submitted through user menus.  This particular CL submits a job with
the prior month and year as the parms (let's say &YEAR (4) and &MONTH (2)). 
Then, the CL does a STRQMQRY with the year, month, and day of the last day
of that month.  Does anyone have a sample of the easiest way to figure out
the last day of a particular month (i.e.  if run today, the year and month
would be 1999 09, and the CL would need to pass 19990930 to the query.)?

        I know the method for passing parms with STRQMQRY, I am just
wondering if anyone has some code laying around that gives you the last day
of the month (accounting for leap years also).


        Brad McDaniel 
        Information Services 
        Annuity Board, SBC 
         <http://www.absbc.org> http://www.absbc.org 
| 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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.