ISPF-只显示含关键字的所有行
命令：
X ALL; FIND keyword ALL;
比如，只显示所有含DT0907的行，可以这么做，先X ALL;再FIND DT0907 ALL;
VIEW IBMUSER.TESTJCL(TESTJOB) - 01.9 4 CHARS 'DT0907'
Command ===> find dt0907 all Scroll ===> CSR
****** ***************************** Top of Data ******************************
- - - - - - - - - - - - - - - - - - 524 Line(s) not Displayed
000525 //SORTOUT DD DSN=IBMUSER.CREATERT.FILEOUTS.DT0907,DISP ...REXX怎么保存"Find ALL"的结果
最近的项目经常跟MQ打交道,将输入数据填在一个dataset里面提交给MQ解析，字段之间用逗号隔开。所以在测试MQ接口的时候会经常一边对着FSD文档，一边数dataset里面的逗号个数的情况。数多了就烦了。其实到今天才想起来可以用一个"FIND ALL"的ISPF命令。
FIND ',' ALL
这样，逗号的个数就不用数了，直接显示在屏幕右上角。
既然这样，利用REXX应该可以保存这个“FIND ',' ALL'的结果。 研究了一下，可以这样:
编辑IBMUSER.REXX.EXEC(CHECK)这个member,输入如下的macro：
1 ADDRESS ISPEXEC
2 "ISREDIT SEEK ALL ','"
3 "ISREDIT (COUNT) = SEEK_COUNTS"
4 SAY "Comma number: "!! COUNT !! "'!'"
5 EXIT 0
打开MQ的DATASET，比如 ...
more ...