Try this code. You may want to edit variables informat.
[pre]
%macro cfin10(input=d:\dep\input\2009, out=obordop2009);
/* read files in directory INPUT */
%let dir=%str(dir %")&input.%str(\%" /A-D/B/ON);
data &out (compress=yes drop=filevar);
length filevar $256. command $256. fname $256.;
command = symget('dir');
infile dummy0 pipe filevar=command truncover;
input myfiles $100.;
fname=quote(upcase(cats("&input",'\',myfiles)));
infile dummy1 firstobs=2 dlm='09'x ls=32000 truncover dsd filevar=fname end=eof ;
informat
ship_to_party $10.
publication $5.
edition $2.
oplagskat $10.
subscr_valid_from ddmmyy10.
bill_freq $10.
pmethod $10.
r_code $10.
ordernr $9.
fremtidig_aktiv $10.
fornavn $50.
efternavn $70.
vej $70.
husnr $10.
husnr_suppl $5.
etage $1.
side $10.
postnr 17.
by $50.
land $2.
tlf 17.
bp_kat $1.
orgnavn1 $50.
orgnavn2 $50.
orgnavn3 $50.
orgnavn4 $10.
EMail $50.
Marketing_campaign $10.
ship_robinson $10.
sold_to_party $10.
sold_fornavn $50.
sold_efternavn $50.
sold_vej $50.
sold_husnr 17.
sold_husnr_suppl $1.
sold_etage $1.
sold_side $1.
sold_postnr 17.
sold_by $50.
sold_land $2.
sold_tlf 17.
sold_bp_kat $1.
sold_orgnavn1 $50.
sold_orgnavn2 $50.
sold_orgnavn3 $50.
sold_postbox $50.
sold_email $50.
sold_robinson $50.
samme $2.
tom_variabel2 $10.
del_end $10.
endreason $10.
matriculationdate $10.
suspension_from $10.
suspension_to $10.
Suspension_reason $10.
Delivery_type $1.
pricegroup $10.
;
do while(not eof);
input
ship_to_party
publication
edition
oplagskat
subscr_valid_from
bill_freq
pmethod
r_code
ordernr
fremtidig_aktiv
fornavn
efternavn
vej
husnr
husnr_suppl
etage
side
postnr
by
land
tlf
bp_kat
orgnavn1
orgnavn2
orgnavn3
orgnavn4
EMail
Marketing_campaign
ship_robinson
sold_to_party
sold_fornavn
sold_efternavn
sold_vej
sold_husnr
sold_husnr_suppl
sold_etage
sold_side
sold_postnr
sold_by
sold_land
sold_tlf
sold_bp_kat
sold_orgnavn1
sold_orgnavn2
sold_orgnavn3
sold_postbox
sold_email
sold_robinson
samme
tom_variabel2
del_end
endreason
matriculationdate
suspension_from
suspension_to
Suspension_reason
Delivery_type
pricegroup
;
if not missing(ship_to_party) then output;
end;
run;
%mend cfin10;
%cfin10(input=d:\work\morv, out=tmorville);
[/pre]
Message was edited by: Oleg_L
Message was edited by: Oleg_L
Message was edited by: Oleg_L
... View more