/* Rexx */
Trace
address isredit "MACRO (devtype volser) PROCESS"
if rc=20 then ,           /* not running as a edit macro */
   arg devtype volser .   /* therefore get tso parms     */
    upper devtype volser
 
if devtype="" then devtype="3480"
if volser="" then volser="EXTERN" ; volser=right(volser,6,"0")
"TSGTSCAN" devtype volser
address ISPEXEC "CONTROL DISPLAY REFRESH"
exit