Re: COBOL callable services?

From: steve@xxxxxxxxxxxx (Steve Comstock)
Date: 30 Aug 2005 16:47:12 -0700

Craig Kittendorf wrote:

We have COBOL programs which call ILB0ABN0 to abend which I know can be
replaced by call to CEE3ABD.

Is there a service routine to replace a call to ILBOWAT0 for creating a
"wait"?

Thanks,
   Craig


Have you tried:

    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:

    call 'sleep' using seconds-1 returning seconds-2

(this requires the runtime option POSIX(ON) )

Kind regards,

-Steve Comstock

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
.

References:
- COBOL callable services?
  - From: Craig Kittendorf

Prev by Date: Re: Missing source code (was: New Cobol Releases (was FASTSRT
Next by Date: Re: Missing source code
Previous by thread: COBOL callable services?
Next by thread: Fw: COBOL callable services?
Index(es):
- Date
- Thread

Relevant Pages

RE: Help needed with ICSF
... DCL ENCIPHEREDKEYLENGTH BIN FIXEDINIT; ... Asunto: Re: Help needed with ICSF ... For IBM-MAIN subscribe / signoff / archive access instructions, ... GET IBM-MAIN INFO Search the ...
(bit.listserv.ibm-main)
RE: Help needed with ICSF
... Of De La Fuente Seivane, ... For IBM-MAIN subscribe / signoff / archive access instructions, ... GET IBM-MAIN INFO Search the ...
(bit.listserv.ibm-main)
RE: ADR120E - DFDSS Error
... I want only to backup files that are less ... For IBM-MAIN subscribe / signoff / archive access instructions, ... email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO Search ...
(bit.listserv.ibm-main)
Re: PREVENTING TAKING TOO MUCH STOR IN ISPF
... If you are not an intended recipient, or responsible for delivering some or all of this transmission to an intended recipient, be aware that any review, copying, printing, distribution, use or disclosure of the contents of this message is strictly prohibited. ... For IBM-MAIN subscribe / signoff / archive access instructions, send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ...
(bit.listserv.ibm-main)
Re: Using symbolic in JCL
... Unfortunately, since different systems in a sysplex could have very different times and dates, they could get very unexpected results if we let those symbols be used in batch job JCL. ... functionality, which, under specific circumstances gives unwanted results or it's better to have no functionality at all. ... For IBM-MAIN subscribe / signoff / archive access instructions, send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html. ...
(bit.listserv.ibm-main)