1 The SAS System 09:41 Friday, May 19, 2000 NOTE: Copyright (c) 1989-1996 by SAS Institute Inc., Cary, NC, USA. NOTE: SAS (r) Proprietary Software Release 6.12 TS020 Licensed to HARVARD SCHOOL OF PUBLIC HEALTH-INSTRUCTIONAL COMP, Site 0001177014. 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: AUTOEXEC processing beginning; file is /usr/sunos/local/sas612/autoexec.sas. NOTE: SAS initialization used: real time 0.640 seconds cpu time 0.131 seconds NOTE: AUTOEXEC processing completed. 1 options msglevel=I cleanup error=1; 2 options pagesize=69 linesize=74 nocenter noovp compress=yes; 3 4 %macro stuff; 5 data _null_; 6 array c c0 - c50; 7 array f f1 - f160; 8 retain c0 - c50 0; 9 retain f1 - f160 0; 10 cr=byte(13);lf=byte(10); 11 title "Convert &year Tax Model to CD-ROM format."; 12 filename out pipe "compress >../ascii/iit&year..z"; 13 file out lrecl=2072 recfm=f; 14 %mend; 15 16 %macro zd(year); 17 %stuff; 18 filename in pipe "zcat ../raw/iitax&year..zd.Z"; 19 infile in lrecl=1680 recfm=f; 20 input (c1-c40)( 2.) (f1-f160)(zd10.); 21 /* Per Charles Hicks */ 22 if &year eq 83 and c26 eq 0 then do;c7=0;c26=0;c21=0; end; 23 if &year eq 83 and c32 eq 3 then c32=0; 24 put (c1-c50)(2. +1) (f1-f160)(11. +1) @2071 cr @2072 lf; 25 run; 26 %mend; 27 28 %zd(81); endsas; NOTE: The file OUT is: Pipe command="compress >../ascii/iit81.z" NOTE: The infile IN is: Pipe command="zcat ../raw/iitax81.zd.Z" NOTE: 144322 records were written to the file OUT. NOTE: 144322 records were read from the infile IN. NOTE: DATA statement used: real time 3:05.640 cpu time 1:48.543 NOTE: The SAS System used: real time 3:06.420 2 The SAS System 09:41 Friday, May 19, 2000 cpu time 1:48.708 NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414