#!/bin/csh

foreach year (87)
#foreach month ( 01 02 03 04 05 06 07 08 09 10 11 12 )
foreach month ( 01 )
ls /homes/data/cps-basic/cpsb$year$month.Z
## 64 in 2000 ; 70 in 1993
zcat /homes/data/cps-basic/cpsb$year$month.Z | awk 'substr($0,2,1) == 4 || substr($0,2,1) == 8' >/homes/data/morg/raw/morg$year$month 
compress /homes/data/morg/raw/morg$year$month
end
end
