data teste1;
input trat $ bloco PESO;
cards;
A 1 100
A 2 130
B 1 99
B 2  145
;
proc print;
title 'Dados para verificação';
run;

data teste2;
input trat $ 1 bloco 3 PESO 5-7;
cards;
A 1 100
A 2 130
B 1  99
B 2 145
;
proc print;
run;

data;
input trat $ bloco PESO;
cards;
A 1 100 A 2 130
B 1  99 B 2 145
;
proc print;
title 'Arquivo com problemas';
run;

data;
input trat $ bloco PESO @@;
cards;
A 1 100 A 2 130
B 1  99 B 2 145
;
proc print;
title;
run;