RE: RPGIV: work days in a subdur

["Angela Wawrzaszek" <awawrzaszek@xxxxxxxxxxxxxxx>]

Yes and no this is what will work.  I will be subtracting dates that can be 
1-120 days apart.  So to figure out which day of the week it is and subtract a 
weekend is not quite that simple.   I wuld need to be able to know how many 
weekends to subtract out of the subdur.

-----Original Message-----
From: M Fraser [mailto:mfraser@ssica.com]
Sent: Fri 3/8/2002 5:55 PM
To: Angela Wawrzaszek
Cc:
Subject: Fw: RPGIV: work days in a subdur


        it doesn't look like my email was sent... so I'm forwarding you what I 
sent to the group.  hope it helps.
        ----- Original Message -----
        From: M Fraser <mailto:mfraser@ssica.com>
        To: RPGIV@yahoogroups.com
        Sent: Friday, March 08, 2002 2:23 PM
        Subject: Re: RPGIV: work days in a subdur

        Angela,
        this is from the RPG group's old emails (from last year!), I'm guessing 
this should work well for you.

        ----- Original Message -----
        From: Bob Cozzi (RPGIV) <mailto:cozzi@rpgiv.com>
        To: RPGIV@yahoogroups.com
        Sent: Monday, June 04, 2001 7:55 AM
        Subject: RE: [RPGIV] Dates

        Here’s the source for the GetDay() procedure:
        
.....D*ame+++++++++++EUDS.......Length+TDc.Functions+++++++++++++++++++++++++++
             D GetDay          PR            10I 0
             D  InputDate                      D   CONST DATFMT(*ISO)

        
.....P*rocName+++++++..B...................Functions+++++++++++++++++++++++++++
             P GetDay          B                   EXPORT
              ** Procedure interface for DayOfWeek function
        
.....D*ame+++++++++++EUDS.......Length+TDc.Functions+++++++++++++++++++++++++++
             D DayOfWeek       PI            10I 0
             D  InputDate                      D   CONST DATFMT(*ISO)
             ** Base date is based on calendar changed date
             D BaseDate        S               D   Static INZ(D'1582-10-14')
             D nDayOfWeek      S             10I 0
             D nDays           S             10I 0
        
.....C*Rn01Factor1+++++++OpCode(ex)Factor2+++++++Result++++++++Len++DcHiLoEq
             C                   TEST(E)                 InputDate
             C                   If        %ERROR
             C                   Return    -1
             C                   Endif
             C     InputDate     SubDur    BaseDate      nDays:*DAYS

             C                   CALLB     'CEEDYWK'
             C                   Parm                    nDays
             C                   Parm                    nDayofWeek

             C                   return    nDayOfWeek

             PGetDay           E



        Bob Cozzi
        cozzi@rpgiv.com

        -----Original Message-----
        From: Bob Cozzi (RPGIV) [mailto:cozzi@rpgiv.com]
        Sent: Monday, June 04, 2001 10:45 AM
        To: RPGIV@yahoogroups.com
        Subject: RE: [RPGIV] Dates

        I think you’ve answered your own question. Just do the SUBDUR or 
ADDDUR operation, and then if the result is a weekend, subtract a day or two 
from the date. You can use the GetDay() procedure I wrote to get the day of the 
week after you’re calculation is done.

        Date1 subdur Duration:*DAYS  newDate
                  Select
                  When   GetDay(NewDate)=1
                  SubDur  2:*Days           NewDate
                  When  GetDay(NewDate)=7
                  SubDur  1:*Days           NewDate
                  EndSel

        Bob Cozzi
        cozzi@rpgiv.com

        -----Original Message-----
        From: btrisko@douglas-machine.com [mailto:btrisko@douglas-machine.com]
        Sent: Monday, June 04, 2001 10:28 AM
        To: RPGIV@yahoogroups.com
        Subject: [RPGIV] Dates


        I am just starting to use the date operations in RPGIV and need some 
help.

        I need to subtract 4 days from a user entered date, but the date 
calculated
        must fall on a weekday.

        For example: If the date entered is 06-13-01 and subtract 4 days from 
this
        will give me 06-10-01 which is a Sunday, I need to make this date become
        06-08-01 which is Friday.

        I need to get this procedure done quite soon, so any help forwarded 
would
        be appreciated.

        Thanks in advance.

        Brenda Trisko
        Douglas Machine, Inc.
        Alexandria, MN