set length=none width=133
file handle in / inpipe 'zcat pccf_nat86.dat.Z' 
 / lrecl=375
data list file=in /
 fsa       001-003 (A)
 PC        001-006 (A)
 ZUTM      007-008
 XUTM      009-014
 YUTM      015-021
 LAT       022-027 (4)
 LONG      028-034 (4)
 PRov      035-036
 CD        037-038
 CSD       039-041
 FEDC76    042-044
 EA        045-047
 CCS       048-050
 CMACA     051-053
 PCMAPCAC  054-056
 CTPCTCOD  057-060
 CTPCTNAM  061-067 (2)
 ROC       068-068
 SPR       069-070
 BIRDATE   071-074
 RETDATE   075-078
 FULLREC   079-079
 RETPC     080-080
 UPDATE    081-086
 DMT       087-087 (A)
 RURALOC   088-088
 CSDNAME   089-138 (A)
 CSDTYPE   139-141 (A)
 CDNAME    142-191 (A)
 FEDN76    192-241 (A)
 PCMAPCAN  292-341 (A)
 FEDC87    342-344
 FEDN87    345-375 (A)
 .
variable labels 
 FEDC87   "Fed Electoral Distr Code/1987 Rep Order"
 FEDC76   "Fed Electoral Distr Code/1976 Rep order"
 EA       "Enumeration Area Code"
 DMT      "Delivery Mode Type Code"
 CTPCTNAM "CT/PCT Name"
 CTPCTCOD "Census Tract/Prov Census Tract Code"
 CSDTYPE  "Census Subdivision Type"
 CSDNAME  "Census Subdivision Name"
 CSD      "Census Subdivision Code"
 CMACA    "Census Metro Area/Census Aggn Area"
 CDNAME   "Census Division Name"
 CD       "Census Division Code"
 CCS      "Census Consolidated Subdivision Code"
 BIRDATE  "Birth Date"
 ZUTM     "Z - UTM Zone"
 YUTM     "Y - UTM Northing Coordinate"
 XUTM     "X - UTM Easting Coordinate"
 UPDATE   "Update Date"
 SPR      "Subprovincial Region Code"
 RURALOC  "Rural Post Office Location"
 ROC      "Statistics Canada Regional Office Code"
 RETPC    "Retired Postal Code Indicator"
 RETDATE  "Retired Date"
 PRov     "Region/Province Code"
 PCMAPCAN "Primary CMA/CA Name Name"
 PCMAPCAC "Primary CMA/CA Code"
 PC       "Postal Code"
 LONG     "Longitude"
 LAT      "Latitude"
 FULLREC  "Full Record Indicator"
 FEDN87   "Fed Electoral Distr Name/1987 Rep Order"
 FEDN76   "Fed Electoral Distr Name/1976 Rep Order"
 .

sort cases by prov fsa spr
aggregate outfile=* / break=fsa prov spr
 / count=nu
list variables=fsa prov spr count
execute
finish