THE FOLLOWING IS A QUICK GUIDE TO THE RASCHE/ROTEMBURG PROGRAMS AND
DATA FILES.  FOR A MORE DETAILED DESCRIPTION, PLEASE CHECK THE
INDIVIDUAL FILES.

FOR ROTEMBURG:

    JULIO.PGM:      HAS SAS PROGRAMS WHICH DO THE 4 REGRESSIONS.

    DATA.DAT:       CONTAINS DATA USED IN REGRESSIONS 1 AND 2.
                    THIS FILE IS ALSO AN ASCII TRANSFORMATION OF THE
                    DATA SET USED IN THE RASCHE PROGRAMS.

    JULIOQ.DAT:     CONTAINS DATA USED IN REGRESSIONS 3 AND 4.

    VELDATA.DAT:    CONTAINS DATA FOR FIGURE 2.  YOU CAN GET FIGURE 1
                    DATA FROM THE DATA.DAT FILE.

FOR RASCHE:

    M1VAR.PGM:      PROGRAM WHICH CALCULATES TABLES 1 AND 2 AS WELL AS
                    FIGURES 5-8.

    JOHANUM1.PGM:   PROGRAM WHICH CALCULATES TABLES 3 AND 4.

    DATA.DAT:       CONTAINS DATA USED IN THE RASCHE PAPER.  SINCE
                    THIS IS IN ASCII FORMAT, YOU WILL HAVE TO CHANGE
                    THE DATA STEPS IN THE RASCHE PROGRAMS TO READ IN
                    ASCII FORMATTED DATA, NOT RATS FORMATTED DATA.

    STLOUIS.APP:    PROGRAM WHICH CREATES THE CHARTS WHICH APPEAR IN THE
                    APPENDIX.

    NEWMON.RAT:     DATA FILE USED FOR THE PAPER.  THIS IS IN RATS
                    FORMAT.  THE DATA.DAT FILE IS AN ASCII TRANSFORM-
                    ATION OF THIS FILE.

    IMPULSE.UNR:    THE DATA WHICH WAS SAVED FROM A MONTE CARLO
                    SIMULATION AND PLOTTED IN THE APPENDIX.

************************************************************************

//H1RIJ00X JOB ('4,1303000,10100',19),'JAKO',CLASS=A,
// MSGCLASS=X,MSGLEVEL=(2,0),NOTIFY=H1RIJ00
//STEP1 EXEC SAS
FILENAME IN  'H1RIJ00.RASCHE.CNTL';

*********************************************************************
*  THIS PROGRAM WILL COMPUTE THE 4 REGRESSIONS IN THE ROTEMBERG     *
*  COMMENTS TO THE BOB RASCHE PAPER.                                *
*                                                                   *
*  THIS PROGRAM WAS RUN IN SAS VERSION 607.                         *
*                                                                   *
*  FOR THE CHARTS, JUST USE THE DATA FROM THE FIRST REGRESSION TO   *
*  PLOT ACTUAL VELOCITY AND FITTED VELOCITY WITH AND WITHOUT TREND  *
*  TO GET FIGURE 1.  FOR FIGURE 2, THERE IS A DATA SET CALLED       *
*  VELDATA.DAT WITH THIS DATA.                                      *
*********************************************************************
;

  DATA A;
  INFILE IN(DATA) FIRSTOBS=50 OBS=171;
  INPUT YEAR 7-8 @9 JUNK $1. @11 QTR @17 M1 @33 RTB @49 GNP @65 GNP82;

  M1VEL  = LOG(GNP/M1);

  D = 0;
  IF YEAR GT 78 THEN D=RTB;

  PROC REG;
       MODEL M1VEL=RTB/DW;
       TITLE 'REGRESSION RESULTS FOR ROTEMBURG EQUATION 1' ;

  PROC REG;
       MODEL M1VEL=RTB D/DW;
       TITLE 'REGRESSION RESULTS FOR ROTEMBURG EQUATION 2' ;

  DATA B;
       INFILE IN(JULIOQ) FIRSTOBS=2;
       INPUT DATE SASDATE RTB M1 GNP;

       TREND + 1;

       DLM1   = DIF(LOG(M1));
       DLL1M1 = LAG1(DIF(LOG(M1)));
       DLL2M1 = LAG2(DIF(LOG(M1)));
       DLL3M1 = LAG3(DIF(LOG(M1)));
       DLL4M1 = LAG4(DIF(LOG(M1)));
       DLLGNP = DIF(LOG(LAG(GNP)));
       RTB1   = LAG1(RTB);
       RTB2   = LAG2(RTB);
       RTB3   = LAG3(RTB);
       RTB4   = LAG4(RTB);

  PROC REG;
       MODEL DLM1=DLL1M1 DLLGNP TREND/DW;
       OUTPUT OUT=C R=RESIDUAL;
       TITLE 'REGRESSION RESULTS FOR ROTEMBURG EQUATION 3' ;

DATA C; SET C;
     DM1    = MIN(RESIDUAL,0);
     L1DM1  = LAG1(DM1);
     L2DM1  = LAG2(DM1);
     L3DM1  = LAG3(DM1);
     L4DM1  = LAG4(DM1);
     IF TREND GE 7;

  PROC REG;
       MODEL RTB=RTB1 RTB2 RTB3 RTB4 DLL1M1 DLL2M1 DLL3M1 DLL4M1
                 L1DM1 L2DM1 L3DM1 L4DM1/DW;
       TITLE 'REGRESSION RESULTS FOR ROTEMBURG EQUATION 4' ;