掌握主机技术的一个重要的本事是:知道在系统的什么地方找到相关的设置。修改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,如下图所示:第二步,找到
TSO logon procedure的存放位置。TSO logon procedure
一般会放在JES2 的PROCxx DD的任何一个PDS中。1
、找到JES2 Started ProcedureJES2 Started Procedure
一般会在SYS1.PROCLIB中。如果不在,找到SYS1.PARMLIB(MSTJCL00)中的IEFPDSI DD下的所有PDS文件。按先后次序查找,JES2 Started Procedure一定会在其中的一个PDS文件中。2
、找到TSO Logon Procedure在
JES2 Started Procedure中,列出所有在PROC00, PROC01等DD之下的所有PDS文件。按照出现的先后顺序在PDS文件中查找到TSO logon procedure。例如TSO logon procedure SYSUSER就放在SYS1.LOGON文件中。第三步,找到
ISPF primary panel名字。每个
第一种情况,
直接在TSO Logon Procedure的格式不尽相同。参照你的系统,对照下面的情况:EXEC PGM=IKJEFT01一行中的PARM中直接给出ISPF Panel的名字,例如:PDF PANEL(ISRR@PRIM)
这里
ISR@PRIM 就是你的ISPF Primary Panel.第二种情况,
EXEC PGM=IKJEFT01一行中的PARM中直接给出一个CLIST或者REXX的名字,让用户登录以后执行该程序。一般在该程序的最后会给出下面一行:PDF PANEL(ISR@SYSP)
得志系统就是第二种情况。例如
TSO Logon Procedure SYSUSER为://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的语句:PDF PANEL(ISR@SYSP)
这里
ISR@SYSP 就是你的ISPF Primary Panel.第四步,找到
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中。第五步,建立新的
ISPF primary panel。修改
建立一个新的在新的拷贝旧的 ISPF primary panel最安全的办法是建立一个新的ISPF primary panel。下面是大概步骤:TSO Logon Procedure,并且在RACF中定义并给与你自己使用权限。例如拷贝现有的SYSUSER到TSOUSER,并在RACF中定义TSOUSER。下面的例子是在
RACF中,定义一个新的TSO Logon Procedure, 并指定用户HUNTER 和组SYSPROG可以使用: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,例如: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). 第六步,修改新的ISPF primary panel。有关
简单的办法,例如增加
在显示屏增加下面一行: ISPF ISPF Pan,请参考 ISPF Dialog Developer's Guide and Reference。SDSF选项:.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。后记
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.
修改
查找并修改查找并修改 在修改如果登录出现问题,回到在主机系统安装和客户化时,通常需要修改主机系统本事带的