From FHD@TAMVM1.TAMU.EDU Wed Jun 26 07:20:05 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 HAA15136 for <doncram@GSB-CROWN.STANFORD.EDU>; Wed, 26 Jun 1996 07:20:03 -0700 (PDT)
Message-Id: <199606261420.HAA15136@gsb-pound.Stanford.EDU>
Received: from TAMVM1.TAMU.EDU by tamvm1.tamu.edu (IBM VM SMTP V2R2)
   with BSMTP id 8451; Wed, 26 Jun 96 09:19:56 CST
Received: from tamvm1.tamu.edu (NJE origin FHD@TAMVM1) by TAMVM1.TAMU.EDU (LMail V1.2a/1.8a) with BSMTP id 9864; Wed, 26 Jun 1996 09:19:50 -0600
Date:         Wed, 26 Jun 96 09:18:50 CST
From: H Alan Montgomery <FHD@TAMVM1.TAMU.EDU>
Subject:      CHSBBI SAS
To: doncram@GSB-CROWN.STANFORD.EDU
Status: RO

Below is the list of files read by CHSBBI followed by the program.
-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-
File   File     SAS Pgm
Nbr    Name     to Use
40     MSBBI    CHSBBI
41     QSBBI    CHSBBI
42     ASBBI    CHSBBI
-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-
data one;infile in;

     input (caldt
     CSTRET    CSTIND    CSIRET    CSIIND
     CSCRET    CSCIND    GBTRET    GBTIND
     GBIRET    GBIIND    GBCRET    GBCIND
     CBTRET    CBTIND    USTRET    USTIND
     CPIRET    CPIIND    SSTRET    SSTIND)
     (7. 20*E14.6);

     array vals(i)
     CSTRET    CSTIND    CSIRET    CSIIND
     CSCRET    CSCIND    GBTRET    GBTIND
     GBIRET    GBIIND    GBCRET    GBCIND
     CBTRET    CBTIND    USTRET    USTIND
     CPIRET    CPIIND    SSTRET    SSTIND;

* 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;

   drop i;

