= V5 MultiLine NoSorting TabWidth=30

H="*"
**************************************************.


H="*3"
**************************************************.
*^& .
**************************************************.



H="AG"
AGGREGATE OUTFILE=*
    /PRESORTED
    /BREAK=^&
    /
    .


H="AD"
ADD FILES FILE='C:\DATA\TEMP\^&.SAV'
    	   /FILE='C:\DATA\TEMP\.SAV'
    /MAP 
    .


H="co"
compute ^&    .

H="CORR"
SUBTITLE BIVARIATE CORRELATIONS
CORRELATIONS
  /VARIABLES=^&
  /PRINT=TWOTAIL NOSIG
  /STATISTICS DESCRIPTIVES
  /MISSING=PAIRWISE     .


H="CR"
CROSSTABS TABLES=^&        /* DOWN BY ACROSS
   /CELLS=COUNT     .


H="COUNT"
COMPUTE COUNTVAR=1     .
VAR LABLES COUNTVAR ' '     .
VALUE LABELS COUNTVAR 1 ' '     .
FORMATS COUNTVAR (F4.0)     .


H="DA"
DATA LIST FILE='C:\DATA\temp^&.TXT'    TABLE
    /1 
    .


H="DE"
DESCRIPTIVES VARIABLES=^&
    /STATISTICS=SUM,MEAN     .


H="DO"
DO IF ^&     .
.  COMPUTE     .
ELSE     .
.  COMPUTE     .
END IF      .


H="FR"
FREQUENCIES VARIABLES=^&     .


H="DUP"
**************************************************.
SUBTITLE TAG DUPLICATES ^&     .
SORT CASES BY XXX     .

AGGREGATE OUTFILE='C:\DATA\TEMP\AGGR 1.SAV'
    /PRESORTED
    /BREAK=XXX
    /NRECS=N     .

MATCH FILES TABLE='C:\DATA\TEMP\AGGR 1.SAV'      
    /FILE=*  
    /BY XXX     .
SUBTITLE     .
**************************************************.
TEMPORARY     .
SUBTITLE     .
SELECT IF NRECS > 1     .
LIST VARIABLES=
    /CASES FROM 1 TO 100     .
SUBTITLE     .
**************************************************.


H="GE"
**************************************************
GET FILE='C:\DATA\TEMP\^&.SAV'
    /MAP     .


H="GET"
GET TRANSLATE
    FILE='C:\DATA\^&.DBF'
    /TYPE=DBF /MAP     .



H="GETX"
GET DATA /TYPE=XLS
   /FILE='C:\DATA\^&'
   /SHEET=name 'Sheet1'
   /CELLRANGE=full
   /READNAMES=on     .


H="IN"
INCLUDE 'C:\PROG\^&.SPS'     .


H="LI"
LIST VARIABLES=^&
    /CASES FROM 1 TO 100     .


H="MI"
MISSING VALUES  ^&  (' ')     .

H="MA"
MATCH FILES FILE=*
    /IN=IN^&
    /FILE='C:\DATA\TEMP\.SAV'   
    /IN=IN
    /BY 
    /MAP     .
CROSSTABS TABLES= IN BY IN     .
**************************************************.


H="ME"
MEANS TABLES=^&
    /CELLS=count,sum,mean,min,max     .



H="SU"
SUBTITLE ^&     .


H="PROG"
SET PRINTBACK=YES.  /*Forces the listing of commands in the output
SET RESULTS = LISTING /*Forces the text results into the output
    /ERRORS = BOTH   /*says to list both WARNINGS and ERRORS in the output
    /MESSAGES = BOTH  /*says to list resource utilization in the output
    /HEADER=YES   /*says to list the headers (default, TITLE, and SUBTITLE) in the output
    /WIDTH=128   /*page width = 128
    /LENGTH=51    .   /*page length = 51
    
TITLE    .     
***************************************************.
*^&.SPS .
*.
*BY GREG BLACK, MASTER OF THE KNOWN UNIVERSE .
*.
*.
*.
*.
***************************************************    .






H="RE"
RECODE ^&      .

H="SO"
SORT CASES BY ^&     .

H="REG"
REGRESSION
  /MISSING PAIRWISE
  /STATISTICS COEFF OUTS BCOV R ANOVA COLLIN TOL CHANGE
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN
  /DEPENDENT ^&
  /METHOD=STEPWISE **VARS HERE**
  /SAVE DFBETA
  /OUTFILE=MODEL('C:\DATA\EE_RATE_MULTIPLE.xml')     .


H="SC"
                                                                                                   1         1         1         1         1         1         1         1         1         1         2         2         2         2         2         2         2         2         2         2         3
         1         2         3         4         5         6         7         8         9         0         1         2         3         4         5         6         7         8         9         0         1         2         3         4         5         6         7         8         9         0
123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890


H="SE"
SELECT IF ^&     .

H="ST"
SAVE TRANSLATE OUTFILE='C:\DATA\^&.xls'
   /KEEP=
   /TYPE=XLS  /MAP /REPLACE /FIELDNAMES     .


H="TCEQ"
**************************************************.
*Begin of chemical .
**************************************************.
GET FILE='C:\DATA\TCEQ\TCEQ_VOC_EMISSIONS_CONTAM_NAM_AG.SAV'
    /MAP .

select if CONTAM_NAM= 'XXXX'    /* 'ACETONE' 'METHANOL', 'TOLUENE', 'XYLENE-U')

MATCH FILES table=*
    /IN=INvoc
    /FILE='C:\DATA\TCEQ\TCEQ_ALL_CONTACTS.SAV'
    /IN=INcontacts
    /BY REG_ENT_RE ACCT_NUM
    /MAP .
CROSSTABS TABLES= INvoc BY INcontacts     .
**************************************************.

SELECT IF invoc=1 .


SAVE TRANSLATE OUTFILE='C:\DATA\TCEQ\TCEQ_Contacts_for_XXXX.xls'
   /KEEP= 
     ORG_NAME_T
     SITE_NAME_
     contam_nam  
     SumOfAnn_Q  
     REG_ENT_RE
     ACCT_NUM
     DESC_TXT
     ROLE_CD
     FIRST_NAM_
     LAST_NAME_
     JOB_TITLE_
     TYPE_CD
     ADDR1TXT
     ADDR2TXT
     CITY_TXT
     STATE_TXT
     ZIP_TXT
     ZIP_EXT
     PHONE_NUMB
     EXTENSION_
     /*SIC_CD_Label
   /TYPE=XLS  /MAP /REPLACE /FIELDNAMES .
**************************************************.
*end of chemical .
**************************************************.


H="TE"
**************************************************.
TEMPORARY     .
SUBTITLE     .
SELECT IF ^&     .

LIST VARIABLES=
    /CASES FROM 1 TO 100     .
SUBTITLE     .
**************************************************.


H="VAR"
VAR LABELS ^&     .

H="VAL"
VALUE LABELS ^&     .

H="WR"
WRITE OUTFILE='C:\prog\temp^&.DAT'     TABLE
    /1      .
EXECUTE    .


H="XD"
^&COMPUTE XXXDD=XDATE.MDAY(dt_XXX)     .
COMPUTE XXXMM=XDATE.MONTH(dt_XXX)     .
COMPUTE XXXYY=XDATE.YEAR(dt_XXX)     .

RECODE dt_XXX (SYSMIS=0)(else=copy) into XXXno     .

compute xxxym=(100*xxxYY)+xxxMM     .
formats xxxym (f6.0)     .

recode XXXMM
    (01,02,03=01)
    (04,05,06=02)
    (07,08,09=03)
    (10,11,12=04)
    into XXXQQ     .
compute XXXYYQQ=100*XXXYY+XXXQQ     .

formats XXXYYQQ (F6.0)     .




H="XS"
XSAVE OUTFILE='C:\DATA\TEMP\^&.SAV'
    /MAP .
FREQUENCIES VARIABLES=     .
**************************************************    .