PROC SQL NOPRINT;
SELECT 'DADOS.'||TRIM(MEMNAME) AS MEMNAME
INTO :TABELAS SEPARATED BY ' '
FROM SASHELP.VMEMBER
WHERE LIBNAME = "DADOS"
AND MEMNAME LIKE "TABELA_2022%"
;QUIT;
%PUT &=TABELAS;
DATA APRC_1;
SET &TABELAS INDSNAME=DSNAME;
ANOMES_ARQ = INPUT(SCAN(DSNAME, -1, '_'), 6.);
RUN;