PGM=ICET00L

ISPF中使用Ctrl+Z来执行UNDO命令

今天研究的成果，教你们如何在大机上用Windows下用惯了的Ctrl+Z来执行UNDO命令。
首先，ISPF里面UNDO命令默认是没有开启的。我们需要自己写一个Edit Initial Macro来默认开启。方法如下：

step1:在usrid.REXX.EXEC下面新建一个宏EDITMAC，内容如下,保存退出。
/*****************************REXX***********************************/
/* This macro load automaticly when you open a dataset for edit.    */      
 Address  ispexec                                                     
 "ISREDIT MACRO"                                                      
 "ISREDIT RECOVERY ON"                                                                                                  
exit
step2: 随便Edit一个dataset,在command栏上面执行命令EDITSET打开Edit and View Settings面板，

在User session initial macro那里填上step1的宏EDITMAC，按PF3保存退出。

                         Edit and View Settings                          
Command ===>                                                              
                                                               More:     +
Settings for current and future Edit and View sessions:                   

  User session initial macro . . . . . . . . . . . . . . EDITMAC
step3:在command栏上执行KEYS命令调出ISPF键位设置面板，随便找一个PF13至PF24当中你认为最不常用的键，将它和UNDO命令绑定。这里我选择PF18.
 Key       Definition                                 Format  Label
 F16  . .  RETURN                                     SHORT   Return  
 F17  . .  RFIND                                      SHORT   Rfind   
 F18  . .  UNDO                                       SHORT   Undo      
 ```

#####step4: 在你使用的`TN3270`终端的键盘设置里面，将`PF18`映射成*Cntl+Z*。最常见的*TN3270*终端是*PCOMM*。
这样一来，`UNDO`就被默认打开，并且你可以用*Cntl+Z*来做最近一步的撤销动作，就像在windows下面一样。这里要注意，对于还没按下确定键的情况，如果要撤销的快捷键是`Shift+PageUp`.关于`UNDO`和`Shift+PageUp`的区别，看我早些时候的文章:《ISPF中Shift+PageUp和UNDO的区别》  
最后，还有一点，除了`RECOVERY ON`之外，显然其它的*Edit*命令也可以一并添加到`EDITMAC`这个宏里面去，只要你希望它执行。比如：
```ruby
/*****************************REXX***********************************/
/* This macro load automaticly when you open a dataset for edit.    */      
 Address  ispexec                                                     
 "ISREDIT MACRO"                                                      
 "ISREDIT RECOVERY ON"                                                                                                  
 "ISREDIT RES"
 "ISREDIT HI AUTO"
exit

Comments !