/* REXX -- stripped version for SPF/PC only   1994/06/27 */
address "ISREDIT";"MACRO (tokens)"
"FIND" tokens
if rc \= 0 then do
      zedlmsg = "Not found"
      zedlmsg = "FIND" tokens
      /*Address*/ "ISPEXEC" "SETMSG MSG(ISRZ000)"
      exit 4
end
"(row,col) = cursor"
"loc .zcsr"
"cursor =" row 0
return 1   /* will not work with current SPF/PC */