Have you encountered EXCI in your researches? On Thursday, 17 March 2016 11:39:51 UTC, Brenton, Ren wrote: > 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
