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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN