Accessing Energizer from an ISPF options menu
Accessing
Energizer
from an ISPF options menu requires that you pre-allocate the necessary ISPF data sets to the user.
You must add the following libraries to the TSO logon procedure for each user who requires access to Energizer:
- Load library (ISPLLIB)
- Panel library (ISPPLIB)
- Message library (ISPMLIB)
- Table library (ISPTLIB)
Energizer contains a hidden panel that allows you to specify many ISPF default product values. The panel is located in member IPRPUSER of the IPRPLIB library. Review the member to customize the ISPF interface default values for the product. Comments are included in the member to assist you.
The following figure shows a sample ISPF/PDF Primary Option Menu that has been modified to access Energizer.
%----------------------- ISPF/PDF PRIMARY OPTION MENU -----------------
%OPTION ===> +
%
% 0 +ISPF PARMS - Specify terminal and user parameters
% 1 +BROWSE - Display source data or output listings
% 2 +EDIT - Create or change source data
% 3 +UTILITIES - Perform utility functions
% 4 +FOREGROUND - Invoke language processors in foreground
% 5 +BATCH - Submit job for language processing
% 6 +COMMAND - Enter TSO command or CLIST
% 7 +DIALOG TEST - Perform dialog testing
% C +CHANGES - Display summary of changes for this release
% E +Energizer - Energizer for IMS Connect
% Q +SDSF - Spool Display and Search Facility
% S +SMP/E - New Version of SMP
% T +TUTORIAL - Display information about ISPF/PDF
% X +EXIT - Terminate ISPF using log and list defaults
%
+Enter%END+command to terminate ISPF.
%
)INIT
.HELP = ISR00003
&ZPRIM = YES /* ALWAYS A PRIMARY OPTION MENU */
&ZHTOP = ISR00003 /* TUTORIAL TABLE OF CONTENTS */
&ZHINDEX = ISR91000 /* TUTORIAL INDEX - 1ST PAGE */
)PROC
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
0,'PANEL(ISPOPTA)'
1,'PGM(ISRBRO)'
2,'PGM(ISREDIT)'
3,'PANEL(ISRUTIL)'
4,'PANEL(ISRFPA)'
5,'PGM(ISRJB1) PARM(ISRJPA) NOCHECK'
6,'PANEL(ISRTSOT)'
7,'PGM(ISRYXDR) NOCHECK'
C,'PGM(ISPTUTOR) PARM(ISR00005)'
E,'CMD(IPRCI@00) NEWAPPL(IPR1)
Q,'PANEL(ZSDSFOPT) NEWAPPL(ISF)'
S,'PGM(GIMISCV) PARM(&ZCMD) NEWAPPL(SMP2)'
T,'PGM(ISPTUTOR) PARM(ISR00000)'
' ',' '
X,'EXIT'
*,'?' )
&ZTRAIL = .TRAIL
IF (&OPT = 'Q')
&ZSEL = 'PGM(ISFISP) NOCHECK NEWAPPL(ISF)'
)END
%OPTION ===> +
%
% 0 +ISPF PARMS - Specify terminal and user parameters
% 1 +BROWSE - Display source data or output listings
% 2 +EDIT - Create or change source data
% 3 +UTILITIES - Perform utility functions
% 4 +FOREGROUND - Invoke language processors in foreground
% 5 +BATCH - Submit job for language processing
% 6 +COMMAND - Enter TSO command or CLIST
% 7 +DIALOG TEST - Perform dialog testing
% C +CHANGES - Display summary of changes for this release
% E +Energizer - Energizer for IMS Connect
% Q +SDSF - Spool Display and Search Facility
% S +SMP/E - New Version of SMP
% T +TUTORIAL - Display information about ISPF/PDF
% X +EXIT - Terminate ISPF using log and list defaults
%
+Enter%END+command to terminate ISPF.
%
)INIT
.HELP = ISR00003
&ZPRIM = YES /* ALWAYS A PRIMARY OPTION MENU */
&ZHTOP = ISR00003 /* TUTORIAL TABLE OF CONTENTS */
&ZHINDEX = ISR91000 /* TUTORIAL INDEX - 1ST PAGE */
)PROC
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
0,'PANEL(ISPOPTA)'
1,'PGM(ISRBRO)'
2,'PGM(ISREDIT)'
3,'PANEL(ISRUTIL)'
4,'PANEL(ISRFPA)'
5,'PGM(ISRJB1) PARM(ISRJPA) NOCHECK'
6,'PANEL(ISRTSOT)'
7,'PGM(ISRYXDR) NOCHECK'
C,'PGM(ISPTUTOR) PARM(ISR00005)'
E,'CMD(IPRCI@00) NEWAPPL(IPR1)
Q,'PANEL(ZSDSFOPT) NEWAPPL(ISF)'
S,'PGM(GIMISCV) PARM(&ZCMD) NEWAPPL(SMP2)'
T,'PGM(ISPTUTOR) PARM(ISR00000)'
' ',' '
X,'EXIT'
*,'?' )
&ZTRAIL = .TRAIL
IF (&OPT = 'Q')
&ZSEL = 'PGM(ISFISP) NOCHECK NEWAPPL(ISF)'
)END
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*