test for a valid date... */
> mmdd=195005bd
> SIGNAL ON SYNTAX NAME BadDate
> returnlabel='SOMELABEL'/* Must be upper case if used */
> emsg=date('S',mmdd,'S') /* Let REXX validate */
> SomeLabel:
> SIGNAL OFF SYNTAX
>
>
>
;xfn'; invalid date: "'mmdd'".'
Exit
/* You cannot "Return" from a SIGNAL, but you can: */
/* SIGNAL value returnlabel */
ValiDate:
SIGNAL ON SYNTAX NAME InvalidDate
Call Date arg(2
Oops -- REXX DATE doesn't allow 'Julian' to be converted .. although you
can convert 'from' Julian.. New code:
Daybase = date('B')
D30ago = date('S',Daybase-30,'B')
.
.
.
xlastacc = date('S',xyr||xday,'J')
If xlastacc < D30ago then do
.
.
.
Scott Rohling
On Wed, Oct 22, 2008 at 8:09 AM, Sco
I think you're going to have some issues during January using Julian ;-)
2009001-30 = 2008971 ... so you'll likely end up revoking everybody...
I would use date('B') -- and then convert to date('J') after:
Daybase = DATE('B')
D30ago = Date('J',Daybase-30,'B')
Scott Rohling
On Wed, Oct 22,
So here's the quick and dirty version for those interested.
/* Rexx */
erase racf data a
GLOBALV SELECT $RACGRP SET $RAC_APN Y
GLOBALV SELECT $RACGRP SET $RAC_ISPF Y
'RAC LU MATYAZ'
GLOBALV SELECT $RACGRP SET $RAC_APN N
GLOBALV SELECT $RACGRP SET $RAC_ISPF N
Daybase = date('Julian')
D30ago = Dayba
Colin,
Inactivity timeout is a system wide setting. The only workaround I
could come up with is this:
If your system is like mine, it is a lot of linux guests, a few
batchlike system userids, and a few system programmers. See if they
will allow you to change the interval to the maximum, 254, and NO
I know this has been the subject of recent discussion & I said that we
have a process to override this for defined virtual machines. However, for
a number of reasons, (mainly keeping up with identifying them), this is
giving us some difficulty.
Our VM systems are now very different beasts to wh