Hi, Chris. Thanks for the offer - I happily accept. :-)
Cheers,,,Steve Steven F. Conway, CISSP Hosting Services Division, Cloud Technology and Hosting Office, AO-DTS-CTHO-HSD z/OS Systems Support Phone: 703-295-1926 Mobile: 703-402-2650 [email protected] From: Chris Hoelscher <[email protected]> To: [email protected] Date: 03/07/2014 10:51 AM Subject: Re: OPS/MVS Command to Stop IDMS? Sent by: IBM Mainframe Discussion List <[email protected]> First - let me suggest that this inquiry might be better directed to the CA COMMUNITIES user forum (the successor to the LATE GREAT IDMS-L) - you might get different approaches there Having said that, I have code (from another site who graciously gave to me) that suppresses the WTOR and allows MVS OPERATOR commands to manipulate the CV ... I will be happy to send it (after I remove my name to protect the innocent<?>) I think I tested the code (successfully) but never implanted it ... Chris hoelscher Technology Architect | Database Infrastructure Services Technology Solution Services 123 East Main Street |Louisville, KY 40202 [email protected] Humana.com (502) 476-2538 ? office (502) 714-8615 - blackberry Keeping CAS and Metavance safe for all HUMANAty -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Hardee, Chuck Sent: Friday, March 07, 2014 8:08 AM To: [email protected] Subject: Re: [IBM-MAIN] OPS/MVS Command to Stop IDMS? Why not simply submit a UCF/Batch job with a DCMT SHUTDOWN or DCMT SHUTDOWN IMMEDIATE? Remember, the SHUTDOWN command will prompt for confirmation so you need to have a "Y" coded following the DCMT command. //UCFBATCH EXEC PGM=whateveryoucallit //STEPLIB DD DISP=SHR,DSN=your.idms.loadlib // DD DISP=SHR,DSN=any.other.loadlib //SYSCTL DD DISP=SHR,DSN=your.cv.sysctl.dataset.name //SYSIPT DD * DCMT SHUTDOWN Y /* //SYSLST DD SYSOUT=* The above should get you started. Once you have the job working, you should be able to use your scheduler to submit the job at the appropriate shutdown time of day, or condition, etc. Good Luck. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 [email protected] -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of John McKown Sent: Friday, March 07, 2014 8:00 AM To: [email protected] Subject: Re: OPS/MVS Command to Stop IDMS? We don't have IDMS. But we do have some other products with "hang a WTOR" that needs to be replied to in order to shut them down (IMO, poor architecture!). We use CA-OPS/MVS. What we do is look at each outstanding WTOR and look for the proper MSGID to which to reply. The code looks something like: temp = OPSTATUS("R","S","*") /* scan all WTORs */ DO WHILE QUEUED() > 0 PARSE PULL WTOR PARSE PULL LINE2 FROMSYS=WORD(LINE2,4) /* Check that the message is from this z/OS system */ IF FROMSYS<>OPSINFO("SYSNAME") THEN ITERATE PARSE VAR WTOR REPLYNO MSGID . IF MSGID = 'CA-7.574' THEN DO ADDRESS OPER , "R "REPLYNO",STOP" END END END Hopefully this will be of some help, should no one else have an an exact IDMS rule available. On Fri, Mar 7, 2014 at 6:45 AM, Steve Conway <[email protected]>wrote: > Morning, All. > > Does anybody have a command to shut down IDMS regions by responding to > their WTORs they are willing to share? > > I'm kinda pressed for time, and don't have a test region to test rules on, > giving me one shot per night; it's not going quickly enough to keep > everyone happy. > > > Cheers,,,Steve > > Steven F. Conway, CISSP > Hosting Services Division, Cloud Technology and Hosting Office, > AO-DTS-CTHO-HSD > z/OS Systems Support > Phone: 703-295-1926 > Mobile: 703-402-2650 > [email protected] > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Wasn't there something about a PASCAL programmer knowing the value of everything and the Wirth of nothing? Maranatha! <>< John McKown ---------------------------------------------------------------------- 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 The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. ---------------------------------------------------------------------- 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
