• Print  |
  • Feedback  |

FOCUS AREAS

Statistics and Operations Research: Examples

Source Code to Display a Forecast Graph From The Forecast Command Builder 

/* Copyright(c) 1998 by SAS Institute Inc., Cary, NC USA */
/* FORCCGRF.SCL:  Source code for FORCCGRF.FRAME, used   */
/* to display a forecast graph.  Called from FORCCOUT.SCL*/
/* used with the Forecast Command Builder, FORCCMD.SCL.  */
entry name timeid $ 32 dataend 8;

rc = rc;

init:
   reflist = makelist();
   rc = insertn( reflist, dataend );

   call send( _self_,  '_get_widget_',     'forecast', graphid );
   call send( graphid, '_set_dsname_',     'work.tempf' );
   call send( graphid, '_set_graph_type_', 3 );
   call send( graphid, '_set_dep_var_',    name );
   call send( graphid, '_set_indep_var_',  timeid );
   call send( graphid, '_set_id_var_',     'Legend' );
   call send( graphid, '_set_ref_lines_',  'HAXIS', reflist );
   call send( graphid, '_set_style_',      'HREFLINE', 1, 'DASHED' );
   call send( graphid, '_set_color_',      'BACKPLANE', 'WHITE' );
   call send( graphid, '_set_size_',       'LINE', 1, 'THIN' );
   call send( graphid, '_set_size_',       'LINE', 2, 'THIN' );
   call send( graphid, '_set_size_',       'LINE', 3, 'THIN' );
   call send( graphid, '_set_size_',       'LINE', 4, 'THIN' );
   call send( graphid, '_set_size_',       'LINE', 5, 'THIN' );
   call send( graphid, '_set_marker_',      3,     2         );
   call send( graphid, '_set_style_',      'LINE', 2, 'NONE' );
   call send( graphid, '_set_size_',       'MARKER', 2, 'SMALL');
   call send( graphid, '_show_legend_' );
return;

term:
   rc = dellist( reflist );
return;

Statistics and Operations Research Home Page | Time Series Forecasting System