Good call, Ed!
Victor,
Are you really sure that you even NEED ISPF and ISPF/PDF, or are you
installing them _just because_ you have them on z/OS? Very few products
really need ISPF and ISPF/PDF. We have them only because they were
required for IBM's old "PROFS" product (the original e-mail system - which
still runs here at Hewitt, although deprecated in favor of Lotus Notes!).
At one time we had a significant CMS development process on VM, and those
developers maintained their own panel libraries
Re-evaluate the actual requirement for ISPF and PDF - as you have
discovered, they are a bit of a pain to install. What do you believe
requires them at your site? Perhaps the IOS3270 on the IBM VM Download
page would suffice (unless you have a product that you KNOW has ISPF and
PDF pre-reqs).
Since we had many developers using ISPF, we moved most of the libraries to
the Y-disk and used the following home-grown ISPFIDEF EXEC to get
everything accessed appropriately. As we say in the U.S. - "Your Mileage
May Vary".
Mike Walter
Hewitt Associates
Any opinions expressed herein are mine alone and do not necessarily
represent the opinions or policies of Hewitt Associates.
/* Prolog; See Epilog for additional information ********************
* Exec Name - ISPFIDEF *
* Unit Support - Information Systems *
* Status - Version 1, Release 1.0 *
********************************************************************/
address 'COMMAND'
arg . '(' options
If 'FIND'(options,'CLEAR') > 0 then
Do
'FILEDEF ISPPROF CLEAR'
'FILEDEF ISPPLIB CLEAR'
'FILEDEF ISPMLIB CLEAR'
'FILEDEF ISPSLIB CLEAR'
'FILEDEF ISPTLIB CLEAR'
'FILEDEF ISPTABL CLEAR'
'FILEDEF ISPLLIB CLEAR'
'FILEDEF ISPXLIB CLEAR'
EXIT 0
End
/* ISPF profile variables maclib (MUST BE ON R/W A-DISK) */
'STATEW PROFISPF MACLIB A'
If rc ^= 0 then
Do
'COPYFILE PROFISPF MACLIB Y = = A'
If Rc ^= 0 then EXIT rc
End
'FILEDEF ISPPROF DISK PROFISPF MACLIB A (PERM'
/* Panel Libraries */
'FILEDEF ISPPLIB DISK ISPNULL PANEL * (PERM CONCAT'
'FILEDEF ISPPLIB DISK PERSPLIB MACLIB A (PERM CONCAT'
'FILEDEF ISPPLIB DISK UNITPLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPPLIB DISK HAPLIB MACLIB Y (PERM CONCAT'
'FILEDEF ISPPLIB DISK AQAPNLA MACLIB Y (PERM CONCAT'
'STATE * * B'
If rc = 0 then
'FILEDEF ISPPLIB DISK EPSVPNL MACLIB B (PERM CONCAT'
'FILEDEF ISPPLIB DISK IMGRPLIB MACLIB Y (PERM CONCAT'
'FILEDEF ISPPLIB DISK ISRPLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPPLIB DISK ISPPLIB MACLIB * (PERM CONCAT'
/* Message Libraries */
'FILEDEF ISPMLIB DISK ISPNULL MESSAGE * (PERM CONCAT'
'FILEDEF ISPMLIB DISK PERSMLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPMLIB DISK UNITMLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPMLIB DISK HAMLIB MACLIB Y (PERM CONCAT'
'FILEDEF ISPMLIB DISK AQAMLIB MACLIB Y (PERM CONCAT'
'STATE * * B' /* PROFS panels */
If rc = 0 then
'FILEDEF ISPMLIB DISK EPSVMSG MACLIB B (PERM CONCAT'
'FILEDEF ISPMLIB DISK ISRMLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPMLIB DISK ISPMLIB MACLIB * (PERM CONCAT'
/* Skeleton Libraries (Boo!) */
'FILEDEF ISPSLIB DISK ISPNULL SKELETON * (PERM CONCAT'
'FILEDEF ISPSLIB DISK PERSSLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPSLIB DISK UNITSLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPSLIB DISK HASLIB MACLIB Y (PERM CONCAT'
'FILEDEF ISPSLIB DISK ISRSLIB MACLIB * (PERM CONCAT'
/* INPUT Table Libraries */
'FILEDEF ISPTLIB DISK ISPNULL TABLE * (PERM CONCAT'
'STATEW PERSTLIB MACLIB A'
If rc ^= 0 then
Do
'COPYFILE PERSTLIB MACLIB Y = = A'
If Rc ^= 0 then EXIT rc
End
'FILEDEF ISPTLIB DISK PERSTLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPTLIB DISK ISPNULL TABLE * (PERM CONCAT'
'FILEDEF ISPTLIB DISK UNITTLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPTLIB DISK HATLIB MACLIB * (PERM CONCAT'
'STATE * * B'
If rc = 0 then
'FILEDEF ISPTLIB DISK EPSTLIB MACLIB B (PERM CONCAT'
'FILEDEF ISPTLIB DISK AQACMDS TABLE Y (PERM CONCAT'
'FILEDEF ISPTLIB DISK ISRTLIB MACLIB * (PERM CONCAT'
'FILEDEF ISPTLIB DISK ISPTLIB MACLIB * (PERM CONCAT'
/* OUTPUT Table Libraries */
'FILEDEF ISPTABL DISK PERSTLIB MACLIB A (PERM CONCAT'
/* Load Libraries */
'FILEDEF ISPLLIB DISK PLILIB LOADLIB Y (PERM CONCAT'
/* Text Libraries */
'FILEDEF ISPXLIB DISK IBMLIB TXTLIB Y (PERM CONCAT'
'FILEDEF ISPXLIB DISK PLILIB TXTLIB Y (PERM CONCAT'
Exit 0
/* Epilog ***********************************************************
* Function - Set (or CLEAR) ISPF FILEDEFS prior to ISPF *
* invokation. *
* Component of - Hewitt Associates System 1 menu invokation *
* and other routines as they invoke ISPSTART *
* Command format- ISPFIDEF w/ or w/o (CLEAR *
* Called by - ISPF, ISPSTART, and perhaps others *
* Dependencies - VM/SP 3 or higher. *
* e.g. LISTFILE, COPYFILE, etc. *
* Program Lang. - CMS REXX *
* Return Codes - 0, Successful completion *
* Date Written - 12/28/88 *
* Author - Michael R. Walter *
* Changed | By | Description of Change *
* --------+-----+------------------------------------------------- *
* mm/dd/yy iii - *
* 01/18/89 CJP Add CLEAR option, reorder filedefs *
* 05/22/89 BWW Install PLI TEST options *
* 10/05/89 DAE Commented out IVISS Filedefs *
* 07/01/99 MRW Update for ESA 230. *
* *
********************************************************************/
The information contained in this e-mail and any accompanying documents may
contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if this
message has been addressed to you in error, please immediately alert the sender
by reply e-mail and then delete this message, including any attachments. Any
dissemination, distribution or other use of the contents of this message by
anyone other than the intended recipient is strictly prohibited. All messages
sent to and from this e-mail address may be monitored as permitted by
applicable law and regulations to ensure compliance with our internal policies
and to protect our business. E-mails are not secure and cannot be guaranteed to
be error free as they can be intercepted, amended, lost or destroyed, or
contain viruses. You are deemed to have accepted these risks if you communicate
with us by e-mail.
