My answer would be two identically-named subroutines, one for batch and one for online. One uses EXEC CICS WAIT, the other uses normal STIMER wait, both accept identical parameters.
The batch one will have to be LE-enabled assembler to use STIMER, but the CICS one can be COBOL. You *do* use different production and QA libraries for online and batch programs, right? You can make them both COBOL when you go beyond 1.8 and can use the CEE3 subroutines, or let the applications change to use those LE subroutines in their own code. If you wanted to be really sneaky, you could name your private subroutines CEE3DLY or CEE3DLYM. The when you upgrade just delete your private versions and your application programs will automatically use the new LE versions. HTH Peter > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Andy Robertson > Sent: Friday, June 05, 2009 11:29 AM > To: [email protected] > Subject: Re: Wait under CICS > > I have just gotten a panicy request from an applications group who are > getting -911 SQL abends under CICS. > > These are of course timeouts. > > They want some way to wait n seconds and retry. > > Simple, sez you - but the kicker is that it is highly desirable the > relevant programs in these applications not contain EXEC CICS statements, > for reasons which are basically down to wanting to share source code > across > the batch and CICS environments. > > They want a CALLable subprogram to do the job. > > We are at z/OS 1.8 so CEE3DLY CEE3DLYM are not yet available > > ILBOWAT0 and BPX1SLP are AFAIK not useable under CICS, nor are things like > STIMER WAIT > > I can't see how to do it. > > So, has anyone got any bright ideas??????? This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- 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
