Re: Yesterdays date

In RPG IV....

D Yesterday            S                D        DatFmt( *ISO )
D Today                  S                D        DatFmt( *ISO )

C                                    Time
Today
C          Today                Subdur    1:*DAY          Yesterday


For RPG III, just wrap this and make an external call.


Regards,

John Taylor
Canada



----- Original Message -----
From: Quazy
To: RPG400-L@midrange.com
Sent: Monday, June 26, 2000 13:43
Subject: Yesterdays date


I am looking for a free utility or program that will give me yesterdays
date.   I was wondering if someone out there has written such a thing that
they would be willing to share.  I can do this myself but it is a pain to
check for leap year and stuff, I just didn't want to re-invent the wheel if
it is already out there.



Thanks

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---