Ah. After checking, I see that fmid's H0B5110, H0B7110 and H0Z2110 (the REXX stuff) is common to CICS TS V3, CICS TS V4 and is still in CICS TS V5.
So make sure you know which fmid's you really want to get rid of from which zones. Ant. -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Anthony Thompson Sent: Friday, 10 July 2015 10:40 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Product Remove from z/OS I don't like your ++VER statement. Firstly, the srel should be C150 (CICS), Z038 is for z/OS. Secondly, depending on what elements you have installed, you'll want to delete more than fmid HCI6400 . From the CICS TS 3.1 program directory ( http://publibfp.dhe.ibm.com/epubs/pdf/i1025860.pdf ) : HCI6400 - CICS TS Base JCI6401 - COBOL Language Parts JCI6402 - PL/I Language Parts JCI6403 - C Language Parts and XPLINK JCI640D - IIOP/JAVA HCP3100 - CICSPLEX SM V3R1 (z/OS and OS/2 Remote MAS Support, CMAS and local MAS Support) JCP3102 - CICSPLEX SM V3R1 (SAS components) HBDD110/0103 - CICS Application Migration Aid H0B5110/0103 - CICS REXX Runtime Facility H0B7110/0103 - CICS REXX Development System H0Z2110/0103 - CICS REXX Common for CICS/ESA HCIZ100/0103 - CICS Integrator Adapter for z/OS Ant. -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mainframe Mainframe Sent: Friday, 10 July 2015 1:08 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Product Remove from z/OS Hello, Thanks for suggestion. We coded something like below for removing those FMID from both target and distribution zone of CICS . //FMIDDEL JOB ,,CLASS=A,MSGCLASS=A,REGION=0M,NOTIFY=&SYSUID //S1 EXEC PGM=GIMSMP, // PARM='PROCESS=WAIT', // DYNAMNBR=120 //SMPCSI DD DISP=SHR,DSN='SMPE.CICS.GLOBAL.CSI' //SMPHOLD DD DUMMY //SMPLOG DD SYSOUT=* //SMPOUT DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPLIST DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SMPPTFIN DD * ++FUNCTION (MSZ0001) REWORK(2015100) /***********************************************************/ /* DELETE HCI6400 FROM ALL ZONES */ /***********************************************************/ . ++VER (Z038) DELETE(HCI6400) . /* //SMPCNTL DD * SET BOUNDARY (GLOBAL). RECEIVE SELECT (MSZ0001) SYSMOD. SET BOUNDARY (CICS31T) . APPLY SELECT (MSZ0001) . SET BOUNDARY (CICS31D) . ACCEPT SELECT (MSZ0001) . SET BOUNDARY(CICS31T) . UCLIN. DEL SYSMOD(MSZ0001). DEL SYSMOD(HCI6400). ENDUCL. SET BOUNDARY(CICS31D) . UCLIN. DEL SYSMOD(MSZ0001). DEL SYSMOD(HCI6400). ENDUCL. SET BOUNDARY (GLOBAL). REJECT APARS FUNCTIONS PTFS USERMODS FORFMID(HCI6400). RESETRC. UCLIN. DEL GLOBALZONE FMID(MSZ0001). DEL GLOBALZONE FMID(HCI6400). ENDUCL. /* Please correct, If I made any mistake in this or Am I following wrong path. On Thu, Jul 9, 2015 at 8:08 PM, Kurt Quackenbush <ku...@us.ibm.com> wrote: > SET BDY(GLOBAL). >> UCLIN. >> DEL DZONE(CIC31D) . >> ENDUCL. >> > > No, this will give you a syntax error. To remove from the global zone > the pointers to the target and dlib zones you wish to delete, do this instead: > > SET BDY(GLOBAL). > UCLIN. > DEL GZONE ZONEINDEX((CIC31D, CIC31T)). > ENDUCL. > > > Kurt Quackenbush -- IBM, SMP/E Development > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
