IBM DebugTool: 主动终止调试
在debug程序的过程中，如果已经知道了出错的原因不想再继续debug下去，但是又不希望按PF9使程序继续正常执行完(因为这样程序会把你辛辛苦苦造好的测试数据给消耗掉)。这时候，你可以在COMMAND栏输入：
more ...trigger overflow
这样程序就会被当成正常溢出抛异常处理，你的测试数据就不会被消耗掉。除了
overflow，其他异常终止的event也可以，比如数据转换异常这样的event。
CICS中查看TSQ的命令:CEBR
可以用CEBR这个transaction来查看和删除TSQ信息。这里:
CEBR#0VJ是TSQ的名字;-
Z300是当前CICS region的名字。
```ruby CEBR TSQ CEBR#0VJ SYSID Z300 REC 1 OF 0 COL 1 OF 0 ENTER COMMAND ===>
**** TOP OF QUEUE ********* BOTTOM OF QUEUE ****
TS QUEUE CEBR#0VJ DOES NOT EXIST
PF1 : HELP PF2 : SWITCH HEX/CHAR PF3 : TERMINATE ...
ISPF中Shift+PageUp和UNDO的区别
两者都是撤销，相当于windows下的'Ctrl+z'。但分工不同，Shift+PageUp只能撤销未按回车之前的修改动作，对于按了回车就无力回天了。
而UNDO负责的是撤销回车之后的修改动作，请注意务必要事先用命令'Rec on'打开ISPF的recovery开关。
TSO重新登录命令
有时候TSO异常退出，而服务器端进程还没kill掉，于是在你尝试再次登录的时候，返回提示：
“already logged on to system IKJ56400A ENTER LOGON OR LOGOFF-”
用命令告诉远程主控端你要reconnect。
解决办法
more ...logon yourUID recon
SOME INPUT DATA IGNORE
在编辑dataset的时候如果右上角提示SOME INPUT DATA IGNORE,请记得把每行末尾的行号关闭:
more ...NUM OFF
否则，后面8位就是行号，将此文件作为程序的input的时候就危险了!
S000 U0004 ABEND ERROR
遇到了'S000 U0004 ABEND ERROR'错误。
一如既往地分析dump，发现是由于我在JCL里面添加了'PARM='TEST(ALL,,,VTAM%IBMUSER:)'的debug参数，而我要debug的程序的loadmodule不在test环境里面，导致JCL试图去debug生产环境的loadmodule，抛出'S000 U0004‘错误，应该是access vialation之类的错误吧,修改完loadmodule的路径就好了。
Watir登陆微博发布微博
#encoding: UTF-8 #添加这一行才可以处理中文
require 'rubygems' #gem install xxx --no-ri --no-rdoc
require 'timeout'
require 'watir-webdriver'
b = Watir::Browser.new(:firefox, {:profile => 'default'})
b.goto 'www.weibo.com'
b.text_field(:class,"W_input").focus
b.text_field(:class,"W_input").set 'your_weibo_email_account'
b.div(:class, "inp password").text_field(:type,"password").set 'your_weibo_password'
b.link(:class ...No space in directory
在一个pds下面create member的时候右上角出现错误：
No space in directory
按PF1,提示：
PDS directory is full, allocate more directory blocks.
错误原因：当前PDS下面所容纳的member数量已经达到最大值了。用'I' 查看PDS的信息：
Current Allocation
Allocated cylinders : 1
Allocated extents . : 1
Maximum dir. blocks : 10
Current Utilization
Used cylinders . . : 1
Used extents . . . : 1
Used dir. blocks . : 10
Number of members ...CEE3250C S806 R=00000004
新写了个程序，JCL提交完出现错误:
more ...CEE3250C The system or user abend S806 R=00000004 was issued.
分析dump，发现原因是:程序不在loadlib里面
"load module is not found in the library".忘记promote程序到相应环境了!
PLI打印出PIC类型输出
使用PLI打印输出信息，最常见的是:
PUT SKIP(1) EDIT ('CODE = ',ERR_CODE)(A,A);
这里是打印PIC类型的输出，不怎么常用。今天用到了，所以记在这:
PUT EDIT('ACCOUNT PROCESSED : ',ACCOUNT_CTR)
(SKIP(1),COL(1),A,P'999999999');
PUT SKIP FILE(OUTFILE) EDIT('CHENGDU: ',SOURCE)
(A,P'ZZ,ZZZV.ZZ');