*option mlogic;
*option mprint;
*option symbolgen;
%macro prasatka1(pocet=, path=j:/prasatka);

%local i;
%local j;

%do i=1 %to &pocet;

DATA profa&i;

infile "&path/file&i..txt" lrecl=19 ;


INPUT    

@1 cislo $2. 
@4 porlak 1. 
@6 rokot 4. 
;
 run;

%end;

%do j=1 %to &pocet;
%if &j eq 1 %then %do;
						data profa;
     						 set profa&j;
						run;
					   %end;
	%else %do;
			  data profa;
			       set profa profa&j;
              run;
              %end;

%end;

%mend prasatka1;
run;

*%Let path=C:/prasatka;
*%Let pocet=2;

%prasatka1 (pocet=2);