如何为IBM z/OS TSO ISPF Editor的Cancel命令添加确认对话框

核心思路 #

ISPF的命令执行优先级中，用户自定义命令表会优先于内置命令触发，因此无需替换系统内置的CAN/CANCEL命令，只需通过命令表拦截该命令，转向执行带确认逻辑的自定义REXX程序即可。

具体步骤 #

1. 编写带确认逻辑的REXX Exec #

创建名为CANCONF的REXX程序（名称可自定义），实现确认判断与后续执行逻辑：

/* REXX - 拦截CANCEL命令并添加确认 */
address ISPEXEC
"DISPLAY PANEL(CNFPANEL)"  // 调用自定义确认面板
if rc = 0 then do          // 用户选择确认取消
  "EDIT CANCEL"            // 执行真正的编辑会话取消操作
end
// 用户选择取消则直接返回，不执行CANCEL
exit

2. 创建确认对话框面板（CNFPANEL） #

编写ISPF面板定义，用于弹出确认提示：

)ATTR
$ TYPE(INPUT) INTENS(HIGH)
)BODY
%--------------------------- ARE YOU SURE? ---------------------------%
%                                                                     %
%  确定要取消编辑会话并丢弃所有修改吗？                                %
%                                                                     %
%  ===> _ZCMD                                                         %
%                                                                     %
%  选项：                                                              %
%    YES - 确认取消  |  NO - 返回编辑会话                              %
)INIT
&ZCMD = 'NO'
)PROC
IF &ZCMD = 'YES' THEN DO
  EXIT CODE(0)
END
EXIT CODE(8)
)END

将该面板保存到你的ISPF面板库（如USER.PANELS），并确保该库已加入ISPF的面板搜索路径（通过ISPPLIB环境变量配置）。

3. 配置ISPF用户命令表 #

• 进入ISPF主菜单，输入3.11进入命令表维护界面，选择U（用户命令表）。
• 添加命令映射规则：
  • 命令名：分别添加CAN和CANCEL（或使用通配符匹配）
  • 执行程序：填写CANCONF（即你编写的REXX Exec名称）
  • 类型：选择COMMAND
• 保存命令表后退出，重新进入ISPF Editor，此时输入CAN或CANCEL会先触发确认弹窗。

注意事项 #

• 确保CANCONF所在的库已加入SYSEXEC或ISPLLIB路径，保证ISPF能找到该REXX程序。
• 优先使用用户级命令表，避免修改系统级命令表影响其他用户。
• 测试时先在非重要编辑会话中验证逻辑，确认无误后再日常使用。

内容的提问来源于stack exchange，提问作者WStanzl