Re: Julian date calculations across years

Us ILE. Create an RPG module and a exported procedure in the module.
Receive the date as a character field In and Out and the days to add or
subtract.

Convert to Data data type and then add or subtract your days.

Convert back to Char and return.

Use the tool that is best for the job.

Convert the CL to a module and bind the together.



On Mon, Jan 6, 2020 at 9:23 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

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

--
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