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
| Copyright © 2012 CA. All rights reserved. |
|