show vari Str_arg
inquire char vari Str_arg text "NEW SEQUENCE ID ROOT::"
rename  sequence  Str_arg select by resi active end auto
return