× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



It's been a LONG time since I did much COBOL - I know this can be simplified by nesting the function usage but I don't have time to play with it. Hopefully it gives you the idea you need. Seems to work just fine.


IDENTIFICATION DIVISION.
PROGRAM-ID. SIMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.

77 OrderDate FORMAT DATE "@Y%m%d".
77 Duration Pic 9(5).
77 Today FORMAT DATE "@Y%m%d".
77 MMPROCDT Pic 9(8) Value 20221009.

PROCEDURE DIVISION.
MAINLINE.
Move function current-date to today.

Perform 5 times
Add 1 to MMPROCDT
Move MMPROCDT to OrderDate

Compute Duration = FUNCTION FIND-DURATION
( OrderDate Today DAYS)
Display OrderDate
If Duration >= 14
Display Duration
else
Display 'No joy'
End-if
End-Perform.

Stop Run.

Jon P.

On Oct 25, 2022, at 1:13 PM, Thomas Burrows <thomas.burrows.1957@xxxxxxxxx> wrote:

If I have a variable

"MMPROCDT PIC S9(8)" that is a date field.

YYYYMMDD FORMAT DATE "@Y%m%d"
SYSDATE PIC 9(8) Value zero.

ACCEPT SYSDATE from DATE YYYYMMDD.

I need to figure out if "MMPROCDT" is 14 days or earlier than the current
date which is held in SYSDATE.

Thought I could reused YYYYMMDD to hold the value of

=======================

MOVE FUNCTION SUBTRACT-DURATION
(SYSDATE DAYS 14) to YYYYMMDD

====================================

Could come up with another variable than YYYYMMDD if need be.

How do craft the statement to check if "MMPROCDT" is at least 14 days
earlier than today's date "SYSDATE"?

A bit weak on my date manipulation.

Thomas
--
This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/cobol400-l.



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