RE: APIs

[Bob Cozzi <BobCozzi@xxxxxxx>]

To call CEEDYWK

You need to pass it the number of days since 10-14-1582
Here's the code I use to Get the Day of the Week.

     P DayOfWeek       B                   EXPORT
     ** Procedure interface for the get DayOfWeek function 
     D DayOfWeek       PI            10I 0
     D  InputDate                      D   CONST DATFMT(*ISO)
     ** Base date is based on the day the calendar changed 
     D BaseDate        S               D   Static INZ(D'1582-10-14') 
     D nDayOfWeek      S             10I 0  
     D nDays           S             10I 0 
     C     *ISO          TEST(D)   InputDate                            73
     C                   If        *IN73
     C                   Return    -1
     C                   Endif
     C     InDate        SubDur    BaseDate      nDays:*Days 
     C                   CALLB     'CEEDYWK'                              LR
     C                   Parm                    nDays
     C                   Parm                    nDayofWeek 
     C                   return    nDayOfWeek 
     P DayOfWeek       E


Since RPG IV does the date arithmetic for you, I don't use the other API

Bob Cozzi


On Thursday, July 31, 1997 1:19 PM, mancini [SMTP:mancini@ais.net] wrote:
> Does anyone have any sample code on the two following APIs.
> 
> CEEDYWK  -  calculate Day of Week from Lilian Date.
> 
> CEEDAYS   -  convert Date to Lilian Format.
> 
> 
> I need to find the day of the week for a certain date.
> 
> Thank You
> Joe
> 


Bob Cozzi
Bob@rpgdev.net
http://www.rpgdev.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *