Thank you Chuck. This has good possibilities. Your JCL has an interesting program name - is there not a standard utility name?
While I'm on this track, can the SHUTDOWN IMMED command be issued directly against a known IDMS region name, via console command? 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: "Hardee, Chuck" <[email protected]> To: [email protected] Date: 03/07/2014 08:08 AM Subject: Re: OPS/MVS Command to Stop IDMS? Sent by: IBM Mainframe Discussion List <[email protected]> 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
