Previous Topic: (Optional) Step 1: Add STEPLIB Statements

Next Topic: Example 3


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