MVSFORUMS.com

John Corbin · Beginner Joined: 23 Jan 2004 Posts: 38 Topics: 21

I know TSO REXX has several DATE() functiosn but none of them return the date in the format of yymmdd ( closest I get I get is DATE('E') which returns the date in format yy/mm/dd.

Is there any way to get the format I want ?

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Date(S) will give you YYYYMMDD.

kolusu · Posted: Mon Aug 30, 2004 1:07 pm Post subject:

John Corbin,

Did you try Date(S) ? which returns yyyymmdd format? if you need just 2 digits then you can use substring function to strip the century portion. Check this link.

http://www.mvsforums.com/helpboards/viewtopic.php?t=228

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Also, if ISPF is available in the environment, you could concatenate the three ISPF date variables:

zyear = 04
zmonth = 08
zday = 04

John Corbin · Beginner Joined: 23 Jan 2004 Posts: 38 Topics: 21

Thanks for the suggestions... here is a partial solution..

/* REXX */
TODAYSDATE=DATE('E')
RYEAR=SUBSTR(TODAYSDATE,1,2)
RMONTH=SUBSTR(TODAYSDATE,4,2)
RDAY=SUBSTR(TODAYSDATE,6,2)
/* REXX */

Now I have to join the 3 small strings into yymmdd....

kolusu · Posted: Mon Aug 30, 2004 1:34 pm Post subject:

johncorbin,

You can simply code

John Corbin · Beginner Joined: 23 Jan 2004 Posts: 38 Topics: 21

Up and running now... Thanks..

Virtual beer for all