parm cat=cicaterr.pub.sys, errorcode=" "
##  errhelp.xeq - *requires exists.xeq*
##  Dr. Ferenc Nagy, http://alpha0.iki.kfki.hu/~nagyf/
##    Budapest, Hungary
##  CAT paramter=help file, default: "CICATERR.PUB.SYS":
##  file system and STORE errors.
##  ERRORCODE parameter=errorcodeh. Might be "CIERR500".
file cicat.pub.sys=!cat
exists !cat, cex
if cex > 0 then
   continue
   help !errorcode
else
   echo !CAT does not exist.
endif
reset cicat.pub.sys