MVSFORUMS.com

Jmoorthy · Beginner Joined: 23 Aug 2007 Posts: 5 Topics: 1

How to find a day of the Particular date?.Thr is a fns To find a day current date? Is any one help in this regard please

blitz2 · Beginner Joined: 23 Jan 2007 Posts: 84 Topics: 14

Jmoorthy,

Please refer to the following link and see if it helps,
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A330/4.3.16?DT=20020521161835

Check out the examples at the end.
________
Daihatsu Rocky

vivek1983 · Intermediate Joined: 20 Apr 2006 Posts: 222 Topics: 24

Jmoorthy,

There is an numeric intrinsic function in COBOL.

Try this :

move the numeric date field into a variable (WS-DATE)

Compute WS-DAY = Function day-of-integer(WS-DATE).

Note that WS-DATE should have pic 9(8 ) and should be of the format YYYYMMDD.

Regards,
Vivek g

vkphani · Intermediate Joined: 05 Sep 2003 Posts: 483 Topics: 48

Jmoorthy,

You can check the below link
http://www.mvsforums.com/helpboards/viewtopic.php?t=8371&highlight=date

Nic Clouston · Posted: Fri Sep 07, 2007 1:48 pm Post subject:

Just look at the date function in the Rexx manual
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.