From FHD@TAMVM1.TAMU.EDU Wed Jun 26 07:12:09 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 HAA14771 for ; Wed, 26 Jun 1996 07:12:05 -0700 (PDT) Message-Id: <199606261412.HAA14771@gsb-pound.Stanford.EDU> Received: from TAMVM1.TAMU.EDU by tamvm1.tamu.edu (IBM VM SMTP V2R2) with BSMTP id 8442; Wed, 26 Jun 96 09:11:55 CST Received: from tamvm1.tamu.edu (NJE origin FHD@TAMVM1) by TAMVM1.TAMU.EDU (LMail V1.2a/1.8a) with BSMTP id 9549; Wed, 26 Jun 1996 09:11:55 -0600 Date: Wed, 26 Jun 96 09:10:07 CST From: H Alan Montgomery Subject: CHDEC SAS To: doncram@GSB-CROWN.STANFORD.EDU Status: RO 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;