[code:1pqzx2z9]/*假设你的逻辑库名为testlib*/
data _null_;
retain prxId;
if _n_=1 then prxId=prxparse('m/\d{6}$/');
set sashelp.vstable(where=(libname='TESTLIB'));
start=prxmatch(prxId,trim(memname));
if start>0;
call execute('data '||trim(libname)||'.'||memname||';set '||trim(libname)||'.'||memname||';length date $6;date ="'||substr(memname,start,6)||'";run;');
run;[/code:1pqzx2z9]