rewrite vsas file

(1)js    \ASSIGN   xxxfile,xxxfile01.FILE, SHARE=ALL,HOLDMODE=UPDATE;
(2)sl    open i-o xxxfile