Re: Yesterdays date

[booth@xxxxxxxxxxxx]

Three lines:

  D DateISO                                   d         DATFMT(*ISO)
  C           *Jobrun        Move     *DATE             DateISO
  C                                SubDur   1:*D                Date ISO 

(If *Jobrun doesn't work with *Date you'll have to resolve it, but that'll 
do your job. 
_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




"Quazy" <quazy@SoftHome.net>
Sent by: owner-rpg400-l@midrange.com
06/26/2000 03:43 PM
Please respond to RPG400-L

 
        To:     <RPG400-L@midrange.com>
        cc: 
        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
+---