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
