Re: Question about dates

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.

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