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:[email protected]] On Behalf Of Mainframe Mainframe Sent: Friday, 10 July 2015 1:08 AM To: [email protected] 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 <[email protected]> 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 [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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
