Re: CL program

[Booth Martin <booth@xxxxxxxxxxxx>]

In CL you know today's year and today's month.  The day is always "1".

Subtract 1 day from that date and you will have the last day of last month.

You can do a CVTDAT command and get a julian date in the form of yyddd. 
 Subtract 1 and then do a cvtdat back to the date format you want.

I leave it as a trivial problem to resolve a ddd of 000, which will 
occur with this solution every January.

John Candidi wrote:
> Let me describe what I'm trying to do. I'm sure it's pretty simple for
> anyone who knows CL.
>
>  
>
> I need to create a library with the month-end name (i.e. after January
> month-end, I'd need a JAN2006 library) that will contain 10 files which I
> copy into it. I will need to do this every month as part of our month-end
> process. I assume it will have to subtract several days from today's date
> and pull the month and year from that date in case month-end is not run on
> the last day of the month Is there a simple CL program to do this.
>
>  
>
> John A Candidi
>
> Rutgers Insurance Companies
>
> IT Director - AS/400 Manager
>
> 856-779-2274
>
>  
>
>