Subject: CHDEC SAS

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

Below is the list of files that can be read by CHDEC SAS followed by  the
program.
-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-
File   File     SAS Pgm
Nbr    Name     to Use
10     DSIA     CHDEC
11     MSIA     CHDEC
12     QSIA     CHDEC
13     ASIA     CHDEC
14     DSIB     CHDEC
15     MSIB     CHDEC
16     QSIB     CHDEC
17     ASIB     CHDEC
18     DSIC     CHDEC
19     MSIC     CHDEC
20     QSIC     CHDEC
21     ASIC     CHDEC
22     DSIO     CHDEC
23     MSIO     CHDEC
24     QSIO     CHDEC
25     ASIO     CHDEC
26     DSIX     CHDEC
27     MSIX     CHDEC
28     QSIX     CHDEC
29     ASIX     CHDEC
30     DSBC     CHDEC
31     DSSC     CHDEC
-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-=<*>=-
data one;infile in;

   INPUT (CALDT VWRETD VWINDD VWRETX VWINDX EWRETD EWINDD  EWRETX EWINDX
   SPRTRN SPINDX DECRET1 DECIND1 DECRET2 DECIND2 DECRET3 DECIND3 DECRET4
   DECIND4  DECRET5  DECIND5  DECRET6  DECIND6  DECRET7  DECIND7 DECRET8
   DECIND8 DECRET9 DECIND9 DECRET10 DECIND10 TOTVAL TOTCNT USDVAL USDCNT)
    (7. 9*E14.6 8.2 20*E14.6 E16.8 6. E16.8 6.) ;

   array vals(i) CALDT VWRETD VWINDD VWRETX VWINDX EWRETD EWINDD  EWRETX
   EWINDX SPRTRN SPINDX DECRET1-DECRET10 DECIND1-DECIND10 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;

   array rets(i) VWRETD VWRETX EWRETD EWRETX SPRTRN DECRET1-DECRET10;
   array inds(i) VWINDD VWINDX EWINDD EWINDX SPINDX DECIND1-DECIND10;

* Check for missing returns where the indices should be set missing also;
   DO I=1 TO 15;
      IF RETS=. AND INDS=0 THEN INDS=.;
   END;

* When there are no (zero) stocks in a value of course they are missing;
   IF TOTCNT=0 THEN DO;TOTCNT=.;TOTVAL=.;END;
   IF USDCNT=0 THEN DO;USDCNT=.;USDVAL=.;END;

   DROP I;