/*SHORT TITLE:  SAS Program from CD */

********************************************************************;
**** FILENAME:    ssocs_puf_read.sas                            ****;
**** AUTHOR:      United States Department of Education         ****;
****              National Center for Education Statistics      ****;
**** INPUT FILE:  ssocs_puf.txt                                 ****;
**** OUTPUT FILE: ssocs.sas7dbat                                ****;
****                                                            ****;
**** PURPOSE:                                                   ****;
**** This file reads in the 2003-04 School Survey on Crime and  ****;
**** Safety (SSOCS:2004) Fixed Format ASCII (text)              ****;
**** public-use file and outputs a SAS dataset                  ****;
****                                                            ****;
**** A NOTE OF CAUTION:                                         ****;
**** The code that follows assumes that all the files included  ****;
**** on the SSOCS:2004 restricted-use CD-ROM have been copied   ****;
**** onto your hard drive into the C:\ directory. If this is    ****;
**** not the case, you must change C:\ in the %LET statement    ****; 
**** below to the path in which the formats.sas, labels.txt,    ****; 
**** and ssocs_ruf.txt file are located.                        ****;
****                                                            ****;
********************************************************************;

%LET path = C:\ ; *see NOTE above;

LIBNAME out "&path"; 
%INCLUDE "&&path\formats.sas";

data out.ssocs;
  %include "&&path\labels.txt";
 infile "&&path\SSOCS_PUF.TXT" lrecl=1835 missover;
 input
ABTID                 0001 - 0004
Q_NUMYRS              0005 - 0007
Q_RESP                0008 - 0009
Q_R_SPFY $            0010 - 0059
Q1A                   0060 - 0061
Q1B                   0062 - 0063
Q1C                   0064 - 0065
Q1D                   0066 - 0067
Q1E                   0068 - 0069
Q1F                   0070 - 0071
Q1G                   0072 - 0073
Q1H                   0074 - 0075
Q1I                   0076 - 0077
Q1J                   0078 - 0079
Q1K                   0080 - 0081
Q1L                   0082 - 0083
Q1M                   0084 - 0085
Q1N                   0086 - 0087
Q1O                   0088 - 0089
Q1P                   0090 - 0091
Q1Q                   0092 - 0093
Q1R                   0094 - 0095
Q1S                   0096 - 0097
Q1T                   0098 - 0099
Q1U                   0100 - 0101
Q1V                   0102 - 0103
Q2A1                  0104 - 0105
Q2A2                  0106 - 0107
Q2B1                  0108 - 0109
Q2B2                  0110 - 0111
Q2C1                  0112 - 0113
Q2C2                  0114 - 0115
Q2D1                  0116 - 0117
Q2D2                  0118 - 0119
Q2E1                  0120 - 0121
Q2E2                  0122 - 0123
Q3A                   0124 - 0125
Q3B                   0126 - 0127
Q3C                   0128 - 0129
Q3D                   0130 - 0131
Q3E                   0132 - 0133
Q3F                   0134 - 0135
Q3G                   0136 - 0137
Q3H                   0138 - 0139
Q4A                   0140 - 0141
Q4B                   0142 - 0143
Q4C                   0144 - 0145
Q5A                   0146 - 0147
Q5B                   0148 - 0149
Q5C                   0150 - 0151
Q5D                   0152 - 0153
Q6A                   0154 - 0155
Q6B                   0156 - 0157
Q6C                   0158 - 0159
Q6D                   0160 - 0161
Q6E                   0162 - 0163
Q6F                   0164 - 0165
Q6G                   0166 - 0167
Q6H                   0168 - 0169
Q7                    0170 - 0171
Q8A                   0172 - 0173
Q8B                   0174 - 0175
Q8C                   0176 - 0177
Q8D                   0178 - 0179
Q8E                   0180 - 0181
Q8ECODE  $            0182 - 0183
Q8E_SPFY $            0184 - 0286
Q9A1                  0287 - 0288
Q9A2                  0289 - 0290
Q9B1                  0291 - 0292
Q9B2                  0293 - 0294
Q9C1                  0295 - 0296
Q9C2                  0297 - 0298
Q10A                  0299 - 0300
Q10B                  0301 - 0302
Q11A                  0303 - 0304
Q11B                  0305 - 0306
Q11C                  0307 - 0308
Q11D                  0309 - 0310
Q11E                  0311 - 0312
Q11F                  0313 - 0314
Q11G                  0315 - 0316
Q12A                  0317 - 0318
Q12B                  0319 - 0320
Q12C                  0321 - 0322
Q12D                  0323 - 0324
Q12E                  0325 - 0326
Q12F                  0327 - 0328
Q14A                  0329 - 0330
Q14B                  0331 - 0332
Q14C                  0333 - 0334
Q14D                  0335 - 0336
Q14E                  0337 - 0338
Q14F                  0339 - 0340
Q14G                  0341 - 0342
Q14H                  0343 - 0344
Q14I                  0345 - 0346
Q14J                  0347 - 0348
Q14K                  0349 - 0350
Q14L                  0351 - 0352
Q14M                  0353 - 0354
Q15                   0355 - 0356
Q16                   0357 - 0358
Q17A1                 0359 - 0360
Q17A2                 0361 - 0362
Q17B1                 0363 - 0364
Q17B2                 0365 - 0366
Q17C1_1               0367 - 0368
Q17C1_2               0369 - 0370
Q17C2_1               0371 - 0372
Q17C2_2               0373 - 0374
Q17D1_1               0375 - 0376
Q17D1_2               0377 - 0378
Q17D2_1               0379 - 0386
Q17D2_2               0387 - 0394
Q17E1_1               0395 - 0396
Q17E1_2               0397 - 0398
Q17E2_1               0399 - 0406
Q17E2_2               0407 - 0414
Q17F1                 0415 - 0422
Q17F2                 0423 - 0430
Q17G1                 0431 - 0432
Q17G2                 0433 - 0434
Q17H1                 0435 - 0442
Q17H2                 0443 - 0450
Q17I1                 0451 - 0458
Q17I2                 0459 - 0466
Q17J1                 0467 - 0474
Q17J2                 0475 - 0482
Q17K1                 0483 - 0490
Q17K2                 0491 - 0498
Q18A                  0499 - 0501
Q18B                  0502 - 0509
Q19                   0510 - 0511
Q20A                  0512 - 0513
Q20B                  0514 - 0515
Q20C                  0516 - 0517
Q20D                  0518 - 0519
Q20E                  0520 - 0521
Q20F                  0522 - 0523
Q20G                  0524 - 0525
Q20H                  0526 - 0527
Q21A1                 0528 - 0529
Q21A2                 0530 - 0531
Q21B1                 0532 - 0533
Q21B2                 0534 - 0535
Q21C1                 0536 - 0537
Q21C2                 0538 - 0539
Q21D1                 0540 - 0541
Q21D2                 0542 - 0543
Q21E1                 0544 - 0545
Q21E2                 0546 - 0547
Q21F1                 0548 - 0549
Q21F2                 0550 - 0551
Q21G1                 0552 - 0553
Q21G2                 0554 - 0555
Q21H1                 0556 - 0557
Q21H2                 0558 - 0559
Q21I1                 0560 - 0561
Q21I2                 0562 - 0563
Q21J1                 0564 - 0565
Q21J2                 0566 - 0567
Q21K1                 0568 - 0569
Q21K2                 0570 - 0571
Q21L1                 0572 - 0573
Q21L2                 0574 - 0575
Q21M1                 0576 - 0577
Q21M2                 0578 - 0579
Q21N1                 0580 - 0581
Q21N2                 0582 - 0583
Q21O1                 0584 - 0585
Q21O2                 0586 - 0587
Q21P1                 0588 - 0589
Q21P2                 0590 - 0591
Q21Q1                 0592 - 0593
Q21Q2                 0594 - 0595
Q22A1                 0596 - 0598
Q22A2                 0599 - 0600
Q22A3                 0601 - 0602
Q22A4                 0603 - 0605
Q22A5                 0606 - 0608
Q22B1                 0609 - 0616
Q22B2                 0617 - 0618
Q22B3                 0619 - 0620
Q22B4                 0621 - 0622
Q22B5                 0623 - 0624
Q22C1                 0625 - 0632
Q22C2                 0633 - 0634
Q22C3                 0635 - 0642
Q22C4                 0643 - 0650
Q22C5                 0651 - 0658
Q22D1                 0659 - 0666
Q22D2                 0667 - 0668
Q22D3                 0669 - 0670
Q22D4                 0671 - 0678
Q22D5                 0679 - 0686
Q22E1                 0687 - 0694
Q22E2                 0695 - 0696
Q22E3                 0697 - 0704
Q22E4                 0705 - 0712
Q22E5                 0713 - 0720
Q22F1                 0721 - 0728
Q22F2                 0729 - 0730
Q22F3                 0731 - 0738
Q22F4                 0739 - 0746
Q22F5                 0747 - 0754
Q23A                  0755 - 0762
Q23B                  0763 - 0770
Q25B                  0771 - 0778
Q25C                  0779 - 0786
Q26A                  0787 - 0794
Q26B                  0795 - 0802
Q26C                  0803 - 0810
Q27                   0811 - 0812
Q28A1                 0813 - 0820
Q28A2                 0821 - 0822
Q28B1                 0823 - 0830
Q28B2                 0831 - 0838
Q28E1                 0839 - 0840
Q28E2                 0841 - 0842
Q29                   0843 - 0844
Q30                   0845 - 0846
Q32                   0847 - 0854
Q33A                  0855 - 0862
Q33B                  0863 - 0870
Q34C_DD               0871 - 0872
Q34C_MM               0873 - 0874
Q34C_YY               0875 - 0878
CRISIS04              0879 - 0880
DISTOT04              0881 - 0888
INCID04               0889 - 0896
INCPOL04              0897 - 0904
OTHACT04              0905 - 0912
OUTSUS04              0913 - 0920
PROBWK04              0921 - 0922
REMOVL04              0923 - 0930
STRATA64              0931 - 0933
STUOFF04              0934 - 0941
SVINC04               0942 - 0949
SVPOL04               0950 - 0957
TRANSF04              0958 - 0965
VIOINC04              0966 - 0973
VIOPOL04              0974 - 0981
FR_CATMN              0982 - 0983
FR_LOC4               0984 - 0985
FR_LVEL               0986 - 0987
FR_SIZE               0988 - 0989
FINALWGT              0990 - 0997
REPWGT1               0998 - 1005
REPWGT2               1006 - 1013
REPWGT3               1014 - 1021
REPWGT4               1022 - 1029
REPWGT5               1030 - 1037
REPWGT6               1038 - 1045
REPWGT7               1046 - 1053
REPWGT8               1054 - 1061
REPWGT9               1062 - 1069
REPWGT10              1070 - 1077
REPWGT11              1078 - 1085
REPWGT12              1086 - 1093
REPWGT13              1094 - 1101
REPWGT14              1102 - 1109
REPWGT15              1110 - 1117
REPWGT16              1118 - 1125
REPWGT17              1126 - 1133
REPWGT18              1134 - 1141
REPWGT19              1142 - 1149
REPWGT20              1150 - 1157
REPWGT21              1158 - 1165
REPWGT22              1166 - 1173
REPWGT23              1174 - 1181
REPWGT24              1182 - 1189
REPWGT25              1190 - 1197
REPWGT26              1198 - 1205
REPWGT27              1206 - 1213
REPWGT28              1214 - 1221
REPWGT29              1222 - 1229
REPWGT30              1230 - 1237
REPWGT31              1238 - 1245
REPWGT32              1246 - 1253
REPWGT33              1254 - 1261
REPWGT34              1262 - 1269
REPWGT35              1270 - 1277
REPWGT36              1278 - 1285
REPWGT37              1286 - 1293
REPWGT38              1294 - 1301
REPWGT39              1302 - 1309
REPWGT40              1310 - 1317
REPWGT41              1318 - 1325
REPWGT42              1326 - 1333
REPWGT43              1334 - 1341
REPWGT44              1342 - 1349
REPWGT45              1350 - 1357
REPWGT46              1358 - 1365
REPWGT47              1366 - 1373
REPWGT48              1374 - 1381
REPWGT49              1382 - 1389
REPWGT50              1390 - 1397
IQ1A                  1398 - 1399
IQ1B                  1400 - 1401
IQ1C                  1402 - 1403
IQ1D                  1404 - 1405
IQ1E                  1406 - 1407
IQ1F                  1408 - 1409
IQ1G                  1410 - 1411
IQ1H                  1412 - 1413
IQ1I                  1414 - 1415
IQ1J                  1416 - 1417
IQ1K                  1418 - 1419
IQ1L                  1420 - 1421
IQ1M                  1422 - 1423
IQ1N                  1424 - 1425
IQ1O                  1426 - 1427
IQ1P                  1428 - 1429
IQ1Q                  1430 - 1431
IQ1R                  1432 - 1433
IQ1S                  1434 - 1435
IQ1T                  1436 - 1437
IQ1U                  1438 - 1439
IQ1V                  1440 - 1441
IQ2A1                 1442 - 1443
IQ2A2                 1444 - 1445
IQ2B1                 1446 - 1447
IQ2B2                 1448 - 1449
IQ2C1                 1450 - 1451
IQ2C2                 1452 - 1453
IQ2D1                 1454 - 1455
IQ2D2                 1456 - 1457
IQ2E1                 1458 - 1459
IQ2E2                 1460 - 1461
IQ3A                  1462 - 1463
IQ3B                  1464 - 1465
IQ3C                  1466 - 1467
IQ3D                  1468 - 1469
IQ3E                  1470 - 1471
IQ3F                  1472 - 1473
IQ3G                  1474 - 1475
IQ3H                  1476 - 1477
IQ4A                  1478 - 1479
IQ4B                  1480 - 1481
IQ4C                  1482 - 1483
IQ5A                  1484 - 1485
IQ5B                  1486 - 1487
IQ5C                  1488 - 1489
IQ5D                  1490 - 1491
IQ6A                  1492 - 1493
IQ6B                  1494 - 1495
IQ6C                  1496 - 1497
IQ6D                  1498 - 1499
IQ6E                  1500 - 1501
IQ6F                  1502 - 1503
IQ6G                  1504 - 1505
IQ6H                  1506 - 1507
IQ7                   1508 - 1509
IQ8A                  1510 - 1511
IQ8B                  1512 - 1513
IQ8C                  1514 - 1515
IQ8D                  1516 - 1517
IQ8E                  1518 - 1519
IQ9A1                 1520 - 1521
IQ9A2                 1522 - 1523
IQ9B1                 1524 - 1525
IQ9B2                 1526 - 1527
IQ9C1                 1528 - 1529
IQ9C2                 1530 - 1531
IQ10A                 1532 - 1533
IQ10B                 1534 - 1535
IQ11A                 1536 - 1537
IQ11B                 1538 - 1539
IQ11C                 1540 - 1541
IQ11D                 1542 - 1543
IQ11E                 1544 - 1545
IQ11F                 1546 - 1547
IQ11G                 1548 - 1549
IQ12A                 1550 - 1551
IQ12B                 1552 - 1553
IQ12C                 1554 - 1555
IQ12D                 1556 - 1557
IQ12E                 1558 - 1559
IQ12F                 1560 - 1561
IQ14A                 1562 - 1563
IQ14B                 1564 - 1565
IQ14C                 1566 - 1567
IQ14D                 1568 - 1569
IQ14E                 1570 - 1571
IQ14F                 1572 - 1573
IQ14G                 1574 - 1575
IQ14H                 1576 - 1577
IQ14I                 1578 - 1579
IQ14J                 1580 - 1581
IQ14K                 1582 - 1583
IQ14L                 1584 - 1585
IQ14M                 1586 - 1587
IQ15                  1588 - 1589
IQ16                  1590 - 1591
IQ17A1                1592 - 1593
IQ17A2                1594 - 1595
IQ17B1                1596 - 1597
IQ17B2                1598 - 1599
IQ17C1_1              1600 - 1601
IQ17C1_2              1602 - 1603
IQ17C2_1              1604 - 1605
IQ17C2_2              1606 - 1607
IQ17D1_1              1608 - 1609
IQ17D1_2              1610 - 1611
IQ17D2_1              1612 - 1613
IQ17D2_2              1614 - 1615
IQ17E1_1              1616 - 1617
IQ17E1_2              1618 - 1619
IQ17E2_1              1620 - 1621
IQ17E2_2              1622 - 1623
IQ17F1                1624 - 1625
IQ17F2                1626 - 1627
IQ17G1                1628 - 1629
IQ17G2                1630 - 1631
IQ17H1                1632 - 1633
IQ17H2                1634 - 1635
IQ17I1                1636 - 1637
IQ17I2                1638 - 1639
IQ17J1                1640 - 1641
IQ17J2                1642 - 1643
IQ17K1                1644 - 1645
IQ17K2                1646 - 1647
IQ18A                 1648 - 1649
IQ18B                 1650 - 1651
IQ19                  1652 - 1653
IQ20A                 1654 - 1655
IQ20B                 1656 - 1657
IQ20C                 1658 - 1659
IQ20D                 1660 - 1661
IQ20E                 1662 - 1663
IQ20F                 1664 - 1665
IQ20G                 1666 - 1667
IQ20H                 1668 - 1669
IQ21A1                1670 - 1671
IQ21A2                1672 - 1673
IQ21B1                1674 - 1675
IQ21B2                1676 - 1677
IQ21C1                1678 - 1679
IQ21C2                1680 - 1681
IQ21D1                1682 - 1683
IQ21D2                1684 - 1685
IQ21E1                1686 - 1687
IQ21E2                1688 - 1689
IQ21F1                1690 - 1691
IQ21F2                1692 - 1693
IQ21G1                1694 - 1695
IQ21G2                1696 - 1697
IQ21H1                1698 - 1699
IQ21H2                1700 - 1701
IQ21I1                1702 - 1703
IQ21I2                1704 - 1705
IQ21J1                1706 - 1707
IQ21J2                1708 - 1709
IQ21K1                1710 - 1711
IQ21K2                1712 - 1713
IQ21L1                1714 - 1715
IQ21L2                1716 - 1717
IQ21M1                1718 - 1719
IQ21M2                1720 - 1721
IQ21N1                1722 - 1723
IQ21N2                1724 - 1725
IQ21O1                1726 - 1727
IQ21O2                1728 - 1729
IQ21P1                1730 - 1731
IQ21P2                1732 - 1733
IQ21Q1                1734 - 1735
IQ21Q2                1736 - 1737
IQ22A1                1738 - 1739
IQ22A2                1740 - 1741
IQ22A3                1742 - 1743
IQ22A4                1744 - 1745
IQ22A5                1746 - 1747
IQ22B1                1748 - 1749
IQ22B2                1750 - 1751
IQ22B3                1752 - 1753
IQ22B4                1754 - 1755
IQ22B5                1756 - 1757
IQ22C1                1758 - 1759
IQ22C2                1760 - 1761
IQ22C3                1762 - 1763
IQ22C4                1764 - 1765
IQ22C5                1766 - 1767
IQ22D1                1768 - 1769
IQ22D2                1770 - 1771
IQ22D3                1772 - 1773
IQ22D4                1774 - 1775
IQ22D5                1776 - 1777
IQ22E1                1778 - 1779
IQ22E2                1780 - 1781
IQ22E3                1782 - 1783
IQ22E4                1784 - 1785
IQ22E5                1786 - 1787
IQ22F1                1788 - 1789
IQ22F2                1790 - 1791
IQ22F3                1792 - 1793
IQ22F4                1794 - 1795
IQ22F5                1796 - 1797
IQ23A                 1798 - 1799
IQ23B                 1800 - 1801
IQ25B                 1802 - 1803
IQ25C                 1804 - 1805
IQ26A                 1806 - 1807
IQ26B                 1808 - 1809
IQ26C                 1810 - 1811
IQ27                  1812 - 1813
IQ28A1                1814 - 1815
IQ28A2                1816 - 1817
IQ28B1                1818 - 1819
IQ28B2                1820 - 1821
IQ28E1                1822 - 1823
IQ28E2                1824 - 1825
IQ29                  1826 - 1827
IQ30                  1828 - 1829
IQ32                  1830 - 1831
IQ33A                 1832 - 1833
IQ33B                 1834 - 1835
;

format
                                    FR_CATMN    FR_CATMN.
                                    FR_LOC4     FR_LOC4F.
                                    FR_LVEL     FR_LVELF.
                                    FR_SIZE     FR_SIZEF.
                                    IQ7         FLG.     
                                    IQ15        FLG.    
                                    IQ16        FLG.     
                                    IQ19        FLG.    
                                    IQ27        FLG.     
                                    IQ29        FLG.     
                                    IQ30        FLG.     
                                    IQ32        FLG.     
                                    IQ10A       FLG.     
                                    IQ10B       FLG.     
                                    IQ11A       FLG.     
                                    IQ11B       FLG.     
                                    IQ11C       FLG.     
                                    IQ11D       FLG.     
                                    IQ11E       FLG.     
                                    IQ11F       FLG.     
                                    IQ11G       FLG.     
                                    IQ12A       FLG.     
                                    IQ12B       FLG.     
                                    IQ12C       FLG.     
                                    IQ12D       FLG.     
                                    IQ12E       FLG.     
                                    IQ12F       FLG.     
                                    IQ14A       FLG.     
                                    IQ14B       FLG.     
                                    IQ14C       FLG.     
                                    IQ14D       FLG.     
                                    IQ14E       FLG.     
                                    IQ14F       FLG.     
                                    IQ14G       FLG.     
                                    IQ14H       FLG.     
                                    IQ14I       FLG.     
                                    IQ14J       FLG.     
                                    IQ14K       FLG.     
                                    IQ14L       FLG.     
                                    IQ14M       FLG.     
                                    IQ17A1      FLG.     
                                    IQ17A2      FLG.     
                                    IQ17B1      FLG.     
                                    IQ17B2      FLG.     
                                    IQ17C1_1    FLG.     
                                    IQ17C1_2    FLG.     
                                    IQ17C2_1    FLG.     
                                    IQ17C2_2    FLG.     
                                    IQ17D1_1    FLG.     
                                    IQ17D1_2    FLG.     
                                    IQ17D2_1    FLG.     
                                    IQ17D2_2    FLG.     
                                    IQ17E1_1    FLG.     
                                    IQ17E1_2    FLG.     
                                    IQ17E2_1    FLG.     
                                    IQ17E2_2    FLG.     
                                    IQ17F1      FLG.     
                                    IQ17F2      FLG.     
                                    IQ17G1      FLG.     
                                    IQ17G2      FLG.     
                                    IQ17H1      FLG.     
                                    IQ17H2      FLG.     
                                    IQ17I1      FLG.     
                                    IQ17I2      FLG.     
                                    IQ17J1      FLG.     
                                    IQ17J2      FLG.     
                                    IQ17K1      FLG.     
                                    IQ17K2      FLG.     
                                    IQ18A       FLG.     
                                    IQ18B       FLG.     
                                    IQ1A        FLG.     
                                    IQ1B        FLG.     
                                    IQ1C        FLG.     
                                    IQ1D        FLG.     
                                    IQ1E        FLG.     
                                    IQ1F        FLG.     
                                    IQ1G        FLG.     
                                    IQ1H        FLG.     
                                    IQ1I        FLG.     
                                    IQ1J        FLG.     
                                    IQ1K        FLG.     
                                    IQ1L        FLG.     
                                    IQ1M        FLG.     
                                    IQ1N        FLG.     
                                    IQ1O        FLG.     
                                    IQ1P        FLG.     
                                    IQ1Q        FLG.     
                                    IQ1R        FLG.     
                                    IQ1S        FLG.     
                                    IQ1T        FLG.     
                                    IQ1U        FLG.     
                                    IQ1V        FLG.     
                                    IQ20A       FLG.     
                                    IQ20B       FLG.     
                                    IQ20C       FLG.     
                                    IQ20D       FLG.     
                                    IQ20E       FLG.     
                                    IQ20F       FLG.     
                                    IQ20G       FLG.     
                                    IQ20H       FLG.     
                                    IQ21A1      FLG.     
                                    IQ21A2      FLG.     
                                    IQ21B1      FLG.     
                                    IQ21B2      FLG.     
                                    IQ21C1      FLG.     
                                    IQ21C2      FLG.     
                                    IQ21D1      FLG.     
                                    IQ21D2      FLG.     
                                    IQ21E1      FLG.     
                                    IQ21E2      FLG.     
                                    IQ21F1      FLG.     
                                    IQ21F2      FLG.     
                                    IQ21G1      FLG.     
                                    IQ21G2      FLG.     
                                    IQ21H1      FLG.     
                                    IQ21H2      FLG.     
                                    IQ21I1      FLG.     
                                    IQ21I2      FLG.     
                                    IQ21J1      FLG.     
                                    IQ21J2      FLG.     
                                    IQ21K1      FLG.     
                                    IQ21K2      FLG.     
                                    IQ21L1      FLG.     
                                    IQ21L2      FLG.     
                                    IQ21M1      FLG.     
                                    IQ21M2      FLG.     
                                    IQ21N1      FLG.     
                                    IQ21N2      FLG.     
                                    IQ21O1      FLG.     
                                    IQ21O2      FLG.     
                                    IQ21P1      FLG.     
                                    IQ21P2      FLG.     
                                    IQ21Q1      FLG.     
                                    IQ21Q2      FLG.     
                                    IQ22A1      FLG.     
                                    IQ22A2      FLG.     
                                    IQ22A3      FLG.     
                                    IQ22A4      FLG.     
                                    IQ22A5      FLG.     
                                    IQ22B1      FLG.     
                                    IQ22B2      FLG.     
                                    IQ22B3      FLG.     
                                    IQ22B4      FLG.     
                                    IQ22B5      FLG.     
                                    IQ22C1      FLG.     
                                    IQ22C2      FLG.     
                                    IQ22C3      FLG.     
                                    IQ22C4      FLG.     
                                    IQ22C5      FLG.     
                                    IQ22D1      FLG.     
                                    IQ22D2      FLG.     
                                    IQ22D3      FLG.     
                                    IQ22D4      FLG.     
                                    IQ22D5      FLG.     
                                    IQ22E1      FLG.     
                                    IQ22E2      FLG.     
                                    IQ22E3      FLG.    
                                    IQ22E4      FLG.    
                                    IQ22E5      FLG.     
                                    IQ22F1      FLG.     
                                    IQ22F2      FLG.     
                                    IQ22F3      FLG.     
                                    IQ22F4      FLG.     
                                    IQ22F5      FLG.     
                                    IQ23A       FLG.     
                                    IQ23B       FLG.     
                                    IQ25B       FLG.     
                                    IQ25C       FLG.     
                                    IQ26A       FLG.     
                                    IQ26B       FLG.     
                                    IQ26C       FLG.     
                                    IQ28A1      FLG.     
                                    IQ28A2      FLG.     
                                    IQ28B1      FLG.     
                                    IQ28B2      FLG.     
                                    IQ28E1      FLG.     
                                    IQ28E2      FLG.     
                                    IQ2A1       FLG.     
                                    IQ2A2       FLG.     
                                    IQ2B1       FLG.     
                                    IQ2B2       FLG.     
                                    IQ2C1       FLG.     
                                    IQ2C2       FLG.     
                                    IQ2D1       FLG.     
                                    IQ2D2       FLG.     
                                    IQ2E1       FLG.     
                                    IQ2E2       FLG.     
                                    IQ33A       FLG.     
                                    IQ33B       FLG.     
                                    IQ3A        FLG.     
                                    IQ3B        FLG.     
                                    IQ3C        FLG.     
                                    IQ3D        FLG.     
                                    IQ3E        FLG.     
                                    IQ3F        FLG.     
                                    IQ3G        FLG.     
                                    IQ3H        FLG.     
                                    IQ4A        FLG.     
                                    IQ4B        FLG.     
                                    IQ4C        FLG.     
                                    IQ5A        FLG.     
                                    IQ5B        FLG.     
                                    IQ5C        FLG.     
                                    IQ5D        FLG.     
                                    IQ6A        FLG.     
                                    IQ6B        FLG.     
                                    IQ6C        FLG.     
                                    IQ6D        FLG.     
                                    IQ6E        FLG.     
                                    IQ6F        FLG.     
                                    IQ6G        FLG.     
                                    IQ6H        FLG.     
                                    IQ8A        FLG.     
                                    IQ8B        FLG.     
                                    IQ8C        FLG.     
                                    IQ8D        FLG.     
                                    IQ8E        FLG.     
                                    IQ9A1       FLG.     
                                    IQ9A2       FLG.     
                                    IQ9B1       FLG.     
                                    IQ9B2       FLG.     
                                    IQ9C1       FLG.     
                                    IQ9C2       FLG.     
                                    Q7          YESNO.   
                                    Q15         YESNO.   
                                    Q16         YESNO.   
                                    Q29         CRIME.   
                                    Q30         CRIME.   
                                    Q10A        YESNO.   
                                    Q10B        YESNO.   
                                    Q11A        YESNO.   
                                    Q11B        YESNO.   
                                    Q11C        YESNO.   
                                    Q11D        YESNO.   
                                    Q11E        YESNO.   
                                    Q11F        YESNO.   
                                    Q11G        YESNO.   
                                    Q12A        YESNO.   
                                    Q12B        YESNO.   
                                    Q12C        YESNO.   
                                    Q12D        YESNO.   
                                    Q12E        YESNO.   
                                    Q12F        YESNO.   
                                    Q14A        Q14F.    
                                    Q14B        Q14F.    
                                    Q14C        Q14F.    
                                    Q14D        Q14F.    
                                    Q14E        Q14F.    
                                    Q14F        Q14F.    
                                    Q14G        Q14F.    
                                    Q14H        Q14F.    
                                    Q14I        Q14F.    
                                    Q14J        Q14F.    
                                    Q14K        Q14F.    
                                    Q14L        Q14F.    
                                    Q14M        Q14F.    
                                    Q1A         YESNO.   
                                    Q1B         YESNO.   
                                    Q1C         YESNO.   
                                    Q1D         YESNO.   
                                    Q1E         YESNO.   
                                    Q1F         YESNO.   
                                    Q1G         YESNO.   
                                    Q1H         YESNO.   
                                    Q1I         YESNO.   
                                    Q1J         YESNO.   
                                    Q1K         YESNO.   
                                    Q1L         YESNO.   
                                    Q1M         YESNO.   
                                    Q1N         YESNO.   
                                    Q1O         YESNO.   
                                    Q1P         YESNO.   
                                    Q1Q         YESNO.   
                                    Q1R         YESNO.   
                                    Q1S         YESNO.   
                                    Q1T         YESNO.   
                                    Q1U         YESNO.   
                                    Q1V         YESNO.   
                                    Q20A        Q20F.    
                                    Q20B        Q20F.    
                                    Q20C        Q20F.    
                                    Q20D        Q20F.    
                                    Q20E        Q20F.    
                                    Q20F        Q20F.    
                                    Q20G        Q20F.    
                                    Q20H        Q20F.    
                                    Q21A1       YESNO.   
                                    Q21A2       YESNO.   
                                    Q21B1       YESNO.   
                                    Q21B2       YESNO.   
                                    Q21C1       YESNO.   
                                    Q21C2       YESNO.   
                                    Q21D1       YESNO.   
                                    Q21D2       YESNO.   
                                    Q21E1       YESNO.   
                                    Q21E2       YESNO.   
                                    Q21F1       YESNO.   
                                    Q21F2       YESNO.   
                                    Q21G1       YESNO.   
                                    Q21G2       YESNO.   
                                    Q21H1       YESNO.   
                                    Q21H2       YESNO.   
                                    Q21I1       YESNO.   
                                    Q21I2       YESNO.   
                                    Q21J1       YESNO.   
                                    Q21J2       YESNO.   
                                    Q21K1       YESNO.   
                                    Q21K2       YESNO.   
                                    Q21L1       YESNO.   
                                    Q21L2       YESNO.   
                                    Q21M1       YESNO.   
                                    Q21M2       YESNO.   
                                    Q21N1       YESNO.   
                                    Q21N2       YESNO.   
                                    Q21O1       YESNO.   
                                    Q21O2       YESNO.   
                                    Q21P1       YESNO.   
                                    Q21P2       YESNO.   
                                    Q21Q1       YESNO.   
                                    Q21Q2       YESNO.   
                                    Q2A1        YESNO.   
                                    Q2A2        YESNO.   
                                    Q2B1        YESNO.   
                                    Q2B2        YESNO.   
                                    Q2C1        YESNO.   
                                    Q2C2        YESNO.   
                                    Q2D1        YESNO.   
                                    Q2D2        YESNO.   
                                    Q2E1        YESNO.   
                                    Q2E2        YESNO.   
                                    Q34C_DD     MSSG.    
                                    Q34C_MM     MSSG.    
                                    Q34C_YY     MSSG.    
                                    Q3A         YESNO.   
                                    Q3B         YESNO.   
                                    Q3C         YESNO.   
                                    Q3D         YESNO.   
                                    Q3E         YESNO.   
                                    Q3F         YESNO.   
                                    Q3G         YESNO.   
                                    Q3H         YESNO.   
                                    Q4A         YESNO.   
                                    Q4B         YESNO.   
                                    Q4C         YESNO.   
                                    Q5A         Q5F.     
                                    Q5B         Q5F.     
                                    Q5C         Q5F.     
                                    Q5D         Q5F.    
                                    Q6A         YESNO.   
                                    Q6B         YESNO.   
                                    Q6C         YESNO.   
                                    Q6D         YESNO.   
                                    Q6E         YESNO.   
                                    Q6F         YESNO.   
                                    Q6G         YESNO.   
                                    Q6H         YESNO.   
                                    Q8A         YESNO.   
                                    Q8B         YESNO.   
                                    Q8C         YESNO.   
                                    Q8D         YESNO.   
                                    Q8E         Q8EF.    
                                    Q8ECODE     $Q8ECODF.
                                    Q9A1        MSSG.    
                                    Q9A2        MSSG.    
                                    Q9B1        MSSG.    
                                    Q9B2        MSSG.    
                                    Q9C1        MSSG.    
                                    Q9C2        MSSG.    
                                    Q_NUMYRS    MSSG.    
                                    Q_RESP      QRESPF.  
                                    Q_R_SPFY    $STRMSG. 
                                    STRATA64    STRF.    
;
run;

proc contents data=out.ssocs;

run;