/* Copyright(c) 2000 by SAS Institute Inc., Cary, NC USA */
/* FORCCGRF.SCL:  Forecast graph used with Forecast      */
/* Command Builder application.                          */

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,     1         );
   call send( graphid, '_set_marker_',      1,     2         );
   call send( graphid, '_set_marker_',      1,     3         );
   call send( graphid, '_set_style_',      'LINE', 1, 'NONE' );
   call send( graphid, '_set_size_',       'MARKER', 1, 'SMALL');
   call send( graphid, '_set_size_',       'MARKER', 2, 'SMALL');
   call send( graphid, '_set_size_',       'MARKER', 3, 'SMALL');
   call send( graphid, '_show_legend_' );
return;

term:
   rc = dellist( reflist );
return;