data minor;
infile 'a:minor.dat';
input ich afun $ 4 asz $ 6-7 itrt ityp pmn fe al b cu zn sr ba;
proc print;
run;