Re: Question about dates

[Roman Miklos <rmiklos.work@xxxxxxxxx>]

For adding / substracting days to / from dates in PIC 9(8) format YYYYMMDD
two intrinsic functions are very useful:

INTEGER-OF-DATE: converts PIC 9(8) date into a number which represents
number of days after 31.12.1600

DATE-OF-INTEGER: converts number of days returned from the function
INTEGER-OF-DATE back into PIC 9(8) date YYYYMMDD

see IBM reference:
https://www.ibm.com/docs/en/i/7.3?topic=functions-integer-date
https://www.ibm.com/docs/en/i/7.3?topic=functions-date-integer

I found only one example here:
https://software.fujitsu.com/jp/manual/manualfiles/m150010/b1wd3365/01enz200/b3365-00-01-47-00.html



On Tue, Oct 25, 2022 at 7: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.