最近的项目经常跟MQ打交道,将输入数据填在一个dataset里面提交给MQ解析，字段之间用逗号隔开。所以在测试MQ接口的时候会经常一边对着FSD，一边嘴里面数着逗号的个数。其实我到今天才想起来可以用一个”FIND ALL”的ISPF命令的。

FIND ‘,’ ALL
这样，逗号的个数就不用数了，直接显示在屏幕右上角。

既然这样，REXX可不可以保存这个“FIND ‘,’ ALL’的结果呢？ 研究了一番，居然让我找到ISREDIT有这个功能：

编辑 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: IBMUSER.PROJ.MQ.INPUT
在command栏上面输入CHECK即可运行，也就比输入“FIND ‘,’ ALL”来得方便一点点…