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.
PROC 0 VOL(RESM60)
/*
/* 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(MIGLIB) DA('SYS1.MIGLIB','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
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(ISP) 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
