How do I do date math in REXX exec? 1

[IDC3044]

I have a dataset created with an unload from a DB2 table that I am working with. I am changing a SystemID number to the LPAR letter representation and doing some other formatting within the rexx exec.

Using Rexx how could I remove any entries that are not from the date that is 2 days less than the current date?

I have timestamps within the dataset of the format:

2004-11-30-11.21.34.040000
2004-12-01-02.05.22.010000
2004-12-02-04.32.44.090000

Any ideas?

 

[rexxhead]

First, convert your ISOform date to the REXX S-form:

sformdate = Translate("CcYyMmDd", ISOformdate , "CcYy-Mm-Dd")

Now convert the S-form to B-form:

bformdate = Date("B", sformdate ,"S")

You can do math with a B-form date: subtract 2, then convert it back to S-form, then to ISOform. Handle time similarly. This should yield a date-time from 48 hours ago which you can match directly to the DB2 timestamps.

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster