The names of the panel libraries vary from site to site and for the different releases of ISPF. These panel libraries are allocated to the ISPPLIB DD statement under TSO.
Be aware that some installations do not allow direct modifications of IBM panels and libraries. In this case, you can place the modified panels in user or site-specific libraries and concatenate them ahead of the IBM libraries.
Ask your system administrator for the specific ISPF panel library that applies to your site and contains the panel ISR@PRIM.
Note: The selection menus shown in the following examples are part of the program products SPF and ISPF, and are copyrighted by IBM.
Example 1
The following example shows you how to add selection code R to the primary option menu ISR@PRIM for ISPF. The bright, offset text identifies the inserted lines.
%----------------------- ISPF/PDF PRIMARY OPTION MENU --------------------
%OPTION ===>_ZCMD + % +USERID - &ZUSER % 0 +ISPF PARMS - Specify terminal and user parameters +TIME - &ZTIME % 1 +BROWSE - Display source data or output listings +TERMINAL - &ZTERM % 2 +EDIT - Create or change source data +PF KEYS - &ZKEYS % 3 +UTILITIES - Perform utility functions % 4 +FOREGROUND - Invoke language processors in foreground % 5 +BATCH - Submit job for language processing % 6 +COMMAND - Enter TSO Command, CLIST, or REXX exec % 7 +DIALOG TEST - Perform dialog testing % 8 +LM UTILITIES- Perform library administrator utility functions % C +CHANGES - Display summary of changes for this release % R +SARSPF - Retrieve SYSOUT % 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) PARM(ISRBRO01)' 2,'PGM(ISREDIT) PARM(P,ISREDM01)' 3,'PANEL(ISRUTIL)' 4,'PANEL(ISRFPA)' 5,'PGM(ISRJB1) PARM(ISRJPA) NOCHECK' 6,'PGM(ISRPTC)' 7,'PGM(ISPYXDR) PARM(ISR) NOCHECK' 8,'PANEL(ISRLPRIM)' C,'PGM(ISPTUTOR) PARM(ISR00005)' R,'PGM(EC2XMSPF) PARM(VIEW.SYSTEM1) NEWAPPL(SAR)' T,'PGM(ISPTUTOR) PARM(ISR00000)' ' ',' ' X,'EXIT' *,'?' ) &ZTRAIL = .TRAIL )END
Note:
This parameter is used with the command table library concatenation from Step 3 of the ISPF Installation Instructions.
If this parameter is not specified, certain PF keys such as the scroll keys may not function.
Example 2
The following example shows you how to add selection code R to the primary option menu ISP@PRIM for SPF. Shading identifies the inserted lines.
%----------------------- SPF-MVS PRIMARY OPTION MENU ---------------
%OPTION ===>_OPT % +USERID - % 0 +ISPF PARMS - SPECIFY TERMINAL AND USER PARAMETERS +TIME - % 1 +BROWSE - DISPLAY SOURCE DATA OR OUTPUT LISTINGS +TERMINAL - % 2 +EDIT - CREATE OR CHANGE SOURCE DATA +PF KEYS - % 3 +UTILITIES - PERFORM SPF UTILITY FUNCTIONS % 4 +FOREGROUND - COMPILE, ASSEMBLE, OR DEBUG % 5 +BACKGROUND - COMPILE, ASSEMBLE, OR LINK EDIT % 6 +COMMAND - ENTER TSO COMMAND OR CLIST % 7 +SUPPORT - TEST DIALOG OR CONVERT MENU/MESSAGE FORMATS % 8 +LM UTILITIES- PERFORM LIBRARY ADMINISTRATOR UTILITY FUNCTIONS % R +SARSPF - RETRIEVE SYSOUT % T +TUTORIAL - DISPLAY INFORMATION ABOUT SPF % X +EXIT - TERMINATE SPF USING LIST/LOG DEFAULTS % +PRESS%END KEY TO TERMINATE SPF+ % )INIT .HELP = TTUTOR &ZHTOP = TTUTOR /* TUTORIAL TABLE OF CONTENTS */ &ZHINDEX = TINDEX /* TUTORIAL INDEX - 1ST PAGE */ )PROC &ZSEL = TRANS( TRUNC (&OPT,'.') 0,'PANEL(ISPOPT)' 1,'PGM(ISRBRO)' 2,'PGM(ISPEDIT)' 3,'PANEL(ISPUTIL)' 4,'PANEL(ISPFORA)' 5,'PANEL(ISRJOB)' 6,'PGM(ISPTSO)' 7,'PANEL(ISPOTAC)' R,'PGM(EC2XMSPF) PARM(VIEW.SYSTEM1)' T,'PGM(ISPTUTOR) PARM(T)' ' ',' ' X,'EXIT' *,'?' ) )END
Example 3
This example shows you how to add selection code 3.R as a sub‑option to the utilities menu ISPUTIL for ISPF. Shading identifies the inserted lines.
%----------------------- UTILITY SELECTION MENU --------------------
%OPTION ===>_OPT + % + % 1 +LIBRARY LIBRARY UTILITY: + PRINT INDEX LISTING OR ENTIRE DATASET + PRINT, RENAME, DELETE, OR BROWSE MEMBERS + COMPRESS DATASET % 2 +DATASET DATASET UTILITY: + DISPLAY DATASET INFORMATION + ALLOCATE, RENAME, OR DELETE ENTIRE DATASET + CATALOG OR UNCATALOG DATASET % 3 +MOVE/COPY MOVE OR COPY MEMBERS OR DATASETS % 4 +CATALOG CATALOG MANAGEMENT: + DISPLAY OR PRINT CATALOG ENTRIES + INITIALIZE OR DELETE USER CATALOG ALIAS % 5 +RESET RESET STATISTICS FOR MEMBERS OF SPF LIBRARY % 6 +HARDCOPY INITIATE HARDCOPY OUTPUT % 7 +VTOC DISPLAY OR PRINT VTOC ENTRIES FOR A DASD VOLUME % 8 +OUTLIST DISPLAY, DELETE, OR PRINT HELD JOB OUTPUT % 9 +SCRIPT/VS FORMAT,DISPLAY, AND OPTIONALLY PRINT SCRIPT TEXT % R +SARSPF RETRIEVE SYSOUT )INIT .HELP = TU )PROC &SEL = TRANS( TRUNC (&OPT,'.') 1,'PGM(ISPUDA) PARM(UDA1)' 2,'PGM(ISPUDA) PARM(UDA1)' 3,'PGM(ISPUMC)' 4,'PGM(ISPUCA)' 5,'PGM(ISPURS)' 6,'PGM(ISPUHC)' 7,'PGM(ISPUVT)' 8,'PGM(ISPUOL) PARM(UOL01)' 9,'PGM(ISPUSC) PARM(SCRPTA)' R,'PGM(EC2XMSPF) PARM(VIEW.SYSTEM1)' ' ',' ' *,'?' ) )END
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|