Accessing ETA from an ISPF options menu
Accessing ETA 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 ETA:
- Load library (ISPLLIB)
- ISPF panel library (ISPPLIB)
- ISPF message library (ISPMLIB)
- ISPF table library (ISPTLIB)
ETA contains a hidden panel that allows you to specify many ISPF default product values. The hidden panel is located in member ETAZUSER of the ETAPLIB library. Review the member to customize the ISPF interface default values for ETA. 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 ETA.
Sample modifications to ISPF/PDF Primary Option Menu
%----------------------- 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 +ETA - EXTENDED TERMINAL ASSIST PLUS
% 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(ETAEXEC MAIN) NEWAPPL(ETA) PASSLIB'
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 +ETA - EXTENDED TERMINAL ASSIST PLUS
% 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(ETAEXEC MAIN) NEWAPPL(ETA) PASSLIB'
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
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*