RE: Determining "Business Days" (i.e. No Saturday/Sunday) correction

Correction 1 & 7 are weekends {give me the big DUHH}
 *===========================================================
P DayOfWk         B                   Export                 
 *===========================================================
D                 Pi                  Like( IntTyp )         
D  Dat                                Like( DatTyp )  Value  
                                                             
D Day             S                   Like( IntTyp )         
                                                             
C     Dat           SubDur    D'1899-12-30' Day:*D           
C                   Div       7             Day              
C                   MvR                     Day              
                                                             
C                   If        Day      = 0                   
C                   Eval      Day      = 7                   
C                   EndIf                                    
                                                             
C                   Return    Day                            
                                                             

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Chuck Lewis
Sent: Tuesday, November 24, 1998 11:26 AM
To: MIDRANGE-L@midrange.com
Subject: Determining "Business Days" (i.e. No Saturday/Sunday)


Hi Folks,

Anyone have a method of determining when a day is a business day (i.e.
Mon-Fri) ?

I have a method I developed YEARS ago (load a file with all dates and
the actual day, etc) and it is "Y2K" but I'm wondering with the new RPG
IV and ILE stuff is there something that handles this ?

I have EVEN looked through the online books a bit. I've used ADDUR, etc
but haven't seen anything on this...

Thanks,

Chuck

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---