1                                                          The SAS System                             13:36 Thursday, April 21, 2005

NOTE: Copyright (c) 1999-2001 by SAS Institute Inc., Cary, NC, USA. 
NOTE: SAS (r) Proprietary Software Release 8.2 (TS2M0)
      Licensed to HARVARD SCHOOL OF PUBLIC HEALTH-INSTRUCTIONAL COMP, Site 0001177014.
NOTE: This session is executing on the SunOS 5.9 platform.




This message is contained in the SAS news file, and is presented upon
initialization.  Edit the files "news" in the "misc/base" directory to
display site-specific news and information in the program log.
The command line option "-nonews" will prevent this display.

----------------------------------------------------------


NOTE: SAS initialization used:
      real time           0.27 seconds
      cpu time            0.09 seconds
      
1          * Jean Roth, October 4, 2000, jroth@nber.org;
2          *options obs=1 nodate nonumber;
3          libname out "/home/data/civilrights/ocr";
NOTE: Libref OUT was successfully assigned as follows: 
      Engine:        V8 
      Physical Name: /home/data/civilrights/ocr
4          %macro nara(yr);
5          *Cannot randomly access the EBCDIC zipped file ;
6          *filename raw pipe "/home/data/civilrights/cvrgy&yr..zip";
7          *filename raw  "/home/data/civilrights/cvrgy&yr..ebc";
8          *x /usr/bin/unzip  cvrgy&yr..zip -d /tmp ;
9          *filename raw  "/tmp/cvrgy&yr..ebc";
10         filename raw "./OCR.ES69" ;
11         
12         
13         data out.nara&yr. ;
14         infile raw recfm=n;
15         LENGTH default=5;  * 5 bytes will retain 8 significant digits, the largest number that can be represented exactly is
15       ! 536,870,912;
16         *read the block size for the first record -- it is the combined length of the dist and schl records;
17         if _n_ =1 then do; input bs s370fib2. +2; sreclen = 0; end;
18         
19         do obsi=1 to 15000000;
20         *if next district then read the block size for the combined dist and schl records;
21         if sreclen +4 >= bs then do; input bs s370fib2. +2; sreclen = 0; end;
22         
23         *read the record length and increment sreclen;
24         input reclen s370fib2. +2;
25         sreclen+reclen;
26         
27         input
28          rectype s370fib4.  @ ; /* Hold the data line */
29         if rectype = 1 then do; /* District record */
30         input
31          oe_code s370fib4.
32          notused s370fib4.
33          sys_name $ebcdic32.
34          addr $ebcdic32.
2                                                          The SAS System                             13:36 Thursday, April 21, 2005

35          city $ebcdic16.
36          county $ebcdic16.
37          state $ebcdic16.
38          zip $ebcdic8.
39          cao_name $ebcdic20.
40          forms s370fib4.
41          ai s370fib4.
42          black s370fib4.
43          asian s370fib4.
44          spanish s370fib4.
45          other s370fib4.
46          total s370fib4.
47          nonres s370fib4.
48          res s370fib4.
49          aixpl s370fib4.
50          blackxpl s370fib4.
51          asianxpl s370fib4.
52          spanxpl s370fib4.
53          othxpl s370fib4.
54          totxpl s370fib4.
55          ano_pub s370fib4.
56          non_pub s370fib4.
57          notinsch s370fib4.
58          ai_ft s370fib4.
59          black_ft s370fib4.
60          asian_ft s370fib4.
61          span_ft s370fib4.
62          oth_ft s370fib4.
63          tot_ft s370fib4.
64          ai1 s370fib4.
65          black1 s370fib4.
66          asian1 s370fib4.
67          span1 s370fib4.
68          oth1 s370fib4.
69          tot1 s370fib4.
70          ai1p s370fib4.
71          black1p s370fib4.
72          asian1p s370fib4.
73          span1p s370fib4.
74          onep_sch s370fib4.
75          totp_sch s370fib4.
76          biling s370fib4.
77          bi_tch s370fib4.
78          bi_pup s370fib4.
79          bi_mat s370fib4.
80          prop s370fib4.
81          constr s370fib4.
82          cap s370fib4.
83          per_min s370fib4.
84          year s370fib4.
85          st_code s370fib4.
86          srgkode1 s370fib4. srgkode2 s370fib4. srgkode3 s370fib4. srgkode4 s370fib4.
87          assure s370fib4.
88          litcode s370fib4.
89          selcode s370fib4.
90          sampwt s370fib4.
91          aioth s370fib4.
92          blackoth s370fib4.
3                                                          The SAS System                             13:36 Thursday, April 21, 2005

93          asianoth s370fib4.
94          spanoth s370fib4.
95          othoth s370fib4.
96          ainps s370fib4.
97          blacknps s370fib4.
98          asiannps s370fib4.
99          spannps s370fib4.
100         othnps s370fib4.
101         ainis s370fib4.
102         blacknis s370fib4.
103         asiannis s370fib4.
104         spannis s370fib4.
105         othnis s370fib4.
106         ainrp s370fib4.
107         blacknrp s370fib4.
108         asiannrp s370fib4.
109         spannrp s370fib4.
110         othnrp s370fib4.
111         airp s370fib4.
112         blackrp s370fib4.
113         asianrp s370fib4.
114         spanrp s370fib4.
115         othrp s370fib4.
116         oecode70 s370fib4.
117        ;
118        end;
119        else if rectype = 2 then do; /* School record */
120        input
121         oe_codes s370fib4.
122         sforms s370fib4.
123         sch_name $ebcdic32.
124         grd_pkg s370fib4.
125         grd_kg s370fib4.
126         grd_1 s370fib4.
127         grd_2 s370fib4.
128         grd_3 s370fib4.
129         grd_4 s370fib4.
130         grd_5 s370fib4.
131         grd_6 s370fib4.
132         grd_7 s370fib4.
133         grd_8 s370fib4.
134         grd_9 s370fib4.
135         grd_10 s370fib4.
136         grd_11 s370fib4.
137         grd_12 s370fib4.
138         grd_un s370fib4.
139         grd_sped s370fib4.
140         ais s370fib4.
141         blacks s370fib4.
142         asians s370fib4.
143         spans s370fib4.
144         oths s370fib4.
145         totals s370fib4.
146         airet s370fib4.
147         blackret s370fib4.
148         asianret s370fib4.
149         spanret s370fib4.
150         othret s370fib4.
4                                                          The SAS System                             13:36 Thursday, April 21, 2005

151         totalret s370fib4.
152         ai12 s370fib4.
153         black12 s370fib4.
154         asian12 s370fib4.
155         span12 s370fib4.
156         oth12 s370fib4.
157         tot12 s370fib4.
158         aise s370fib4.
159         blackse s370fib4.
160         asianse s370fib4.
161         spanse s370fib4.
162         othse s370fib4.
163         totse s370fib4.
164         aist s370fib4.
165         blackst s370fib4.
166         asianst s370fib4.
167         spanst s370fib4.
168         othst s370fib4.
169         totst s370fib4.
170         aipr s370fib4.
171         blackpr s370fib4.
172         asianpr s370fib4.
173         spanpr s370fib4.
174         othpr s370fib4.
175         totpr s370fib4.
176         aiapr s370fib4.
177         blackapr s370fib4.
178         asianapr s370fib4.
179         spanapr s370fib4.
180         othapr s370fib4.
181         totapr s370fib4.
182         aioths s370fib4.
183         blkoths s370fib4.
184         asnoths s370fib4.
185         spnoths s370fib4.
186         othoths s370fib4.
187         totoths s370fib4.
188         filler $ebcdic32.
189         xport s370fib4.
190         english s370fib4.
191         saddr $ebcdic32.
192         scity $ebcdic16.
193         scounty $ebcdic32.
194         wierdzip s370fib4.
195         aig3s $ebcdic4.
196         blackg3s $ebcdic4.
197         asiang3s $ebcdic4.
198         spang3s $ebcdic4.
199         othg3s $ebcdic4.
200         totg3s $ebcdic4.
201         aig6s $ebcdic4.
202         blackg6s $ebcdic4.
203         asiang6s $ebcdic4.
204         spang6s s370fib4.
205         othg6s s370fib4.
206         totg6s s370fib4.
207         aig9s s370fib4.
208         blackg9s s370fib4.
5                                                          The SAS System                             13:36 Thursday, April 21, 2005

209         asiang9s s370fib4.
210         spang9s s370fib4.
211         othg9s s370fib4.
212         totg9s s370fib4.
213         lowgrade s370fib4.
214         ailo s370fib4.
215         blacklo s370fib4.
216         asianlo s370fib4.
217         spanlo s370fib4.
218         othlo s370fib4.
219         totlo s370fib4.
220         ainew s370fib4.
221         blacknew s370fib4.
222         asiannew s370fib4.
223         spannew s370fib4.
224         othnew s370fib4.
225         totnew s370fib4.
226         lunch s370fib4.
227         ailun s370fib4.
228         blacklun s370fib4.
229         asianlun s370fib4.
230         spanlun s370fib4.
231         othlun s370fib4.
232         totlun s370fib4.
233         aiefl s370fib4.
234         blackefl s370fib4.
235         asianefl s370fib4.
236         spanefl s370fib4.
237         othefl s370fib4.
238         totefl s370fib4.
239         aigfl s370fib4.
240         blackgfl s370fib4.
241         asiangfl s370fib4.
242         spangfl s370fib4.
243         othgfl s370fib4.
244         totgfl s370fib4.
245         aifte s370fib4.
246         blackfte s370fib4.
247         asianfte s370fib4.
248         spanfte s370fib4.
249         othfte s370fib4.
250         totfte s370fib4.
251         aifts s370fib4.
252         blackfts s370fib4.
253         asianfts s370fib4.
254         spanfts s370fib4.
255         othfts s370fib4.
256         totfts s370fib4.
257         aifto s370fib4.
258         blackfto s370fib4.
259         asianfto s370fib4.
260         spanfto s370fib4.
261         othfto s370fib4.
262         totfto s370fib4.
263         log0_19 s370fib4.
264         log20_49 s370fib4.
265         log50_79 s370fib4.
266         log80p s370fib4.
6                                                          The SAS System                             13:36 Thursday, April 21, 2005

267         oecods70 s370fib4.
268        ;
269        end;
270        else if rectype = 3 then do; /* Class room record, 1972 survey only !!! */
271        input
272         oe_code s370fib4.
273         sch_code s370fib4.
274         grd_lvl s370fib4.
275         cls_code s370fib4.
276         ai s370fib4.
277         black s370fib4.
278         asian s370fib4.
279         spanish s370fib4.
280         other s370fib4. ;
281        end;
282        output;
283        end;
284        drop obsi;
285        stop;
286        run;
287        ;
288        
289        proc print data=out.nara&yr. (obs=110);
290        run;
291        
292        %mend;
293        
294        %nara(69);

NOTE: UNBUFFERED is the default with RECFM=N.
NOTE: The infile RAW is:
      File Name=/disk/nber10/SCCS/civilrights/ocr/OCR.ES69,
      Owner Name=jroth,Group Name=aging,
      Access Permission=rw-r--r--,
      File Size (bytes)=5695110

NOTE: The data set OUT.NARA69 has 489953 observations and 243 variables.
NOTE: DATA statement used:
      real time           8:48.27
      cpu time            36.24 seconds
      


NOTE: There were 110 observations read from the data set OUT.NARA69.
NOTE: The PROCEDURE PRINT printed pages 1-35.
NOTE: PROCEDURE PRINT used:
      real time           1.08 seconds
      cpu time            0.33 seconds
      

295        %*nara(70);
296        %*nara(72);

NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414
NOTE: The SAS System used:
      real time           8:50.54
      cpu time            36.73 seconds