Rexx调用ISPF命令
Ricky
posted @ 2013年12月06日 08:47
in Other
, 1388 阅读
比如打开文件后查找字符串
Main Program:
ADDRESS ISPEXEC "VPUT (FIELD) SHARED"
ADDRESS ISPEXEC "VIEW DATASET('"tabMember"') MACRO(FINDIT)"
FINDIT Macro: ADDRESS ISPEXEC "VGET (FIELD) SHARED" ADDRESS ISREDIT "MACRO" ADDRESS ISREDIT "FIND '" || field || "'"
评论 (0)