Installing Online Interfaces › How to Complete Configuration of the XMS Online Interfaces With CA MSM › Define Security Requirements › Step 3: (Optional) Modify an ISPF Selection Menu to Select Online Retrieval › Example 3

Example 3

This example shows you how to add selection code 3.R as a sub-option to the utilities menu ISPUTIL for ISPF.

The bright, offset text 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 ISPF 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 +RMOSPF         DELIVER ADMINISTRATION  
)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(EC0XMSPF) PARM(RMO.SYSTEM1) NEWAPPL(RMO)'   
               ' ',' ' 
                 *,'?' ) 
 )END