ILBOWAT0 from COBOL or Steve Comstock suggested bpx1slp. "William M. Klein" said Check out earlier replies including calls to ILBOWAT0 (part of the OS/VS COBOL, VS COBOL II, *and* LE run-time libraries). If you don't see it in the archives - just do a google search and you will find the information.
Some other useful bits http://bama.ua.edu/cgi-bin/wa?A2=ind0508&L=ibm-main&P=R87311&I=1 call 'bpx1slp' using seconds-1, seconds-2 where both arguments are pic s9(9) binary; the first contains the number of seconds to wait, the second returns the number of seconds remaining (ignored, I imagine in a COBOL environment, but must be passed). Needs to have CSSLIB in the binder SYSLIB concatenation. Or the old previously mentioned ILBOWAT0 01 WAIT-PGM PIC X(08) VALUE 'ILBOWAT0'. 01 WAIT-RC PIC S9(08) BINARY VALUE +0. WAIT 10 SECOND 01 WAIT-TIME PIC S9(08) BINARY VALUE +10. CALL WAIT-PGM USING WAIT-TIME. Consider I don't code in COBOL so I can only guess this stuff works:-) Best Regards, Sam Knutson, GEICO Performance and Availability Management mailto:[EMAIL PROTECTED] (office) 301.986.3574 The use of COBOL cripples the mind; its teaching should, therefore, be regarded as a criminal offence. (Edsger Dijkstra) -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of WA Stout Sent: Wednesday, September 28, 2005 9:16 AM To: [email protected] Subject: Callable Wait State Gang, Is there a callable routine under z/OS that can perform some type of wait based on a supplied time period (for example, wait fifteen seconds or 1 CPU second)? This would like to be called from Cobol. Any help would be appreciated. Thanks! W A Stout Burlington, N.C. <> ==================== 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
