*options obs=6;
*options pagesize=60 linesize=72;
libname library './';  
filename raw pipe "zcat /home/data/lbid/1983/data/tape80992[34].ebcdic.Z  ";

* use library.Den83 to create and use permanent SAS dataset;
DATA Den83;
length birwt 4. default=3;
* To read in uncompressed file, uncomment INFILE & comment filename & infile lines;
* On a PC, you may need to change the direction of the slashes as in C:\;
INFILE './den83.dat' recfm=f lrecl=93 blksize=31941 missover;
*infile raw recfm=f lrecl=91 blksize=31941 missover ;
   INPUT
                    /* 92-193 are blank */
                    @1 MATCHS 1.
                    @2 BIRYR 4.
                    @10 RECTYPEB 1.
                    @11 RESSTATB 1.
                    @12 OCCURB $10.
                    @12 RDSSCOCB 3.
                    @12 REGNOCCB 1.
                    @13 DIVOCCB 2.
                    @15 ESTATOCB 2.
                    @19 CNTYOCB 3.
                    @17 STATEOCB 2.
                    @22 RESIDB $14.
                    @22 RDSCRESB 3.
                    @22 REGNRESB 1.
                    @23 DIVRESB 2.
                    @25 ESTATRSB 2.
                    @29 CNTYRESB $3.
                    @27 STATERSB 2.
                    @32 CITYRESB $3.
                    @36 CRACE 1.
                    @37 CRACER3 1.
                    @38 CSEX 1.
                    @39 GESTAT 2.
                    @41 GESTR10 2.
                    @43 BIRWT 4.
                    @47 BIRWTR14 2.
                    @49 BIRWTR3 1.
                    @50 PLURAL 1.
                    @51 OMAPS 2.
                    @53 FMAPS 2.
                    @55 ORMOTH 2.
                    @57 MRACE 1.
                    @58 MAGE 2.
                    @60 MAGER12 2.
                    @62 MEDUC 2.
                    @64 MEDUCR6 1.
                    @65 MARSTAT 1.
                    @66 MPLBIR 2.
                    @68 ORFATH 2.
                    @70 FRACE 1.
                    @71 FAGE 2.
                    @73 FEDUC 2.
                    @75 ISLLBR9 1.
                    @76 OUTLP 1.
                    @77 ISTLPR9 1.
                    @78 MPRE 2.
                    @80 MPRER6 1.
                    @81 NPREVIST 2.
                    @83 TOTORD 2.
                    @85 TOTORDR9 1.
                    @86 LIVORD 2.
                    @88 LIVORD9 1.
                    @89 PLDEL 1.
                    @90 BIRATTND 1.
                    @91 RECWT 1.       
;


;
LABEL
   MATCHS='Match Status'
   BIRYR='Year of Birth'
   RECTYPEB='Record Type - Birth'
   RESSTATB='Resident Status - Birth'
   OCCURB='Place of Occurrence - Birth'
   RDSSCOCB='Reg, Div, & State of Occ - Birth'
   REGNOCCB='Region of Occurrence - Birth'
   DIVOCCB='Division of Occurrence - Birth'
   ESTATOCB='Expanded State of Occurrence - Birth'
   CNTYOCB='County of Occurrence - Birth'
   STATEOCB='State of Occurrence - Birth'
   RESIDB='Place of Residence - Birth'
   RDSCRESB='Reg, Div, & State of Res - Birth'
   REGNRESB='Region of Residence - Birth'
   DIVRESB='Division of Residence - Birth'
   ESTATRSB='Expanded State of Residence - Birth'
   CNTYRESB='County of Residence - Birth'
   STATERSB='State of Residence - Birth'
   CITYRESB='City of Residence - Birth'
   CRACE='Detail Race of Child'
   CRACER3='Race of Child recode 3'
   CSEX='Sex of Child'
   GESTAT='Detail Gestation in Weeks'
   GESTR10='Gestation recode 10'
   BIRWT='Birth Weight in Grams'
   BIRWTR3='Birth Weight recode 3'
   BIRWTR14='Birth Weight recode 14'
   PLURAL='Plurality'
   OMAPS='One Minute Apgar Score'
   FMAPS='Five Minute Apgar Score'
   ORMOTH='Origin or Descent of Mother'
   MRACE='Detail Race of Mother'
   MAGE='Detail Age of Mother'
   MAGER12='Age of Mother recode 12'
   MEDUC="Mother's Education - Detail"
   MEDUCR6="Mother's Education recode 6"
   MARSTAT="Mother's Marital Status"
   MPLBIR="Mother's Place of Birth"
   ORFATH='Origin or Descent of Father'
   FRACE='Detail Race of Father'
   FAGE='Detail Age of Father'
   FEDUC="Father's Education - Detail"
   ISLLBR9='Interval Since Last Live Birth'
   OUTLP='Outcome of Last Pregnancy'
   ISTLPR9='Interval Since Termination of Last P...' /*regnancy*/
   MPRE='Detail Month of Pregnancy Prenatal C...' /*are Began*/
   MPRER6='Month Prenatal Care recode 6'
   NPREVIST='Total Number of Prenatal Visits'
   TOTORD='Detail Total Birth Order'
   TOTORDR9='Total Birth Order recode 9'
   LIVORD='Detail Live Birth Order'
   LIVORD9='Live Birth Order Recode 9'
   PLDEL='Place of Delivery'
   BIRATTND='Attendant at Birth'
   RECWT='Record Weight'
;

proc freq data=WORK.Den83;
tables biryr;
weight recwt;
title3 "The weighted cumulative frequency should equal the 1983 births: 3,643,001";
run;
title3;
proc print data=WORK.Den83 (obs=6);
PROC CONTENTS DATA=WORK.Den83 ;
proc means data=WORK.Den83;