Subject: CHSBBI SAS

From: H Alan Montgomery <[email-masked]>
Date: Wed, 26 Jun 96 09:18:50 CST

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;