Re: DAY OF WEEK -- MIDRANGE-L

Angela, Check this out !!

DDateBorn S D DATFMT(*ISO) INZ(D'1951-08-24' ) * Define the date field with date of birth

D LilDate S 9B 0 INZ * This field is holding the Lilian date

D DayOfWeek S 9B 0 INZ * Field to receive the day of week

D Fmt S 35 INZ('YYYY-MM-DD' ) * Defines the format of the character field communicating with APIs

D DateChar S 35 INZ('1994-08-24' ) * Character field sending/receiving date

DFmtJpn C '<JJJJ> YY.MM.DD' * Defines the format I want back for Japanese date

D DateJpn S 20 * Field to hold Japanese date

DFmtTxt C 'Wwwwwwwwwz, Mmmmmmmmmz DD, YYYY' * Defines the format I want back for date with text

======================

* Lilian date returned is 150429.

C CallB(D) 'CEEDAYS'

C PARM DateChar

C Parm Fmt

C PARM LilDate

* The number returned is 4, which is a Wednesday.

C CallB(D) 'CEEDYWK'

C PARM LilDate

C Parm DayOfWeek

to find the Lilian date for the date field DateBorn.

* The Lilian date returned is 134723.

C *ISO Movel(P) DateBorn DateChar

C CallB(D) 'CEEDAYS'

C PARM DateChar

C Parm Fmt

C PARM LilDate

* The date is era "Showa" year 26, month 8, day 24.

* The field returned contains the following (hex only for DBCS part):

* 26.08.24

* 04B4704FF4FF4FF

* E535AF026B08B24

C Movel(P) FmtJpn Fmt

C CallB(D) 'CEEDATE'

C PARM LilDate

C Parm Fmt

C PARM DateJpn

* The result returned is Friday, August 24, 1951.

C Movel(P) FmtTxt Fmt

C CallB(D) 'CEEDATE'

C PARM LilDate

C Parm Fmt

C PARM DateChar

C SETON LR

----- Original Message -----

From: Angela Wawrzaszek(EXCH)

To: Midrange Mail List (E-mail)

Sent: Wednesday, April 19, 2000 1:40 PM

Subject: DAY OF WEEK

I seem to remember somewhere (in rpg ile ???) that you could determine what day of the week it was? Can anyone help me out?

Thanks!

Angie Wawrzaszek
M.I.S. Department