There have been a few discussions over the years on IBM-MAIN as to
how to SLEEP for some period of time in REXX. I was asked today to look
at a dump of a "hung testcase" , and came across the following example
of how *not* to do it:
/* REXX */
/* WAIT 10 SECONDS FOR THE MESSAGE TO COMPLETE */
NEW_TIME = 0
OLD_TIME = TIME('S')
DO WHILE (OLD_TIME + 10 > NEW_TIME)
NEW_TIME = TIME('S')
END
RETURN(0)
This was in a testcase that we have been using since 1988.
So amusingly, when this EXEC got invoked within 10 seconds
before midnight:
23.59.08 JOB53814 ---- MONDAY, 13 JAN 2014 ----
23.59.08 JOB53814 IRR010I USERID SYSTEM IS ASSIGNED TO THIS JOB.
23.59.37 JOB53814 ICH70001I SYSTEM LAST ACCESS AT 23:59:33 ON MONDAY,
JANUARY 13, 2014
23.59.37 JOB53814 $HASP373 TSOOPR03 STARTED - INIT 2 - CLASS A - SYS
S0C
23.59.37 JOB53814 IEA630I OPERATOR SYSTEM NOW ACTIVE, SYSTEM=S0C ,
LU=TSOOPR03
23.59.37 JOB53814 D T /* ISSUE THE SYSTEM COMMAND */
23.59.37 JOB53814 IEE136I LOCAL: TIME=23.59.37 DATE=2014.013 UTC:
TIME=04.59.37 DATE=2014.014
23.59.47 JOB53814 D T /* ISSUE THE SYSTEM COMMAND */
23.59.47 JOB53814 IEE136I LOCAL: TIME=23.59.47 DATE=2014.013 UTC:
TIME=04.59.47 DATE=2014.014
23.59.57 JOB53814 D T /* ISSUE THE SYSTEM COMMAND */
23.59.57 JOB53814 IEE136I LOCAL: TIME=23.59.57 DATE=2014.013 UTC:
TIME=04.59.57 DATE=2014.014
14.00.39 JOB53814 ---- TUESDAY, 14 JAN 2014 ----
14.00.39 JOB53814 CNZ4200I CONSOLE SYSTEM HAS FAILED. REASON=ABTERM
14.00.39 JOB53814 IEA631I OPERATOR SYSTEM NOW INACTIVE, SYSTEM=S0C ,
LU=TSOOPR03
14.00.39 JOB53814 IEF450I TSOOPR03 STEP1 - ABEND=S222 U0000
REASON=00000000
14.00.39 JOB53814 -
======================================================================
14.00.39 JOB53814 - REGION ---
STEP TIMINGS ---
14.00.39 JOB53814 - STEPNAME PROCSTEP PGMNAME CC USED CPU
TIME ELAPSED TIME
14.00.39 JOB53814 - STEP1 IKJEFT01 *S222 76K 13:49:49.95
14:00:39.23
14.00.39 JOB53814 $HASP395 TSOOPR03 ENDED
Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
