From FHD@TAMVM1.TAMU.EDU Wed Jun 26 07:18:17 1996
Received: from tamvm1.tamu.edu (TAMVM1.TAMU.EDU [128.194.103.19]) by gsb-pound.Stanford.EDU (8.7.5/8.7.1) with SMTP id HAA15055 for <doncram@GSB-CROWN.STANFORD.EDU>; Wed, 26 Jun 1996 07:18:15 -0700 (PDT)
Message-Id: <199606261418.HAA15055@gsb-pound.Stanford.EDU>
Received: from TAMVM1.TAMU.EDU by tamvm1.tamu.edu (IBM VM SMTP V2R2)
   with BSMTP id 8450; Wed, 26 Jun 96 09:18:08 CST
Received: from tamvm1.tamu.edu (NJE origin FHD@TAMVM1) by TAMVM1.TAMU.EDU (LMail V1.2a/1.8a) with BSMTP id 9803; Wed, 26 Jun 1996 09:18:07 -0600
Date:         Wed, 26 Jun 96 09:16:53 CST
From: H Alan Montgomery <FHD@TAMVM1.TAMU.EDU>
Subject:      CHSP  SAS
To: doncram@GSB-CROWN.STANFORD.EDU
Status: RO

Below is the list of files that CHSP reads, then the program.
-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-
File   File     SAS Pgm
Nbr    Name     to Use
38     DSP500   CHSP
39     MSP500   CHSP
-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-
data one;infile in;

   input (CALDT VWRETD VWRETX EWRETD EWRETX
      TOTVAL TOTCNT USDVAL USDCNT SPRTRN SPINDX)
      (7. 4*E14.6 E16.8 6. E16.8 6. 8.2 E14.6);

   array vals(i) CALDT VWRETD VWRETX EWRETD EWRETX
                 SPRTRN SPINDX TOTVAL TOTCNT USDVAL USDCNT ;

* Check for -99 (round off may not make it -99 exactly so use a range);
   DO OVER VALS;IF VALS<-98 AND VALS> -100 THEN VALS=.;END;

