Day of the week - Is there any function in COBOL

pjnithin · Active User Joined: 22 Dec 2005 Posts: 116

Is there any function in COBOL which day of the week is a particular date.I have a date like 2006-01-01, I want to know which day of the week is this date.

maheshkg · New User Joined: 23 Feb 2006 Posts: 3

Use
ACCEPT <variable name> FROM DAY-OF-WEEK

This returns the day.
If it is monday then it returns 1
If tuesday then 2
and so on

KS · New User Joined: 28 Feb 2006 Posts: 91 Location: Chennai

Ye he s right !
You can use DAY OF WEEK .
It return values (1 to 7) where 1 - monday,2 - Tuesday .....7 - Sunday

You can then display using an EVALUATE st.

DavidatK · Posted: Mon Mar 06, 2006 7:32 pm

pjnithin,

I don?t know of any intrinsic function that will give you the day of the week for any date. The ACCEPT .. DAY-OF-WEEK will give you the day of the week only for the current date. You cannot supply a date to the function.

Dave

manyone · New User Joined: 09 Mar 2006 Posts: 9

here's some code that will do it (note: 0=sunday)
01 filler.
03 ws-dow-str pic x(21) value 'sunmontuewedthufrisat'.
03 ws-db2-date pic x(10).
PROCEDURE DIVISION.
move '2006-03-26' to ws-db2-date
compute tally =
function mod (
function integer-of-date (
function integer(
function numval (ws-db2-date(1:4))
) * 10000
+ function integer (
function numval (ws-db2-date(6:2))
) * 100
+ function integer (
function numval (ws-db2-date(9:2))
)
), 7 )
display tally ' ' ws-dow-str ( 3 * tally + 1 : 3)
goback

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi pjnithin,

You've been silent since your original ques, but anyway, here's another possible way to solve your problem:

P.S. It would be helpful (not to mention thoughtful) of you to communicate to the forum members how these suggestions worked for you.

martin9 · Posted: Mon Mar 13, 2006 3:01 pm

hy,

the le conform cobol compilers accept so called intrinsic functions,
as decribed before by mmwife.
just look there for teh synatx, there are much more
functions that are quite useful.

martin9

riyasabdulla · New User Joined: 03 Mar 2005 Posts: 1

IS THERE ANY FUNCTION TO GET THE DAY OF WEEK FROM A DATE IN ORDINARY COBOL?

manyone · New User Joined: 09 Mar 2006 Posts: 9

here's some working code (you supply the fd)