RE: UDATE question

[JFeador@xxxxxxxxxx]

Funny Bob!

 
Jerry L. Feador
Senior Programmer / Analyst
(HISNA) Hyundai Information 
              Services, North America
(949) 595-5810


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob Cozzi
Sent: Friday, March 11, 2005 8:09 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: UDATE question


UDATE? What's that? Isn't this 2005?

D  JobDate        S             D   Inz(*JOB)
Or
D  Today          S             D   Inz(*SYS)
D ThreeMonthsAgo  S             D

C          Today    SubDur      120:*DAYS    ThreeMonthsAgo




-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of John Furniss
Sent: Friday, March 11, 2005 9:23 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: UDATE question

List:
        This should be easy, but I can't figure it out. I checked the RPGILE
.PDF with no luck. I am getting an error when I put UDATE into a field I've
defined as a date data type. I then want to do a   SUBDUR  120:*D on it.
What I need to be able to do is subtract 120 days from today's date. How
would you do this? I know this is probably a common thing to do.
        Thanks,

John Furniss
Allied Machine & Engineering Corp.
iSeries Application Programmer
Phone (330) 343-4283 Ext. 8371
email: jfurniss@xxxxxxxxxxxxxxxxx

-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.