/* REXX */
TRACE
'ISPEXEC VGET (COBJ,CALLOCSP)'
say "volser=" cobj
say "alloc =" CALLOCSP
exit