/* Sample SAS Program "cen90_002.sas" */
/* Reading data from a 1990 census data file */


options ls=75;
libname sasdata "U:\Users\your_netid\" ;

filename in 'U:\ArchiveData\cen1990\002\stf2bxny.f01xxxxx';

DATA SASDATA.HHPOP90;
INFILE IN LRECL=5721;
    INPUT SUMLEV $ 11-13
          GEOCOMP  $ 14-15
          CHARITER  $ 16-18@;

 *  SELECT NEW YORK STATE AND COUNTY RECORDS FOR;
 *    TOTAL POPULATION, WHITE POPULATION;

 IF (SUMLEV = '040' OR SUMLEV = '050')AND
    GEOCOMP EQ '00' AND
   (CHARITER EQ '000' OR CHARITER EQ '001')
    THEN DO;
 INPUT #1  FILEID $ 1-7 CNTY $ 72-74       AREANAME $ 192-257
 SPFLAG $ 300
 PB1 301-309        PB2 310-318        PB3 319-327
 PB4001 328-336     PB4002  337-345
 (PB5001-PB5103) (9.0)    (PB5201-PB5303) (9.0)
 (PB6001-PB6070) (9.0)
 #2;
 END;
 ELSE DO; INPUT #2; DELETE; END;

MAL0004 = SUM(OF PB5001-PB5005);
MAL0509 = SUM(OF PB5006-PB5010);
MAL1014 = SUM(OF PB5011-PB5015);
MAL1519 = SUM(OF PB5016-PB5020);
MAL2024 = SUM(OF PB5021-PB5025);
MAL2529 = SUM(OF PB5026-PB5030);
MAL3034 = SUM(OF PB5031-PB5035);
MAL3539 = SUM(OF PB5036-PB5040);
MAL4044 = SUM(OF PB5041-PB5045);
MAL4549 = SUM(OF PB5046-PB5050);
MAL5054 = SUM(OF PB5051-PB5055);
MAL5559 = SUM(OF PB5056-PB5060);
MAL6064 = SUM(OF PB5061-PB5065);
MAL6569 = SUM(OF PB5066-PB5070);
MAL7074 = SUM(OF PB5071-PB5075);
MAL7579 = SUM(OF PB5076-PB5080);
MAL8084 = SUM(OF PB5081-PB5085);
MAL85UP = SUM(OF PB5086-PB5103);

FEM0004 = SUM(OF PB5201-PB5205);
FEM0509 = SUM(OF PB5206-PB5210);
FEM1014 = SUM(OF PB5211-PB5215);
FEM1519 = SUM(OF PB5216-PB5220);
FEM2024 = SUM(OF PB5221-PB5225);
FEM2529 = SUM(OF PB5226-PB5230);
FEM3034 = SUM(OF PB5231-PB5235);
FEM3539 = SUM(OF PB5236-PB5240);
FEM4044 = SUM(OF PB5241-PB5245);
FEM4549 = SUM(OF PB5246-PB5250);
FEM5054 = SUM(OF PB5251-PB5255);
FEM5559 = SUM(OF PB5256-PB5260);
FEM6064 = SUM(OF PB5261-PB5265);
FEM6569 = SUM(OF PB5266-PB5270);
FEM7074 = SUM(OF PB5271-PB5275);
FEM7579 = SUM(OF PB5276-PB5280);
FEM8084 = SUM(OF PB5281-PB5285);
FEM85UP = SUM(OF PB5286-PB5303);

MHH0004 = PB6001;
MHH0509 = PB6002+PB6003+PB6004+PB6005+PB6006;
MHH1014 = PB6007+PB6008+PB6009+PB6010+PB6011;
MHH1519 = PB6012+PB6013+PB6014+PB6015+PB6016;
MHH2024 = PB6017+PB6018+PB6019+PB6020+PB6021;
MHH2529 = PB6022;
MHH3034 = PB6023;
MHH3539 = PB6024;
MHH4044 = PB6025;
MHH4549 = PB6026;
MHH5054 = PB6027;
MHH5559 = PB6028;
MHH6064 = PB6029 + PB6030;
MHH6569 = PB6031;
MHH7074 = PB6032;
MHH7579 = PB6033;
MHH8084 = PB6034;
MHH85UP = PB6035;

FHH0004 = PB6036;
FHH0509 = PB6037+PB6038+PB6039+PB6040+PB6041;
FHH1014 = PB6042+PB6043+PB6044+PB6045+PB6046;
FHH1519 = PB6047+PB6048+PB6049+PB6050+PB6051;
FHH2024 = PB6052+PB6053+PB6054+PB6055+PB6056;
FHH2529 = PB6057;
FHH3034 = PB6058;
FHH3539 = PB6059;
FHH4044 = PB6060;
FHH4549 = PB6061;
FHH5054 = PB6062;
FHH5559 = PB6063;
FHH6064 = PB6064 + PB6065;
FHH6569 = PB6066;
FHH7074 = PB6067;
FHH7579 = PB6068;
FHH8084 = PB6069;
FHH85UP = PB6070;

PROC CONTENTS data=SASDATA.HHPOP90;
run;
PROC PRINT data=SASDATA.HHPOP90;
   VAR SUMLEV CNTY CHARITER PB1 MAL4044 FEM4044;
run;