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