You can issue a MCGRE macro to issue a modify to pass a command... Scott
On Sunday, March 20, 2016, [email protected] <[email protected]> wrote: > If you have CICSPLEX SM installed look into the CICSPlex API, it provides > a wealth of information. > Haveng stated that > As others have mention, EXCI is far easier to develop with. I recommend > developing a parameter driven service routine so that others can use/share > your EXCI function. > > ---------- Original Message ---------- > From: "Brenton, Ren" <[email protected] <javascript:;>> > To: [email protected] <javascript:;> > Subject: CICS (from Batch) > Date: Thu, 17 Mar 2016 11:39:37 +0000 > > CICS Gurus, > > I have a requirement to determine, from batch, if a program has been "NEW > COPIED" in a specific CICS region. We have a CICS Tran that will display > the information, (i.e. date/time stamp), which is what I need to compare to > the link date/time of the first (matching) module in the LOADLIB > concatenation. Our CICS Tran actually calls: > > EXEC CICS INQUIRE PROGRAM(PRGNM) LOADPOINT(R3) ENTRYPOINT(R4) > LANGDEDUCED(LANGCVDA) LENGTH(PGMSIZE) > PROGTYPE(PGMTYPE) USECOUNT(USECNT) RESCOUNT(RESCNT) > STATUS(PPTCVDA) COBOLTYPE(COBTYPE) > RESP (RESPONE) RESP2 (RESPTWO) > > Then it loads the address from LOADPT into register 1 and bumps off of it > X'88' (136 bytes) and moves 20 bytes. > > > CKCOBLNG CLI LANGCVDA+3,151 COBOL ? (97) > BNE CKPLI NO > MVC LANGO,=C'COB' > CLI LOADSW,255 IS THERE A LOAD MODULE? (FF) > BE NOLOAD > CLI ENTRYPT,255 VALID ADDRESS? > BE CKCOB3 NO > L R1,LOADPT PLUG IN COMPILE DATE/TIME > CLI COBTYPE+3,151 VS COBOL? (97) > BNE CKCOB2 NO > MVC CCDO(20),X'88'(R1) > > Giving me the date/time stamp. But this, of course, only works in the > CICS Region. > > Does anyone have any thoughts on how to accomplish this from batch? > > TIA, > > PS, Go easy on me, as I have a tough time even spelling C I C S, let alone > doing much in it. And if there is a different list server on which I > should be asking this question (like CICS), I apologize and ask for their > address. Thanks again, > > Ren Brenton > MSP Optimization > Black Knight Financial Services > 601 Riverside Ave., > Jacksonville, FL 32204 > __________________________________________________ > O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807 > [email protected] <javascript:;><mailto:[email protected] > <javascript:;>> || www.BKFS.com<http://www.bkfs.com/> > > > The information contained in this message is proprietary and/or > confidential. If you are not the intended recipient, please: (i) delete the > message and all copies; (ii) do not disclose, distribute or use the message > in any manner; and (iii) notify the sender immediately. In addition, please > be aware that any message addressed to our domain is subject to archiving > and review by persons other than the intended recipient. Thank you. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] <javascript:;> with the message: > INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] <javascript:;> with the message: > INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
