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]> To: [email protected] 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]<mailto:[email protected]> || 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] 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
