On Mon, 12 Mar 2012 04:15:59 -0500, Ron MacRae <[email protected]> wrote:
>Mark,
> Your CLIST is almost identical to my REXX exec. Except I have to
> push the TSOLIB command onto the stack as it won't run under rexx, even with
> an address TSO in front, and I therefore also push "ISPF" as well.
>
>I tried typing in your commands at the TSO ready prompt. Still no joy
>ISPF/IPCS just isn't 'seeing' the TSOLIB.
>
>It works fine on LPARS running z/OS 1.11.
>It just doesn't work at z/OS 1.13 as BLSG gets loaded from ISPLLIB insted of
>the library set with TSOLIB.
>
>Unless I can work out what's wrong I'll have to resort to messing with ISPLLIB
>etc.
>
User error. :-)
I don't know what you are doing wrong. You can use my CLIST "as is" and it
should work.
The key is the TSOLIB prior to invoking ISPF and using a modified BLSCLIBD that
has "LIBRARY ID" instead of "DATASET" in the libdef. I didn't post that
CLIST
and left that as an exercise for the reader, but if it helps, I'll post that
also. Remember
BLSCALTL needs one line changed too (I called my IPCSALTL). I won't post that
CLIST, but here is the line: ALTLIB ACTIVATE APPLICATION(CLIST)
DDNAME(SBLSCLI0)
Here is my IPCSALTD CLIST. You can see the changes marked "MSZ". I have
one other change that forces the DDIR dsn to be userid.DDIR as the
normal BLSCDDIR will make it "SYS1.DDIR" if you run without a prefix.
PROC 0 DSNAME() /* MSZ */
/*
/* SPECIAL IPCS CLIST TO BE INVOKED FROM IPCSALT DRIVER CLIST TO
/* RUN AN IPCS LEVEL DIFFERENT THAN THAT FROM THE RUNNING OS LEVE
/* IT USES LIBRARY/DDNAME IN THE LIBDEFS INSTEAD OF DATASET NAME.
/*
/****************************************************************
/* MODIFIED BLSCLIBD CLIST BELOW - LIBDEFS FOR "DATASET" CHANGED
/* TO LIBDEFS FOR "LIBRARY" WITH DDNAME INSTEAD
/****************************************************************
CONTROL NOLIST ASIS
/* CONTROL LIST CONLIST SYMLIST MSG
/*-----------------------------------------------------------*/
/* TABLE, MESSAGE, SKELETON, AND PANEL LIBRARIES */
/*-----------------------------------------------------------*/
ALTLIB ACTIVATE APPLICATION(CLIST) DDNAME(SBLSCLI0) /* MSZ */
IF &LENGTH(&DSNAME)=0 THEN SET DSNAME=&SYSUID..DDIR /* MSZ */
LISTDSI IPCSDDIR FILE NORECALL /* DUMP DIRECTORY FILE @05A*/
IF &LASTCC>4 THEN %BLSCDDIR VOLUME(LIBVSM) +
DSNAME(&DSNAME) /* MSZ */
ISPEXEC LIBDEF ISPMLIB LIBRARY ID(SBLSMSG0) COND /* MSZ */
ISPEXEC LIBDEF ISPPLIB LIBRARY ID(SBLSPNL0) COND /* MSZ */
ISPEXEC LIBDEF ISPSLIB LIBRARY ID(SBLSKEL0) COND /* MSZ */
/*-----------------------------------------------------------*/
/* INVOKE LIBDEF FOR ISPTLIB ONLY IF BLSGCMDS IS NOT */
/* AVAILABLE. 5@02A*/
/*-----------------------------------------------------------*/
ISPEXEC TBOPEN BLSGCMDS LIBRARY(ISPTLIB) NOWRITE SHARE
IF &LASTCC¬=0 THEN DO
ISPEXEC LIBDEF ISPTLIB LIBRARY ID(SBLSTBL0) COND /* MSZ */
SET TLIBSET=YES
END
ELSE ISPEXEC TBCLOSE BLSGCMDS LIBRARY(ISPTLIB)
/*-----------------------------------------------------------*/
/* START THE IPCS DIALOG AND SETUP THE IPCS CLIST AND REXX */
/* LIBRARY SYS1.SBLSCLI0 AS AN ALTLIB APPLICATION CLIST */
/* LIBRARY. */
/*-----------------------------------------------------------*/
/* ISPEXEC SELECT PGM(BLSG) NEWAPPL(BLSG) PASSLIB PARM(+
/* PGM(BLSGSCMD) PARM(EX 'SYS1.SBLSCLI0(BLSCALTL)')) /* @05C*/
ISPEXEC SELECT PGM(BLSG) NEWAPPL(BLSG) PASSLIB PARM(+
PGM(BLSGSCMD) PARM(EX 'ZELDEN.LIB.CNTL(IPCSALTL)')) /* @05C*/
/*-----------------------------------------------------------*/
/* LOGIC FOR IPCS SECONDARY TUTORIAL PANELS. 8@01A*/
/*-----------------------------------------------------------*/
SET &MYCC=&LASTCC
IF &MYCC>=8 THEN DO
ISPEXEC SETMSG MSG(BLSMB002) COND /* @06C*/
IF &LASTCC<=4 THEN EXIT CODE(&MYCC) /* @06C*/
WRITE DIALOG PROGRAM BLSG ENDED WITH RETURN CODE &MYCC
EXIT CODE(&MYCC) /* @04C*/
END
/*-----------------------------------------------------------*/
/* CANCEL THE DEFINITION AFTER THE IPCS DIALOG IS TERMINATED */
/*-----------------------------------------------------------*/
ISPEXEC LIBDEF ISPMLIB
ISPEXEC LIBDEF ISPPLIB
ISPEXEC LIBDEF ISPSLIB
ALTLIB DEACTIVATE APPLICATION(CLIST) /* @05P*/
/*-----------------------------------------------------------*/
/* CANCEL THE LIBDEF FOR ISPTLIB ONLY IF IT WAS SET. 3@02A*/
/*-----------------------------------------------------------*/
IF &TLIBSET=YES THEN ISPEXEC LIBDEF ISPTLIB /* @05C*/
EXIT CODE(&MYCC) /* @05C*/
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
