Альянс ООН

/*********************************************************************************************/
libname prog2 'C:\Courses\Prog2\data';
/*********************************************************************************************/
filename testfile 'C:\tmp\trash.txt';
filename states 'C:\Courses\Prog2\data\states.dat';
filename aromas 'C:\Courses\Prog2\data\aromas.dat';
filename aromasf 'C:\Courses\Prog2\data\aromasf.dat';
filename bloodtyp 'C:\Courses\Prog2\data\bloodtyp.dat';
filename allergy 'C:\Courses\Prog2\data\allergy.dat';
filename transact 'C:\Courses\Prog2\data\transact.dat';
filename emptwo 'C:\Courses\Prog2\data\emptwo.dat';
filename salaries 'C:\Courses\Prog2\data\salaries.dat';
filename bstones 'C:\Courses\Prog2\data\bstones.dat';
/*********************************************************************************************/

proc print data=prog2.donate;
run;

data rotate;
set prog2.donate;

qtr = 1;
amount = qtr1;
output;

qtr = 2;
amount = qtr2;
output;

qtr = 3;
amount = qtr3;
output;

qtr = 4;
amount = qtr4;
output;

keep ID qtr amount;
run;

proc print data=rotate;
run;

data buyhistory (keep = ID method);
set prog2.ffmethod;

if Internet = "Y" then
do;
method = "Internet";
output;
end;

if telephone = "Y" then
do;
method = "telephone";
output;
end;

if travelagency = "Y" then
do;
method = "travelagency";
output;
end;
run;

data gas liquid solid synthetic;
set prog2.elements;

select (State);
when ("Solid") output solid;
when ("Liquid") output liquid;
when ("Gas") output gas;
when ("Synthetic") output synthetic;
end;

drop state;
run;

data lanthanides actinides;
set prog2.elements;

IF AtomicNum =>57 and AtomicNum<=70
then output lanthanides;
else If AtomicNum =>89 and AtomicNum<=103
then output actinides;

run;

data natural synthetic;
set prog2.elements;

if state = 'Solid' or state = 'Gas' or state = 'Liquid'
then output natural;
else if state = 'Synthetic'
then output synthetic;
keep atomicnum name;

run;

data _null_;
set prog2.visits end=islast;

file testfile dlm = ',';

if _N_ = 1 then
put 'ID,Date,Fee';
put ID
Date : MMDDYY10.
Fee ;

if IsLast = 1 then
put 'test';

run;

proc fslist fileref=testfile;
run;

data usarea;
set prog2.states;

tatarea+Size;

run;

proc sort data= prog2.flymiles out=flymiles;
by ID;
run;

data flymiles_2;
set flymiles;

by id;

if first.id then totmiles=0;
totmiles+miles;
if Last.id;

keep ID TotMiles;
run;

proc sort data= prog2.flydays out=flydays;
by ID code;
run;

data flydays_2;
set flydays;

by id code;

if first.code then
do;
totmiles+miles;
end;
if last.code;

keep ID code totmiles;
run;

proc sort data= prog2.dupsals out=dupsals;
by EmpID Salary;
run;

data baddata gooddata;
set dupsals;

by empid salary;

if first.empid and last.salary then
output gooddata;
else output baddata;

run;

proc sort data= prog2.salesbyday out= sbd;
by date merchtype;
run;

data sales;
set sbd;

by date;

retain books cards periodicals;
if merchtype='Books' then books=sales;
else if merchtype='Cards' then cards=sales;
else if merchtype='Periodicals' then periodicals=sales;
if last.date then output;

drop merchtype sales;
run;

data states;

length State $16;

infile states dlm = '!';

input State $
Population : comma9.
Size
EnterDate : date9. ;

run;

data aromas;

length condition $11 cure1 cure2 cure3 $11;

infile aromas missover dsd dlm = ' ';

input condition $
cure1 $
cure2 $
cure3 $;

run;

data aromasf;

infile aromasf truncover;
input condition $10. cure1 $11. cure2 $11. cure3 $11.;

run;

data medical;

length id $5 Lname $9 fname $11 blood $3;

infile bloodtyp dlm=' ' dsd;

input id $
lname $
fname $;
input blood $;

run;

data allergy;

length id $5 Lname $9 fname $11 plan $1 blood $3 allergy $1 algytype $2;

infile allergy;

input id $
lname $
fname $
plan $
blood $
allergy $ @;

IF allergy='N' then
input dependants;
ELSE if allergy='Y' then
input algytype $ dependants;

run;

data allergy_2;

length id $5 Lname $9 fname $11 plan $1 blood $3 allergy $1 algytype $2;

infile allergy;

input id $
lname $
fname $
plan $
blood $
allergy $ @;

if allergy='Y';
input algytype $ dependants;

run;

data transact;

length type $2;

infile transact;

input date : date9.
type $
amount : comma9. @@;

run;

data credits debits;

length type $2;

infile transact;

input date : date9.
type $
amount : comma9. @@;

if type = 'C' then output credits;
else if type = 'D' then output debits;

run;

data salclrks;

infile 'empfix.dat';

input @112 jobcode $6. @;
if jobcode='SALCLK';
format hiredate mmddyy10.;
input @1 Division $20.
@21 HireDate mmddyy10.
@31 Salary dollar10.2
@41 LastName $15.
@56 FirstName $15.
@71 Country $15.
@86 Location $10.
@96 IdNumber $6.
@112 JobCode $6.;

run;

data empinfo;

infile emptwo dsd;

input #2 id : $6. lastname : $15. firstname : $15.
#1 division : $20. hiredate : mmddyy10. salary;

run;

data salaries;

retain id lastname firstname;

length id $6;

infile salaries;

input type $ @;
if type = 'E' then
input id $ firstname $ lastname $;
else if type = 'S' then do;
input year $ sallary : comma9.;
output;
end;

run;

data salaries_2;

retain id firstname lastname hiredate sallary;

length id $6;

infile salaries end=lastrecord;

input type $ @;
if type = 'E' then do;
if _n_ ne 1 then output;
input id $ firstname $ lastname $ hiredate : date9.;
end;
else if type = 'S' then do;
input year sallary : comma9.;
end;
if lastrecord then output;

drop type year;
run;

data bstones;

retain month modern traditional mystical ayurvedic other1 other2 other3;

infile bstones dlm=',' end=lastmonth;

length month $9 modern $12 traditional $12 mystical $11 ayurvedic $10 other1 $15 other2 $15 other3 $15;

input space $1. @;
if space ne ' ' then do;
if _n_ ne 1 then output;
input @1 month $;
stone =1;
other2='';
other3='';
end;
else do;
if stone =1 then input modern $;
else if stone =2 then input traditional $;
else if stone =3 then input mystical $;
else if stone =4 then input ayurvedic $;
else if stone =5 then input other1 $;
else if stone =6 then input other2 $;
else if stone =7 then input other3 $;
stone+1;
end;
if lastmonth then output;

drop space stone;
run;

data init;

length initials $3 last first mi $1 fmnames $30;

fmnames = scan(name,2',');
first = left(fmnnames);
mi = scan(fmnames,2,' ');
last=names;
initials = cat(first,mi,last);

run;

data prairie;
set prog2.people;

if index(citystate, ' IL')>0;

run;

data mixedprairie;
set prairie;

Name = propcase(name);

run;

Твин,это чего?

_________________
Поберегись!:-)

да,хороший вопрос.это про что?может мы банк открываем?

Или Твина просто тупо взломали....

_________________
Поберегись!:-)

да не этоя кое-что уночил оттуда откуда нельяза иначе унести)) на днях почищу...