Here's the REXX exec we use. We have multiple CVs so we loop thru the WTORs
/* REXX */
REPLY_NUM = 0
IDMS_CNT = 0
VERSION_CNT = 0
"OPSCMD C(D R,R) OUTPUT"
DO WHILE QUEUED() > 0
PULL RESPONSE
PARSE VAR RESPONSE RID V1 V2 V3 V4 V5 V6 VIDMS VVERS.
IF VIDMS ¬= 'IDMS' THEN NOP
ELSE
DO
IDMS_CNT = IDMS_CNT + 1
REPLY_NUM = RID
"OPSCMD C("REPLY_NUM",SHUTDOWN) OUTPUT"
END
END
RETURN
Jim LaDouceur | Principal Systems Engineer || office: 508-598-4066 |
[email protected]
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Steve Conway
Sent: Friday, March 07, 2014 7:46 AM
To: [email protected]
Subject: OPS/MVS Command to Stop IDMS?
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
