RE: Yesterdays date

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

If using RPG IV, it is easy using date fields and op-codes.  If using RPG
III, create a small RPG IV program to do it.  Off the top of my head(not
tested)

c               time              date_field
c               subdur    1     date_field

Now date_field contains yesterdays date, just move it to a field with the
format you desire.  For example, to get it in a 8 digit numeric YYYYMMDD:

c   *iso      move        date_field      my_date

If you haven't experimented with date fields and the date functions this
would be a good way to start learning about them.  They are a tremendous
time saver, we have created all sorts of date utilities and put them into a
service program for ease of reuse.

Scott Mildenberger

> -----Original Message-----
> From: Quazy [SMTP:quazy@SoftHome.net]
> Sent: Monday, June 26, 2000 1:43 PM
> To:   RPG400-L@midrange.com
> 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
+---