390进阶: 如何修改ISPF主屏菜单

掌握主机技术的一个重要的本事是：知道在系统的什么地方找到相关的设置。修改ISPF 主屏菜单(ISPF primary menu)就是一个典型的例子。该文主要说明如何修改该主屏菜单，并以得志系统(www.efglobe.com) 上增加SDSF选项为例子。ISPF主屏菜单，或者使用旧系统的ISPF主屏菜单。现在我们主要论述如何在一个现有的系统上修改ISPF主屏菜单，以给用户提供更加方便的功能。其中心思想就是找到现有系统的ISPF的主屏菜单(ISPF Primary Option Menu)的文件位置，然后修改它。做起来容易，说起来难啊！
第一步，找到你的

TSO logon procedure的名字。
在你每次登录输入

TSO用户密码的那一屏，注意到Password 的下面一行Procedure，这就是你的TSO logon procedure, 例如俺的就是SYSUSER，如下图所示：



[b]
第二步，找到

TSO logon procedure的存放位置。
TSO logon procedure

一般会放在JES2 的PROCxx DD的任何一个PDS中。[b]
1

、找到JES2 Started Procedure
JES2 Started Procedure

一般会在SYS1.PROCLIB中。如果不在，找到SYS1.PARMLIB(MSTJCL00)中的IEFPDSI DD下的所有PDS文件。按先后次序查找，JES2 Started Procedure一定会在其中的一个PDS文件中。[b]
2

、找到TSO Logon Procedure
在

JES2 Started Procedure中，列出所有在PROC00, PROC01等DD之下的所有PDS文件。按照出现的先后顺序在PDS文件中查找到TSO logon procedure。例如TSO logon procedure SYSUSER就放在SYS1.LOGON文件中。



[b]
第三步，找到

ISPF primary panel名字。
每个

[b]
第一种情况，

直接在TSO Logon Procedure的格式不尽相同。参照你的系统，对照下面的情况：EXEC PGM=IKJEFT01一行中的PARM中直接给出ISPF Panel的名字，例如:
PDF PANEL(ISRR@PRIM)

这里

ISR@PRIM 就是你的ISPF Primary Panel.[b]
第二种情况，

EXEC PGM=IKJEFT01一行中的PARM中直接给出一个CLIST或者REXX的名字，让用户登录以后执行该程序。一般在该程序的最后会给出下面一行：[b]
PDF PANEL(ISR@SYSP)

得志系统就是第二种情况。例如

TSO Logon Procedure SYSUSER为：[b]
//SYSUSER　//SYSUSER　 PROC TIMEOUT=10　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
//SYSUSER　 EXEC PGM=IKJEFT01,DYNAMNBR=250,PAR

SYSPROG,TIME=&TIMEOUT
//SYSPROC　,TIME=&TIMEOUT
//SYSPROC　 DD DSCENTER.CLIST,DISP=SHR　,DISP=SHR　　　　　　　　　　　　　　　　　　　　　　　　　　　　
//SYSHELP　 DD DSN=SYS1.HELP,DISP=SHR　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
//SYSLBC　
//SYSLBC　　 DD DSN=SYS1.BRODCAST,DISP=SHR　　　　　　　　　　　　　　　　　　　　　　　　　　　
//SYSPRINT DD TERM=TS,SYSOUT=X　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
//SYSTERM　 DD TERM=TS,SYSOUT=X　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
//SYSIN　　　 DD TE=TS　TS　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
//*　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
PARM

一般

中的CLIST SYSPROG一定会存放在该PROC的SYSPROC或者SYSEXEC DD下的任何一个PDS文件中。这里只有一个SYSPROC下PDS，就是CENTER.CLIST。所以找到CENTER.CLIST(SYSPROG)。LOGON的CLIST主要是动态分配ISPF所需的所有文件，在该CLIST的最后找到指定ISPF Primary Panel的语句：[b]
PDF PANEL(ISR@SYSP)

这里

ISR@SYSP 就是你的ISPF Primary Panel.[b]
第四步，找到

ISPF primary panel的位置。
这里以得志系统的

ISR@SYSP为例说明。
ISPF primary panel
例如在得志系统中，

一定会放在当前TSO用户所分配的ISPPLIB DD下的某一个PDS文件中。在TSO Logon Procedure或者CLIST中，找到ISPPLIB DD下的所有PDS文件，按照PDS文件出现的顺序，找到该ISPF primary panel存放的PDS 文件。注意一般的系统都会修改该panel, 并且存放在自己的ISPPLIB PDS 文件中，而保留ISPF软件本身带来的panel，这也适应于所有的其他ISPF panels。TSO logon procedure SYSUSER中指定的ISPF primary panel ISR@SYSP首先出现在PDS文件CENTER.ISPPLIB中。[b]
第五步，建立新的

ISPF primary panel。
修改

建立一个新的

在新的

拷贝旧的

ISPF primary panel最安全的办法是建立一个新的ISPF primary panel。下面是大概步骤：TSO Logon Procedure，并且在RACF中定义并给与你自己使用权限。例如拷贝现有的SYSUSER到TSOUSER，并在RACF中定义TSOUSER。
下面的例子是在

RACF中，定义一个新的TSO Logon Procedure, 并指定用户HUNTER 和组SYSPROG可以使用：[b]
RDEFINE TSOPROC TSOUSER UACC(NONE) OWNER(SYS1)

PERMIT TSOUSER CLASS(TSOPROC) ID(HUNTER)

PERMIT TSOUSER CLASS(TSOPROC) ID(SYSPROG)

SETROPTS RACLIST(TSOPROC) REFRESH

TSO logon procedure中指定新的ISPF primary panel ISR@TSOU，例如： [b]
PDF PANEL(ISR@TSOU)

如果使用

例如拷贝

CLIST或者REXX程序，也需要建立一个新的CLIST或REXX程序。SYSPROG到TSOPROG，并在TSOPROG指定新的ISPF Panel ISR@TSOU.　ISPF Panel ISR@TSOUISPF primary panel (ISR@SYSP) 到新的ISPF primary panel(例如ISR@TSOU).

[b]第六步，修改新的ISPF primary panel。
有关

简单的办法，例如增加

在显示屏增加下面一行：

ISPF　ISPF　Pan，请参考　ISPF Dialog Developer's Guide and Reference。SDSF选项：[b]
.S .SDSF　.S .SDSF　　　　　　　　 .SDSF Panels　　　　　　　　　　　　　　　　　　　　　　　　　





2、在命令下增加下面一行：
　

S,'PGM(ISFISP) NEWAPPL(ISF) SCRNAME(SDSF) NOCHECK'　K'　　　　　



第七步，使用新的

ISPF primary panel。TSO登录时，输入TSO用户的密码以后，在Procedure一栏，记住现有的Procedure的名字，例如SYSUSER, 以便之后还可以改回来。 Procedure一栏的名字倒新的TSO Logon Procedure, 例如本文中的TSOUSER.
该新的

TSO logon procedure 将会使用新的ISPF Primary Panel.



TSO登录屏，将Procedure 改回旧的TSO logon procedure的名字(SYSUSER), 登录到TSO/ISPF以后，修改错误，并重新到步骤1。[b]
后记

ISPF主屏菜单涉及到下面的内容：TSO logon procedure ISPF primary menu.
以你那触类旁通的智商，你也可以参考此文来做下面的事情：

修改

修改

查找和修改现有的

　

JES2 Started Procedure，例如增加一个自己的PROC00 PDS文件，来存放自己的TSO Logon Procedures。 TSO Logon Procedures，例如增加自己的ISPPLIB,来存放自己的ISPF Panels。 started procedure，例如TCPIP的启动PROC.
修改

查找并修改

查找并修改

[/b]
在

修改

如果登录出现问题，回到

[/b][/b][/b][/b][/b][/b][/b][/b]在[/b][/b][/b][/b][/b][/b][/b]
主机系统安装和客户化时，通常需要修改主机系统本事带的