Cool, thank you. I know how to fire up a console in REXX, but I'm not sure what the command would be to start the transaction.
In CICS, I just issue PGMD and from the resultant screen, I can enter the program name, (or the TRAN), and it pops back the date/time of the module. Presumable, the program that gets invoked from the PGMD transaction, would need to be modified to accept the program name upon invocation, but other than that... What would the console command look like? Thanks again, Now to investigate EXCI thanks for the leads. Ren Ext 1448 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Barkow, Eileen Sent: Thursday, March 17, 2016 8:40 AM To: [email protected] Subject: Re: CICS (from Batch) You can invoke the CICS transaction from the MVS console, either manually or by automation or other means. The console running the transaction would have to be defined to CICS and appropriate authority given. Check the log msgs to find out which console is being used. If the program output goes to a terminal, then the output will go back to the console. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Brenton, Ren Sent: Thursday, March 17, 2016 7:40 AM To: [email protected] Subject: CICS (from Batch) 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 ________________________________ This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments. Please notify the sender immediately by replying to this e-mail and delete the e-mail from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN 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
