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
