Changing the initial entry point to the DFSMSrmm dialog
Normally, when you enter the DFSMSrmm ISPF dialog, the first panel you see is the Primary Option Menu. You can change this initial entry point so tape librarians always see the Librarian Menu when they enter DFSMSrmm or general users see the DFSMSrmm User Menu.
To change the initial entry point, use the RMMISPF exec with one of its optional parameters which changes the panel navigation to go directly to a lower level. Figure 1 shows the operands you can use with the RMMISPF exec.
Each of the operands, except for TRACE, represents a specific user or function menu from which you can request functions. Use the TRACE(option) operand to diagnose problems in any of the REXX execs supplied in the dialog. For more information about using TRACE, see z/OS DFSMSrmm Diagnosis Guide.
% R +DFSMSrmm - Librarian dialog
Although the example shows the ISRUTIL panel, you can use any
other selection panel to make the changes.%------------------------- UTILITY SELECTION MENU ---------------------
%OPTION ===>_ZCMD
%
% 1 +LIBRARY - Compress or print data set. Print index listing.
+ Print, rename, delete, or browse members
% 2 +DATASET - Allocate, rename, delete, catalog, uncatalog, or
+ display information of an entire data set
% 3 +MOVE/COPY - Move, copy, or promote 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
% 8 +OUTLIST - Display, delete, or print held job output
% 9 +COMMANDS - Create/change an application command table
% 10 +CONVERT - Convert old format menus/messages to new format
% 11 +FORMAT - Format definition for formatted data Edit/Browse
% 12 +SUPERC - Compare data sets (Standard dialog)
% 13 +SUPERCE - Compare data sets (Extended dialog)
% 14 +SEARCH-FOR - Search data sets for strings of data
% R +DFSMSrmm - Librarian dialog
)INIT
.HELP = ISR30000
)PROC
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
1,'PGM(ISRUDA) PARM(ISRUDA1)'
2,'PGM(ISRUDA) PARM(ISRUDA2)'
3,'PGM(ISRUMC)'
4,'PGM(ISRUDL) PARM(ISRUDLP)'
5,'PGM(ISRURS)'
6,'PGM(ISRUHC)'
8,'PGM(ISRUOLP)'
9,'PANEL(ISPUCMA)'
10,'PGM(ISRQCM) PARM(ISRQCMP)'
11,'PGM(ISRFMT)'
12,'PGM(ISRSSM)'
13,'PGM(ISRSEPRM) NOCHECK'
14,'PGM(ISRSFM)'
R,'CMD(%RMMISPF LIBRARIAN) NEWAPPL(EDG)'
' ',' '
*,'?' )
&ZTRAIL = .TRAIL
)END
