Re: Date subroutine!

[Carl Galgano <cgalgano@xxxxxxxxxxxxxxxxx>]

Tim:
I'd be interested in your date routine.  Please send private email to me.
Thanks,
Carl

At 06:48 PM 9/15/97 -0400, you wrote:
>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
>+---
>uucp
>
Carl J. Galgano
http://cgalgano.home.mindspring.com
mailto:cgalgano@ediconsulting.com
EDI Consulting Services, Inc.   
540 Powder Springs Street
Suite C19
Marietta, GA 30064
770-422-2995
+---
| 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
+---