Hi, Rob. This: "Also OPS/MVS supports translating FMODIFYs to R,xx responses."
Thanks for the hint. If the REXX exec I scarfed earlier doesn't do the trick, I will research this. 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: "Klan, Rob (RET-DAY)" <[email protected]> To: [email protected] Date: 03/07/2014 11:11 AM Subject: Re: OPS/MVS Command to Stop IDMS? Sent by: IBM Mainframe Discussion List <[email protected]> Hi Steve I didn?t read all the replies, maybe below discussed. Via an exit IDMS accepts console commands. This exit can also be coded to accept FMODIFY commands rather than post a replid. . Also OPS/MVS supports translating FMODIFYs to R,xx responses. Now you don't need to concern yourself with knowing the reply number. Rob -----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
