/* uca2sas.sas

  SAS PROGRAM FOR CONVERTING ANNUAL PST,FULL COVERAGE AND RESEARCH TAPES 
  in universal character annual format on University of Arizona unix system
  TO SAS DATASETS 
*/

/*

Note added by Don Cram 12/96:

This program kindly provided by Mark A. Trombley.  Mark notes "the
program was not designed for distribution, so I have not inserted any
documentation lines anywhere."

Users should consult the _Compustat Technical Guide_ before applying this
program.  A nice touch which could be added is to match SAS PROC DATASOURCE's
differentiation of missing values by symbols
        .    for missing
        .C   for Combined with other data
        .I   for Insignificant
        .S   for Semi-Annual (in Quarterly data)
        .A   for Annual (in Quarterly data)

Simplifying somewhat, the _Compustat Technical
Guide_ reports that -.0001, -.0004, -.0008, -.0002, -.0003 in 10.3
formatted fields in the Universal Char. Format (and .0001, .0004,
.0008, .0002, and .0003 in the IBM360/370 format) have definitions Not
Available; Combined Figure; Insignificant Figure; and Semi-Annual
Figure.

Potential users should consider using SAS PROC DATASOURCE which also
reads Compustat files directly, or Gerry Pauline's corresponding
program.  There are other differences in the datasets created by this
program vs. those created by SAS PROC DATASOURCE, including:
        this processes company name information correctly, while
                PROC DATASOURCE in SAS before version 6.12 does not
        this uses d1 where DATASOURCE uses data1
        this does not add labels to variables where DATASOURCE does

See the CRSP-L FAQ webpage at http://www-leland.stanford.edu/class/gsb/
crsp/CRSP-L/FAQ.html for similar programs and updates.

End of note added by Don Cram.

*/

options ls=80;
libname dat '/fa2/compustat/annual';
data dat.pst (compress=yes keep=DNUM CUSIP FILE ZLIST NAME SMBL FYR 
    YEAR INAME 
    XREL STK DUP  UCODE STATE COUNTY FINC SOURCE CPSPIN CSSPIN CSSPII SDBT 
    SDBTIM SUBDBT CPAPER EIN AFNT1-AFNT35 BFNT1-BFNT35 D1-D350);
   array D1A{875}; 
   array D1B{875}; 
   array D1C{875}; 
   array D1D{875}; 
   array D2A{875}; 
   array D2B{875};
   array D2C{875}; 
   array D2D{875};
   array F1A{175} $;
   array F1B{175} $;
   array F1C{175} $; 
   array F1D{175} $; 
   array F2A{175} $; 
   array F2B{175} $; 
   array F2C{175} $; 
   array F2D{175} $; 
   array FYA{5}; 
   array FYB{5}; 
   array FYC{5}; 
   array FYD{5}; 
   array YRA{5}; 
   array YRB{5};
   array YRC{5}; 
   array YRD{5}; 
   array UCA{5}; 
   array UCB{5}; 
   array UCC{5}; 
   array UCD{5}; 
   array SCA{5}; 
   array SCB{5}; 
   array SCC{5}; 
   array SCD{5};
   array D{350}; 
   array AFNT{35} $; 
   array BFNT{35} $;
   infile '/fa3/new_compustat/pst.annual' lrecl=8333;
   do I=1 to 8;
    input (DNUM CUSIP BLK REC FILE) (4.,$8.,$1.,1.,2.) @;
    if REC=1 then input 
      (ZLIST NAME SMBL FYA{*} YRA{*} XREL STK DUP BLANK UCA{*} F1A{*} D1A{*})
      (2.,$28.$8.,10*2.,4.,1.,2.,6.,5*1.,175*$2.,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3);
    if REC=2 then input 
     (ZLIST INAME SMBL FYB{*} YRB{*} XREL STK DUP BLANK UCB{*} F1B{*} D1B{*})
       (2.,$28.$8.,10*2.,4.,1.,2.,6.,5*1.,175*$2.,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3);
    if REC=3 then input 
       (ZLIST NAMX SMBL FYC{*} YRC{*} XREL STK DUP BLANK UCC{*} F1C{*} D1C{*})
       (2.,$28.$8.,10*2.,4.,1.,2.,6.,5*1.,175*$2.,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10..3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3);
    if REC=4 then input 
       (ZLIST NAMY SMBL FYD{*} YRD{*} XREL STK DUP BLANK UCD{*} F1D{*} D1D{*})
       (2.,$28.$8.,10*2.,4.,1.,2.,6.,5*1.,175*$2.,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10..3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3);
    if REC=5 then input 
      (STATE COUNTY FINC SCA{*} CPSPIN CSSPIN CSSPII SDBT SDBTIM 
       SUBDBT CPAPER BLANK1 EIN BLANK2 F2A{*} D2A{*})   
       (2.,3.,2.,5*2.,$1.,$2.,$1.,3*$2.,$3.,$6.,$10.,$30.,175*$2.,13*10.3,
       8.3,10.3,8.3,5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,
       8.3,2*10.3,2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,
       10.3,8.3,3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,
       10.3,4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3); 
    if REC=6 then input 
      (STATE COUNTY FINC SCB{*} CPSPIN CSSPIN CSSPII SDBT SDBTIM
       SUBDBT CPAPER BLANK1 EIN BLANK2 F2B{*} D2B{*}) 
        (2.,3.,2.,5*2.,$1.,$2.,$1.,3*$2.,$3.,$6.,$10.,$30.,175*$2.,13*10.3,
       8.3,10.3,8.3,5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,
       8.3,2*10.3,2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,
       10.3,8.3,3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,
       10.3,4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3);   
    if REC=7 then input 
       (STATE COUNTY FINC SCC{*} CPSPIN CSSPIN CSSPII SDBT SDBTIM
        SUBDBT CPAPER BLANK1 EIN BLANK2 F2C{*} D2C{*}) 
        (2.,3.,2.,5*2.,$1.,$2.,$1.,3*$2.,$3.,$6.,$10.,$30.,175*$2.,13*10.3,
       8.3,10.3,8.3,5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,
       8.3,2*10.3,2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,
       10.3,8.3,3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,
       10.3,4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3); 
    if REC=8 then input 
       (STATE COUNTY FINC SCD{*} CPSPIN CSSPIN CSSPII SDBT SDBTIM
        SUBDBT CPAPER BLANK1 EIN BLANK2 F2D{*} D2D{*})
        (2.,3.,2.,5*2.,$1.,$2.,$1.,3*$2.,$3.,$6.,$10.,$30.,175*$2.,13*10.3,
       8.3,10.3,8.3,5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,
       8.3,2*10.3,2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,
       10.3,8.3,3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,
       10.3,4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3,13*10.3,8.3,10.3,8.3,
       5*10.3,3*8.3,10.3,8.3,10.6,10.3,8.3,3*10.3,8.3,10.3,8.3,2*10.3,
       2*8.3,6*10.3,8.3,3*10.3,3*8.3,10.4,6*8.3,3*10.3,3*8.3,10.3,8.3,
       3*10.3,8.3,10.3,2*8.3,10.3,6*8.3,3*10.3,2*8.3,10.3,4*8.3,10.3,
       4*8.3,4*10.3,8*8.3,2*10.3,8.3,7*10.3,8.3,6*10.3,5*8.3,3*10.3,
       8.3,5*10.3,8.3,4*10.3,2*8.3,10.3,3*8.3,10.3,11*8.3,10.3,6*8.3,
       10.3,8.3,10.3,2*8.3,10.3);  
   end;
   if DNUM<100 then stop;
   do I=1 to 875;
    if D1A{I}=-0.001 then D1A{I}=.; if D1A{I}=-0.004 then D1A{I}=.;
    if D1B{I}=-0.001 then D1B{I}=.; if D1B{I}=-0.004 then D1B{I}=.; 
    if D1C{I}=-0.001 then D1C{I}=.; if D1C{I}=-0.004 then D1C{I}=.;
    if D1D{I}=-0.001 then D1D{I}=.; if D1D{I}=-0.004 then D1D{I}=.;
    if D2A{I}=-0.001 then D2A{I}=.; if D2A{I}=-0.004 then D2A{I}=.;
    if D2B{I}=-0.001 then D2B{I}=.; if D2B{I}=-0.004 then D2B{I}=.; 
    if D2C{I}=-0.001 then D2C{I}=.; if D2C{I}=-0.004 then D2C{I}=.;
    if D2D{I}=-0.001 then D2D{I}=.; if D2D{I}=-0.004 then D2D{I}=.;
    if D1A{I}=-0.008 then D1A{I}=.; if D1A{I}=-0.002 then D1A{I}=.;
    if D1B{I}=-0.008 then D1B{I}=.; if D1B{I}=-0.002 then D1B{I}=.; 
    if D1C{I}=-0.008 then D1C{I}=.; if D1C{I}=-0.002 then D1C{I}=.;
    if D1D{I}=-0.008 then D1D{I}=.; if D1D{I}=-0.002 then D1D{I}=.;
    if D2A{I}=-0.008 then D2A{I}=.; if D2A{I}=-0.002 then D2A{I}=.;
    if D2B{I}=-0.008 then D2B{I}=.; if D2B{I}=-0.002 then D2B{I}=.; 
    if D2C{I}=-0.008 then D2C{I}=.; if D2C{I}=-0.002 then D2C{I}=.;
    if D2D{I}=-0.008 then D2D{I}=.; if D2D{I}=-0.002 then D2D{I}=.;
    if D1A{I}=-0.003 then D1A{I}=.; 
    if D1B{I}=-0.003 then D1B{I}=.; 
    if D1C{I}=-0.003 then D1C{I}=.; 
    if D1D{I}=-0.003 then D1D{I}=.; 
    if D2A{I}=-0.003 then D2A{I}=.; 
    if D2B{I}=-0.003 then D2B{I}=.;  
    if D2C{I}=-0.003 then D2C{I}=.; 
    if D2D{I}=-0.003 then D2D{I}=.; 
   end;
   do I = 1 to 5; 
      do J= 1 to 175;
        D{J}=D1A{((I-1)*175)+J};   
        D{J+175}=D2A{((I-1)*175)+J};  
      end;
      do J= 1 to 35;
        AFNT{J}=F1A{((I-1)*35)+J};
        BFNT{J}=F2A{((I-1)*35)+J};
      end;
      FYR=FYA{I};
      YEAR=YRA{I};
      UCODE=UCA{I};
      SOURCE=SCA{I};      
      output; 
   end; 
   do I = 1 to 5; 
      do J= 1 to 175;
        D{J}=D1B{((I-1)*175)+J};   
        D{J+175}=D2B{((I-1)*175)+J};  
      end;
      do J= 1 to 35;
        AFNT{J}=F1B{((I-1)*35)+J};
        BFNT{J}=F2B{((I-1)*35)+J};
      end;
      FYR=FYB{I};
      YEAR=YRB{I};
      UCODE=UCB{I};
      SOURCE=SCB{I};      
      output;
   end;    	
   do I = 1 to 5; 
      do J= 1 to 175;
        D{J}=D1C{((I-1)*175)+J};   
        D{J+175}=D2C{((I-1)*175)+J};  
      end;
      do J= 1 to 35;
        AFNT{J}=F1C{((I-1)*35)+J};
        BFNT{J}=F2C{((I-1)*35)+J};
      end;
      FYR=FYC{I};
      YEAR=YRC{I};
      UCODE=UCC{I};
      SOURCE=SCC{I};      
      output; 
   end;    	
   do I = 1 to 5; 
      do J= 1 to 175;
        D{J}=D1D{((I-1)*175)+J};   
        D{J+175}=D2D{((I-1)*175)+J};  
      end;
      do J= 1 to 35;
        AFNT{J}=F1D{((I-1)*35)+J};
        BFNT{J}=F2D{((I-1)*35)+J};
      end;
      FYR=FYD{I};
      YEAR=YRD{I};
      UCODE=UCD{I};
      SOURCE=SCD{I};
      output;      
   end;