To use this program, follow these steps:
  1. Open an SPSS syntax window (or another text editor)
  2. COPY the program below and PASTE it into the editor window
  3. Edit the program so that the FILE= specification points to where the data file is stored on your system
  4. Save the modified program file and RUN it using SPSS
The program is below this line. If no program is listed, the URL to the EML document may be in error. If the EML file does not include all the information needed, the SPSS program will have errors or be incomplete.

Comment Package ID: knb-lter-vcr.2.3 Cataloging System:VCR.
Comment Data set title: A study of water quality conditions in the tidal creeks of Northampton County, Vs.
Comment  Data set creator:  Luis Lagera -  
Comment  Metadata Provider:    - Virginia Coast Reserve Long-Term Ecological Research Project 
Comment  Contact: Dr Luis Lagera -    - 
Comment  Contact:    - Information manager - Virginia Coast Reserve Long-Term Ecological Research Project   - jporter@lternet.edu
        
        
Title ' A study of water quality conditions in the tidal creeks of Northampton County, Vs' . 

Comment You should replace 'PUT-LOCAL-PATH-TO-DATA-FILE-HERE'  (below) with the appropriate path.   
Comment    to your data file (e.g., c:\mydata\datafile.txt).                 
GET DATA  /TYPE=TXT/
               / FILE="PUT-LOCAL-PATH-TO-DATA-FILE-HERE" 
                        /ARRANGEMENT=Fixed 
                    /VARIABLES= 
                    SITEID 0-2 A  DAY 5-6 F2.0 MONTH 7-8 F2.0 YEAR 9-10 F2.0 TIME 18-21 F4.0 JUCDAY 23-25 F3.0 BATVOL 24-28 F  PANTEMP 31-35 F  THCOTEM 38-42 F  HYDTEMP 45-49 F  HYDPH 52-56 F  HYDCOND 59-62 F  HYDSAL 65-68 F  HYDSAT 70-74 F  HYDDO 77-81 F  .
execute.                
                

                
MISSING VALUES  PANTEMP('99').
MISSING VALUES  THCOTEM('99').
MISSING VALUES  HYDTEMP('99').
MISSING VALUES  HYDPH('99').
MISSING VALUES  HYDCOND('99').
MISSING VALUES  HYDSAL('999').
MISSING VALUES  HYDSAT('99').
MISSING VALUES  HYDDO('99').
VAR LABELS   SITEID 'Site Name / Code- ' .
VAR LABELS   DAY 'Day- DD' .
VAR LABELS   MONTH 'Month- MM' .
VAR LABELS   YEAR 'Year- YY' .
VAR LABELS   TIME 'Time- none' .
VAR LABELS   JUCDAY 'Julian Day- none' .
VAR LABELS   BATVOL 'Battery Voltage- volts' .
VAR LABELS   PANTEMP 'Panel Temperature- deg C' .
VAR LABELS   THCOTEM 'Thermocouple Temperature (Air / Water)- deg C' .
VAR LABELS   HYDTEMP 'Water Temperature- deg C' .
VAR LABELS   HYDPH 'pH- pH units' .
VAR LABELS   HYDCOND 'Conductivity- uSIEMES/cm' .
VAR LABELS   HYDSAL 'Salinity- %' .
VAR LABELS   HYDSAT 'Dissolved oxygen content as pement saturation- %' .
VAR LABELS   HYDDO 'Dissolved oxygen- mg/l' .
                
                
comment The analyses below are basic descriptions of the variables. After testing, they should be replaced.                 
        
                 
Frequencies   variables=SITEID /order=analysis.  
Descriptives   variables=DAY .  
Descriptives   variables=MONTH .  
Descriptives   variables=YEAR .  
Descriptives   variables=TIME .  
Descriptives   variables=JUCDAY .  
Descriptives   variables=BATVOL .  
Descriptives   variables=PANTEMP .  
Descriptives   variables=THCOTEM .  
Descriptives   variables=HYDTEMP .  
Descriptives   variables=HYDPH .  
Descriptives   variables=HYDCOND .  
Descriptives   variables=HYDSAL .  
Descriptives   variables=HYDSAT .  
Descriptives   variables=HYDDO . 
Execute. 
                
                  
COMMENT List cases where data is out of range.  
COMMENT Note: if no out of range cases are detected, the variable names will be listed, but no actual cases.  
TEMPORARY .               
STRING BADVARS (A255).
IF ((NOT MISSING(DAY)) AND (DAY LT 01)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "DAY","-min").
IF ((NOT MISSING(DAY)) AND (DAY GT 31)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "DAY","-max").
IF ((NOT MISSING(MONTH)) AND (MONTH LT 01)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MONTH","-min").
IF ((NOT MISSING(MONTH)) AND (MONTH GT 12)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MONTH","-max").
IF ((NOT MISSING(YEAR)) AND (YEAR LT 00)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "YEAR","-min").
IF ((NOT MISSING(YEAR)) AND (YEAR GT 99)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "YEAR","-max").
IF ((NOT MISSING(TIME)) AND (TIME LT 0000)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "TIME","-min").
IF ((NOT MISSING(TIME)) AND (TIME GT 2400)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "TIME","-max").
IF ((NOT MISSING(JUCDAY)) AND (JUCDAY LT 1)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "JUCDAY","-min").
IF ((NOT MISSING(JUCDAY)) AND (JUCDAY GT 365)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "JUCDAY","-max").
IF ((NOT MISSING(PANTEMP)) AND (PANTEMP LT -5)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "PANTEMP","-min").
IF ((NOT MISSING(PANTEMP)) AND (PANTEMP GT 40)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "PANTEMP","-max").
IF ((NOT MISSING(THCOTEM)) AND (THCOTEM LT -5)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "THCOTEM","-min").
IF ((NOT MISSING(THCOTEM)) AND (THCOTEM GT 40)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "THCOTEM","-max").
IF ((NOT MISSING(HYDTEMP)) AND (HYDTEMP LT -5)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDTEMP","-min").
IF ((NOT MISSING(HYDTEMP)) AND (HYDTEMP GT 40)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDTEMP","-max").
IF ((NOT MISSING(HYDPH)) AND (HYDPH LT 4)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDPH","-min").
IF ((NOT MISSING(HYDPH)) AND (HYDPH GT 10)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDPH","-max").
IF ((NOT MISSING(HYDCOND)) AND (HYDCOND LT 10)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDCOND","-min").
IF ((NOT MISSING(HYDCOND)) AND (HYDCOND GT 100)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDCOND","-max").
IF ((NOT MISSING(HYDSAL)) AND (HYDSAL LT 0)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDSAL","-min").
IF ((NOT MISSING(HYDSAL)) AND (HYDSAL GT 50)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDSAL","-max").
IF ((NOT MISSING(HYDSAT)) AND (HYDSAT LT 0)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDSAT","-min").
IF ((NOT MISSING(HYDSAT)) AND (HYDSAT GT 200)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDSAT","-max").
IF ((NOT MISSING(HYDDO)) AND (HYDDO LT 0)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDDO","-min").
IF ((NOT MISSING(HYDDO)) AND (HYDDO GT 20)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "HYDDO","-max").
SELECT IF (BADVARS NE ""). 
LIST VARIABLES=ALL.
Execute.