RE: Month End CL

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

Are you willing to call an RPG program?  Because in RPG ILE, it should be
pretty easy to do.  Assuming you're passing in a YYMMDD date, you should be
able to set the day to 01, then add one month, then subtract one day.

DDate             S               D   DATFMT(*ISO)
C     *entry        plist
C                   parm                    yymmdd            6 0
C                   move      '01'          yymmdd
C     *ymd          move      yymmdd        Date
C                   adddur    1:*m          Date
C                   subdur    1:*d          Date
C     *ymd          move      Date          yymmdd
C                   move      *on           *inlr

This ought to work.

Joe


> -----Original Message-----
> From: midrange-l-admin@midrange.com
> [mailto:midrange-l-admin@midrange.com]On Behalf Of
> chris.whisonant@comporium.com
> Sent: Thursday, December 06, 2001 2:57 PM
> To: midrange-l@midrange.com
> Subject: Month End CL
>
>
>
> I am working on a small CL program and I am wondering what the best way to
> determine the last day of the month is. I'm not a programmer, but this is
> just a small project I'm working on.
>
> Thanks for any help,
> Chris Whisonant
> Senior Mid-Range Systems Administrator
> Comporium Group
> chris.whisonant@comporium.com
> (803)-326-7270
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L)
> mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.