/* REXX */
address ispexec "vget zuser"
isfprefx = zuser"*"
address ispexec "vput (isfprefx) shared"
address ispexec "select pgm(isfisp) parm(st)"