Date subroutine!

[Tim Truax <truax@xxxxxxxxx>]

Hello all,
I completed writing an externally called date subroutine that works real
neat on the AS400 using RPG (I am going to be writing an entire library
full of them).  Here's what this one does- You pass it the Date
YYYY,MM,DD / an 'A' to Add days or 'S' to Subtract days / then 'C' for
calendar days or 'W' for work days (actually excludes bank holidays) /
then the # of days / and the routine will return the date calculated. 
Another nice feature is it'll work until we are all dead and gone.. all
through the 21st century.  If anyone is interested in having it zipped
up as a Notepad document and sent to you let me know via email at-

truax@usaor.net

Just my way of saying Thanks to you folks for all the help I get from
you seasoned AS400 pros!
Also-- from a long time S36'er.. the AS400 is GREAT!
-- 
žžžžžžžžžžžžžžžžžžžž
ž-Tim & Dana Truax-ž
žžžžžžžžžžžžžžžžžžžž
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---