On Fri, 9 Mar 2012 11:20:54 -0500, Don Poitras <[email protected]> wrote:
>i Bob Shannon <[email protected]> wrote: >> Q1) Any idea why "TSOLIB ACTIVATE DDNAME(IPCSLIBS)" appears to work at z/OS >> 1.11 but not at 1.13? > >> No idea. > >> Q2) Am I wasting my time here. Should the latest version of IPCS work with >> all older dumps? > >> No, what you are trying to do is necessary. IPCS is not backwards compatible. > >Sure it is. > >> Q3) If the answer to 2) is no then how do other people do this? > >> We copy the IPCS stuff to datasets with a different HLQ. As a vendor we >> receive dumps from a lot of back level systems so we keep the IPCS datasets >> forever. > >You just need the proper SYS1.MIGLIB. Everytime we go to a new release, I >make sure I have a copy. If I get a dump from a previous release, I >place the older release in my TSO STEPLIB. (Actually, I have DDs >allocated with older releases in the concat and just issue TSOLIB >ACTIVATE.) > Sorry if I'm coming into this late... I haven't been following threads closely this week (busy doing z/OS 1.13 upgrades). Below is what I used to invoke a different IPCS level from the running level. It is executed from TSO READY. Note that the IPCSALTD CLIST referenced below is a modified copy of BLSCLIBD where I changed "DATASET" to "LIBRARY ID" and a DDNAME. I also had to do the same thing with BLSCALTL, which is called from BLSCLIBD, and I call it IPCSALTL. PROC 0 VOL(RESMB0) /* /* SPECIAL IPCS CLIST TO BE INVOKED FROM TSO READY TO RUN AN IPCS /* LEVEL THAT IS DIFFERENT FROM THE RUNNING OS LEVEL. /* /* SYNTAX: %IPCSALT OR %IPCSALT VOL(SYSRES) /* /* ONCE THIS CLIST IS INVOKED IT ENTERS ISPF. /* TO INVOKE IPCS, TYPE "TSO %IPCSALTD". /* /* THE CALLED IPCSALTD CLIST USES THE DDNAMES ALLOCATED IN /* THIS CLIST FOR LIBDEFS VIA DDNAME (INSTEAD OF BY DSN). /* /* SYS1.MIGLIB/SYS1.SIEAMIGE ON &VOL DOES NOT HAVE TO BE APF AUTHORIZED /* /* CONTROL LIST CONLIST SYMLIST MSG WRITE WRITE ALLOCATING IPCS LIBRARIES ON &VOL WRITE ALLOC F(MIGLIB) DA('SYS1.MIGLIB') VOL(&VOL) SHR REUSE ALLOC F(SIEAMIGE) DA('SYS1.SIEAMIGE') VOL(&VOL) SHR REUSE ALLOC F(SBLSCLI0) DA('SYS1.SBLSCLI0') VOL(&VOL) SHR REUSE ALLOC F(SBLSMSG0) DA('SYS1.SBLSMSG0') VOL(&VOL) SHR REUSE ALLOC F(SBLSPNL0) DA('SYS1.SBLSPNL0') VOL(&VOL) SHR REUSE ALLOC F(SBLSKEL0) DA('SYS1.SBLSKEL0') VOL(&VOL) SHR REUSE ALLOC F(SBLSTBL0) DA('SYS1.SBLSTBL0') VOL(&VOL) SHR REUSE ALLOC F(IPCSPARM) DA('SYS1.IBM.PARMLIB') VOL(&VOL) SHR REUSE /* CONCATMZ (MIGLIB,SIEAMIGE) */ CALL *(BPXWDYN) 'CONCAT DDLIST(MIGLIB,SIEAMIGE) MSG(WTP)' TSOLIB ACTIVATE FILE(MIGLIB) /* ISPSTART CMD(%IPCSALTD) */ WRITE ******************************************* WRITE *** AFTER YOU ENTER ISPF, TYPE *** WRITE *** "TSO %IPCSALTD" TO INVOKE IPCS *** WRITE ******************************************* ISPSTART PANEL(ISR@PRIM) NEWAPPL(ISR) NOLOGO TSOLIB DEACTIVATE FREE F(MIGLIB) FREE F(SBLSCLI0) FREE F(SBLSMSG0) FREE F(SBLSPNL0) FREE F(SBLSKEL0) FREE F(SBLSTBL0) WRITE WRITE FINISHED DEALLOCATING IPCS LIBRARIES ON &VOL WRITE Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:[email protected] Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
