Thanks John, Patrick, Craig, Norbert! All very helpful and spot on.
With the current version of NetView V5R1 and IMS V9 now fully
implemented it seems we can retire this USERMOD to update IGC0001C.
//*******************************************************************
//* NOTE: IF THE USERMOD HAS NEVER BEEN INSTALLED IN THIS SMP/E
//* ENVIRONMENT, THE RESTORE AND REJECT WILL RECEIVE RC=12 BUT
//* THE RESETRC COMMANDS WILL ALLOW THE OTHER COMMANDS TO BE
//* EXECUTED. IN THIS CASE, THE JOB WILL END WITH RC=12 BUT
//* THE USERMOD WILL SUCCESSFULLY APPLY. THIS CAN BE VERIFIED
//* BY REVIEWING THE SMPOUT AND SMPRPT FOR THE APPLY COMMANDS.
//*******************************************************************
//SMPCNTL DD *
SET BOUNDARY (ORESD1) .
RESTORE S(LIMS221) .
RESETRC .
SET BOUNDARY (GLOBAL).
REJECT S(LIMS221) .
RESETRC .
SET BOUNDARY (GLOBAL).
RECEIVE S(LIMS221) .
SET BOUNDARY (ORESD1) .
APPLY S(LIMS221) CHECK .
APPLY S(LIMS221) RC(APPLY=0).
/*
//SMPPTFIN DD *
++ USERMOD (LIMS221) REWORK(2005280).
++ VER (Z038) FMID(HBB7709)
/* THIS IS THE IMS MR CLEAN ZAP INTO MVS SVC 19
IN LPALIB. (IGC0001C).
- ASYS : DSN=SYS2.IMS.RESLIB
- BSYS : DSN=IMSVSTST.RESLIB
*/ .
++ ZAP(IEAVTRML).
NAME IGC0001C IEAVTRML
REP 0000 C4C6E2D4D9C3D3F0 DFSMRCL0 IMS RES MGR
REP 0008 00000000 RESERVED REQD OMIT WILL CAUSE WAIT040
REP 000C C2D5D1D4E3C5D9D4 BNJMTERM NETVIEW RES MGR
REP 0014 0000000000000000 END OF TABLE
/*
Best Regards,
Sam Knutson, GEICO
Performance and Availability Management
mailto:[EMAIL PROTECTED]
(office) 301.986.3574
"Think big, act bold, start simple, grow fast..."
====================
This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
