You and I think that's funny but here is an extract from a note I sent to a
programmer only a few months ago after reviewing a set of their jobs....
*******************************************************
/*REXX*/
/*THIS IS A DELAY PROGRAM. IT CAUSES JOB TO REMAIN IN THE SAME STEP */
/*FOR THE DURATION OF THE RTIME. RTIME IS PASSED TO THIS PROGRAM */
/*FROM THE CALLING JOB. 1/28/03 */
PARSE ARG RTIME;
CALL TIME('R');
STIME = TIME('E');
CALL TIME('R');
SAY 'START TIME IS' TIME();
DO WHILE TIME('E') < STIME + (RTIME * 60);
END;
SAY 'END TIME IS ' TIME();
This is a loop not a wait :-( It uses CPU constantly for the entire time.
Using 4 1/2 minutes of z990 CPU time to wait for 5 minutes is an expensive
proposition.
You can use the sleep command here or a small assembler program to WAIT 5
minutes for about 2 seconds of cpu time. This one change will save more
than a CPU DAY each year.
************************************************************
So you might be surprised at the "clever" means your programmers have
devised to wait if you don't make them aware of better alternatives.
Best Regards,
Sam Knutson, GEICO
Performance and Availability Management
mailto:[EMAIL PROTECTED]
(office) 301.986.3574
Finish each day and be done with it. You have done what you could; some
blunders and absurdities have crept in; forget them as soon as you can.
Tomorrow is a new day; you shall begin it serenely and with too high a
spirit to be encumbered with your old nonsense. - Ralph Waldo Emerson
-----Original Message-----
From: IBM Mainframe Discussion List On Behalf Of Charles Mills
You could write a subroutine to loop for one CPU second. That would fulfill
the letter of the request below. Looping was how one implemented delays on
single-processing small computers.
It would not be a career-enhancing technique to use under z/OS.
Charles
<>
====================
This email/fax message is for the sole use of the intended recipient(s) and
may contain confidential and privileged information. Any unauthorized
review, use, disclosure or distribution of this email/fax is prohibited. If
you are not the intended recipient, please destroy all paper and electronic
copies of the original message.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
