Thanks, John. I'll play with this and try to adjust it to IDMS.
Thank you very much. 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: John McKown <[email protected]> To: [email protected] Date: 03/07/2014 08:00 AM Subject: Re: OPS/MVS Command to Stop IDMS? Sent by: IBM Mainframe Discussion List <[email protected]> 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
