title " "; footnote " ";
goptions horigin=1 in vorigin=2 in hsize = 6 in vsize = 8 in
lfactor=6;

DATA STEEL;
   INPUT EXPORT @@;
   TITLE 'IRON AND STEEL EXPORTS EXCLUDING SCRAPS';
   TITLE2 'WEIGHT IN MILLION TONS';
   TITLE3 '1937-1980';

      Theta = 0 -.47365 - .030603 + .00723 - .0015 + .000315;

      **  put the value of theta in a MACRO variable called &value **
      ** use the put function to format it first                **;

      call symput('value',put(theta,8.5));

      e1=e; w1=w;
      if e=. then e1=0; if w=. then w1=0;
      Y = export - 194.4/44;
      e = Y + theta*e1;  retain e;
      w = theta*W1 - e1;  retain w;
   CARDS;
3.89 2.41 2.8 8.72 7.12 7.24 7.15 6.05 5.21 5.03 6.88 4.7 5.06 3.16
3.62 4.55 2.43 3.16 4.55 5.17 6.95 3.46 2.13 3.47 2.79 2.52 2.8 4.04
3.08 2.28 2.17 2.78 5.94 8.14 3.55 3.61 5.06 7.13 4.15 3.86 3.22
3.5 3.76 5.11
;
proc print data=steel;
   proc reg; model e = W/noint;
** MACRO variables are character valued.
  Insert &value in the title **;
title4 "Using theta = " &value ;
proc arima; i var=y nlag=4; e q=1 noconstant;
title4 "We got theta = " &value;
run;