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
