On Fri, 2 May 2008 08:11:52 -0500, Mark Zelden <[EMAIL PROTECTED]> wrote:
>On Fri, 2 May 2008 14:38:41 +0300, Binyamin Dissen ><[EMAIL PROTECTED]> wrote: > >>I steplib to the 1.9 miglib and miglibe. What else is critical? >> > >This is what I use. > >3 clists... an invocation libdef that works by volser (sysres.. point to correct >release). I call it IPCSALT. And modified versions of BLSCLIBD (IPCSALTD) >and BLSCALTL (IPCSALTL) from hlq.SBLSCLI0 where all the references >to LIBDEFs via DATASET + DSN are changed to LIBRARY + DDNAME. > >Here is just my invocation exec. Making modified copies of BLSCLIBD >and BLSCALTL are left as an exercise to the reader. > Guess I never tested this from anything but the current system when I added in SIEAMIGE. You can't use VOLSER for an uncataloged concatenation with TSO ALLOCATE. The way I deal with that is to use BPXWDYN since it is supported. You can also use one of the "CONCAT" flavors floating around. So here is my updated IPCSALT CLIST: PROC 0 VOL(RESM90) /* /* 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 /* CONCAT (MIGLIB,SIEAMIGE) */ /* */ /* IPCSMIG IS A REXX THAT CONTAINS */ /* CALL BPXWDYN 'CONCAT DDLIST(MIGLIB,SIEAMIGE) MSG(2)' */ /* IN ORDER TO CONCATENATE 2 UNCATALOGED DATA SETS */ %IPCSMIG TSOLIB ACTIVATE FILE(MIGLIB) /* ISPSTART CMD(%IPCSALTD) */ WRITE ******************************************* WRITE *** AFTER YOU ENTER ISPF, TYPE *** WRITE *** "TSO %IPCSALTD" TO INVOKE IPCS *** WRITE ******************************************* ISPSTART PANEL([EMAIL PROTECTED]) 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 -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html ---------------------------------------------------------------------- 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