Re: Julian date calculations across years -- MIDRANGE-L

That's pretty much what I would expect to happen in that scenario. The problem being of course that when you do thew sub=traction you are not dealing with a date b ut with a number.

So the change you would need to fix it would be for the CVTDAT to handle invalid numerics and guess at what you want to happen. Can't see IBM going for that.

You could do it in RPG very simply but there's no directly supported method in CL.

You could use SQL I guess or call a small RPG routine.

On Jan 6, 2020, at 12:16 PM, Howie, Bill <BHowie@xxxxxxxxxxxxxxxx> wrote:

Jon,

The logic does the following, all in CL:

* Retrieves the system date into a character field, 6 long.
* Uses CVTDAT to convert the date into a Long Julian format, field is character, length 7
* Then it puts the Long Julian value into a decimal field, length 7 and subtracts 7 from that
* It then moves that result back to the character field, length 7, used in step 2
* Then tries a CVTDAT to convert that to an ISO date and blows up

Bill Howie | Senior ERP Programmer/Analyst Consultant
The HC Companies | 2450 Edison Blvd, Suite 3, Twinsburg OH 44087
Direct: 330.487.3739 | Cell: 330.495.5627 | Toll Free: 800.225.7712

The HC Companies, Inc.<http://www.hc-companies.com/> - North America's Leading Provider of Containers for Horticulture
Dillen | ITML | ProCal | Kord | Amerikan | Planters' Pride
From Grower to Gardener, Improving Our World
[Related image]<https://www.linkedin.com/company/the-hc-companies> [Related image] <https://www.facebook.com/HCCompanies/>

Disclaimer

The information contained in this communication from the sender is confidential. It is intended solely for use by the recipient and others authorized to receive it. If you are not the recipient, you are hereby notified that any disclosure, copying, distribution or taking action in relation of the contents of this information is strictly prohibited and may be unlawful.

This email has been scanned for viruses and malware, and may have been automatically archived by Mimecast Ltd, an innovator in Software as a Service (SaaS) for business. Providing a safer and more useful place for your human generated data. Specializing in; Security, archiving and compliance. To find out more visit the Mimecast website.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com