Figure 1. Sample ISPF panel ISR@PRIM customization)ATTR
+ TYPE(TEXT) COLOR(GREEN) INTENS(LOW)
)BODY
%------------------------- SAMPLE 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 or CLIST
% 7 +DIALOG TEST - Perform dialog testing
% 8 +LM UTILITIES- Perform library administrator utility functions
% 9 +IBM PRODUCTS- Same as option S (SER PRODUCTS)
% 10 +SCLM - Software Configuration and Library Manager
% C +CHANGES - Display summary of changes for this release
% V +VTAM - VTAM trace analysis commands
% T +TUTORIAL - Display information about ISPF/PDF
% S +SER PRODUCTS- Southeast Region product options
% I +SER IC TOOLS- Southeast Region Info-Center and Toolkits
% P +RPM - Regional Problem Management
% 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 */
&ZSCLMPRJ = &Z
VPUT (ZHTOP,ZHINDEX,ZSCLMPRJ) PROFILE
)PROC
&ZQ = &Z
IF (&ZCMD ¬= ' ')
&ZQ = TRUNC(&ZCMD,'.')
IF (&ZQ = ' ')
.MSG = ISRU000
&ZSEL = TRANS( &ZQ
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)'
9,'PANEL(SERPP000)' /* CHANGED HERE? FROM ISRDIIS */
10,'PGM(ISRSCLM) NOCHECK'
C,'PGM(ISPTUTOR) PARM(ISR00005)'
V,'CMD(%ISTTE01) NEWAPPL(ISTT) &PASSLIB'
T,'PGM(ISPTUTOR) PARM(ISR00000)'
S,'PANEL(SERPP000)'
I,'PANEL(SERIC000)'
P,'CMD(%SRRPM)'
' ',' '
X,'EXIT'
*,'?' )
&ZTRAIL = .TRAIL
)END
Figure 2. Addition of option V to the ISPF/PDF
primary option menuNote: This sample is not necessarily identical to the one on your
system.
----------------------- ISPF/PDF PRIMARY OPTION MENU -----------------
OPTION ===>
USERID - USERID
0 ISPF PARMS - Specify terminal and user parameters TIME - 9:29
1 BROWSE - Display source data or output listings TERMINAL - 3278
2 EDIT - Create or change source data PF KEYS - 12
3 UTILITIES - Perform utility functions
4 FOREGROUND - Invoke language processors in foreground
5 BATCH - Submit job for language processing
6 COMMAND - Enter TSO command or CLIST
7 DIALOG TEST - Perform dialog testing
8 LM UTILITIES- Perform library administrator utility functions
9 IBM PRODUCTS- Same as option S (SER PRODUCTS)
10 SCLM - Software Configuration and Library Manager
C CHANGES - Display summary of changes for this release
V VTAM - VTAM trace analysis commands
T TUTORIAL - Display information about ISPF/PDF
S SER PRODUCTS- Southeast Region product options
I SER IC TOOLS- Southeast Region Info-Center and Toolkits
P RPM - Regional Problem Management
X EXIT - Terminate ISPF using log and list defaults
Enter END command to terminate ISPF.