If you want to add a selection code for the online retrieval feature to one of the ISPF selection menus, proceed with this step; otherwise, your detailed instructions for ISPF are complete.
To define your selection code, use this command:
PGM(SARSPF) PARM(high-level-database-name) NEWAPPL(SAR)
Use the value next to the NAME parameter on your Initialization Parameter Worksheet for PARM(high-level-database-name).
Note: Adding a selection code allows you to select the online retrieval feature in the same way you would select other ISPF options.
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
This example shows you how to add selection code R to the primary option menu ISR@PRIM for ISPF. Shaded lines identify 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(SARSPF) 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
This 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(EC1XMSPF) 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 ISRUTIL for SPF. Shaded lines identify the inserted lines.
%----------------------- Utility Selection Panel --------------------
%Option ===>_Z + %1 +Library Compress or print data set. Print index listing. Print, + rename, delete, browse, edit or view members %2 +Data Set Allocate, rename, delete, catalog, uncatalog, or display + information of an entire data set %3 +Move/Copy Move, or copy members or data sets %4 +Dslist Print or display (to process) list of data set names. + Print or display VTOC information %5 +Reset Reset statistics for members of ISPF library %6 +Hardcopy Initiate hardcopy output %7 +Transfer Download ISPF Client/Server or Transfer data set %8 +Outlist Display, delete, or print held job output %9 +Commands Create/change an application command table %11+Format Format definition for formatted data Edit/Browse %12+SuperC Compare data sets (Standard Dialog) %13+SuperCE Compare data sets Extended (Standard Dialog) %14+Search-For Search data sets for strings of data (Standard Dialog) %15+Search-ForE Search data sets for strings of data Extended (Extended Dialog) %R +SARSPF Retrieve SYSOUT )INIT .ZVARS = '(ZCMD)' .HELP = ISR30000 .ATTR (ZCMD) = 'PADC(USER)' )PROC &ZCMDWRK = TRUNC(&ZCMD,'.') &ZTRAIL=.TRAIL &ZSEL = TRANS (TRUNC (&ZCMD,'.') 1,'PGM(ISRUDA) PARM(ISRUDA1) SCRNAME(LIBUTIL)' 2,'PGM(ISRUDA) PARM(ISRUDA2) SCRNAME(DSUTIL)' 3,'PGM(ISRUMC) SCRNAME(MCOPY)' 4,'PGM(ISRUDL) PARM(ISRUDLP) SCRNAME(DSLIST)' 5,'PGM(ISRURS) SCRNAME(RESET)' 6,'PGM(ISRUHC) SCRNAME(HARDCOPY)' 7,'PANEL(ISPUDL) SCRNAME(DOWNLOAD)' 8,'PGM(ISRUOLP) SCRNAME(OUTLIST)' 9,'PANEL(ISPUCMA) ADDPOP SCRNAME(CMDTABLE)' 11,'PGM(ISRFMT) SCRNAME(FORMAT)' 12,'PGM(ISRSSM) SCRNAME(SUPERC)' 13,'PGM(ISRSEPRM) SCRNAME(SUPERCE) NOCHECK' 14,'PGM(ISRSFM) SCRNAME(SRCHFOR)' 15,'PGM(ISRSEPRM) PARM(S4) SCRNAME(SRCHFORE) NOCHECK' R,'PGM(SARSPF) PARM(VIEW.SYSTEM1)' ' ',' ' *,'?' ) )END
|
Copyright © 2013 CA.
All rights reserved.
|
|