Previous Topic: Step 3: (Optional) Modify an ISPF Selection Menu to Select Online Retrieval

Next Topic: Example 2

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 1

Example 1

This 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 +RMOSPF      - DELIVER ADMINISTRATION  
%   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(EC0XMSPF) PARM(RMO.SYSTEM1) NEWAPPL(RMO)' 
                T,'PGM(ISPTUTOR) PARM(ISR00000)'                        
               ' ',' '      
                 X,'EXIT'  
                 *,'?' )      
   &ZTRAIL = .TRAIL   
 )END

Note: