View of SLIDE.SAS



/* ---------------------------------------------------   */
/* slide.sas  - show the input as a GIF file             */
/* ---------------------------------------------------   */

%global XYZ TCOLOR;

/*  these statments can be used to test without the application dispatcher
filename _webout 'c:\workshop\ws124\grphout.gif';
%let XYZ=testme;
%let TCOLOR=red;
*/

             /* ------------------------------------------  */
             /* generate an HTTP header for a GIF file      */
             /* don't run this data step if testing locally */
             /* ------------------------------------------  */
data _null_;
 file _webout;
 put 'Content-type: image/gif'/;

run;

             /* ------------------------------  */
             /* use a GIF graphics device       */
             /* ------------------------------  */
goptions device=gif160
         gsfmode=replace
         gsfname=_webout;

             /* -------------------------------------  */
             /* set the color from an input parameter */
             /* -------------------------------------  */

goptions ctitle=%superQ(TCOLOR);

             /* -------------------------- */
             /* generate the graphic       */
             /* -------------------------- */

proc gslide frame;
  note h=10  move=(8,15) f=brush %superQ(XYZ);

run;

   

back to the overview