Date:         Tue, 25 Apr 2000 15:47:29 +0200
Reply-To:     "Hellriegel, Gerhard" <Gerhard.Hellriegel@TELEKOM.DE>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "Hellriegel, Gerhard" <Gerhard.Hellriegel@TELEKOM.DE>
Subject:      Re: generating GIFs from SAS-Image class
Content-Type: text/plain; charset="ISO-8859-1"

Hi Urs,
if you want, you can try the following macro:

%macro cat2gif (grafcat=work.grafik,
               grafnam=C,
               grafout=\sas\reporting\gifgraf);
  proc catalog cat=&grafcat entrytype=grseg;
    contents out=grafs;
  run;
  quit;
  %let anz=0;
  data _null_;
    set grafs;
    call symput("anz",_n_);
    call symput("n"!!trim(left(put(_n_,7.))),name);
  run;
  %do i=1 %to &anz;
    filename out "&grafout/&grafnam&i..GIF";
    goptions dev=gif733 gsfname=out gsfmode=replace gunit=pct border
         ftext=swiss htitle=6 htext=3;
    proc greplay igout=&grafcat nofs;
      replay &&n&i;
    run;
  %end;
  goptions reset=all;
  quit;
%mend;

Don't use the defaults, they will not fit to your needs. But with some changes you can put all graphs from a catalog to a subdirectory of your choice. The parameter grafout is the subdirectory, where your GIFs are written to, GRAFNAME is the prefix (the graphs are numbered).
You have also the names of the graphs in &n1, &n2.... If you want to, you can replace &grafnam&i by &&n&i to use the SAS names for your GIFs.
If you have questions, let me know!






----------------------------------------------
Gerhard Hellriegel
DeTeCSM / SLM
Im Leuschnerpark 4
64347 Griesheim
Tel.: +49 6151 818 9806
Fax: +49 6151 818 9611
Mobil: 0171 2263497
e-mail: gerhard.hellriegel@telekom.de
privat:  ghellrieg@t-online.de
----------------------------------------------


> -----Urspr> üngliche Nachricht-----
> Von:  Urs Jetter [SMTP:urs.jetter@GMX.NET]
> Gesendet am:  Dienstag, 25. April 2000 14:50
> An:   SAS-L@LISTSERV.UGA.EDU
> Betreff:      generating GIFs from SAS-Image class
>
> Hello,
>
> I want to write the gif images in the SASHELP.* catalogs to
> a filesystem where i can access the same images as GIFs.
>
> Are the images already aviable as GIF or do I have to
> export them.
>
> In case I have to export them, how can I write the Image
> from SAS to a file?
>
> Regards,
>
> Urs
>
>
> * Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful