/*SHORT TITLE:  Sample program for Puerto Rico data */

/*NOTE:  Puerto Rico table locations are *NOT* the same as those for the  */
/*       states.                                                          */

/*NOTE:  ICPSR says lrecl is 2016 with 5 records/case.  Not so.           */
/*       lrecl=10080 is correct.  See codebook.                           */

set width 80.
file handle in/name="/eds/datasets/stf3a-80/data/pr-new.dat"
 lrecl=10080.
data list file=in /
    SUMLEV             10-11
    URABRURL           12-13
    FIPSTAT            34-35
    SMSA               36-39
    MUNICIP            40-42
    t001c1 to t001c3   253-279
    t002c1 	       280-288
    t003c1 	       289-297
    t004c1 to t004c3   298-324
    t005c1 	       325-333
    t006c1 	       334-342
    t010c1    	       370-378
    t016c1 to t016c10  874-963
    t033c1 to t033c6   1642-1695
    t034c1 to t034c6   1696-1749
    t035c1 to t035c10  1750-1839   
    t036c1 to t036c3   1840-1866
    t038c1 to t038c5   1903-1947
    t040c1 to t040c6   2119-2172
    t043c1 to t043c5   2260-2304
    t068c1 to t068c19  3436-3606
    t069c1 	       3607-3615
    t123c1 to t123c3   6556-6582
  
.
Select if (sumlev=11).
 

freq vars=MUNICIP smsa t123c3.

save outfile="1980censusdataPR-new.sav".