Código SAS para generación de archivo de control de SQL sqlloader..

...

trim(todas_las_variables));

call symput("tabla_a_homologar_&i.", trim(UPCASE("&tabla_a_homologar.")));

end;

run;

proc contents

data=dds_h.&tabla_a_homologar. (rename=(&&cambiar_nombres_&i.))

out=&tabla_a_homologar. varnum;

run;

proc sort data=&tabla_a_homologar.;

by memname varnum;

run;

data _NULL_;

set &tabla_a_homologar.;

by memname varnum;

retain todas_las_variables;

length todas_las_variables $ 32500;

if first.memname then do;

todas_las_variables = name;

end;

else do;

todas_las_variables = trim(todas_las_variables) || ", " || name;

end;

if last.memname then do;

call symput("variables_renombradas_&i.", trim(todas_las_variables));

end;

run;

%put &&todas_las_variables_&i.;

%put &&tabla_a_homologar_&i.;

%end;

*Crea script sql que contiene las sentencias insert para anexar las tablas a homologar;

data _NULL_;

file "&montaje./procload/bulkload/&tabla_homologada..sql" ;

put "SPOOL &montaje./procload/logs/sqlplus_&tabla_homologada..log;";

put " ";

%do i = 1 %to &numero_de_tablas_a_homologar.;

put "insert into &tabla_homologada. ";

put " (&&variables_renombradas_&i., tabla_sas_origen, identificadorsillo)";

put " select ";

put " &&todas_las_variables_&i.,";

put " ’&&tabla_a_homologar_&i.’ as tabla_sas_origen,";

put " rownum as identificadorsillo";

put " from &&tabla_a_homologar_&i.;";

put "commit;";

%end;

put "exit;";

run;

%mend;

%homologa_feliz();

proc printto ;

run;