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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.