Date:         Fri, 16 May 2003 23:26:46 -0400
Reply-To:     "Richard A. DeVenezia" <radevenz@IX.NETCOM.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "Richard A. DeVenezia" <radevenz@IX.NETCOM.COM>
Subject:      Re: copying using scl or base?

<Graeme.Kirton@FILCS.COM> wrote in message
news:OF9AA3F3B2.B8FE5699-ON80256D28.0040F63A-80256D28.0040F1B4@filcs.com...
> Basic copy function dont work for me!!!! All I wana do is copy 3 grseg
> entrys into another catalog and rename them g1, g2, g3.
>
> Im using scl, so I try;
>
> rc=delete('work.pgraphs','catalog');
>
> graph1=compress(spcchart.graph); /*eg. might be work.map1.none_256.grseg*/
>
> graph2=compress(shortspc.graph);  /*eg. might be
work.map2.none_257.grseg*/
>
> graph3=compress(histogram.graph); /*eg. might be
work.map3.none_258.grseg*/
>
>
> rc=copy(graph1,'work.pgraphs.g1.grseg', 'catalog');
> rc=copy(graph2,'work.pgraphs.g2.grseg', 'catalog');
> rc=copy(graph3,'work.pgraphs.g3.grseg', 'catalog');
>
> It aint work!
>
> Maybe proc copy might be useful, only I couln't see a copy+rename
function.
>

Let me correct myself.
See http://support.sas.com/techsup/unotes/V6/4/4441.html
COPY function fails to rename graphics GRSEG entries
You will need to use the RENAME () function after copying your grseg.

Try this example - build a test frame and put nothing in it. Use the
following for the frame scl and testaf it:

init:

region = {
  _region_ = {
    ulx = 1
  , uly = 1
  , lrx = 25
  , lry = 25
  }
} ;

declare sashelp.classes.Graphoutput_c.class g
= _neo_ sashelp.classes.Graphoutput_c.class( region );

g.borderStyle='Simple';

g.graph = 'sashelp.games.banana.grseg';

destcat = 'work.copy';
entname = scan (g.graph,3,'.') || '.grseg';

rc = copy (g.graph, destcat||'.foobar', 'catalog');
put rc=;

rc = rename (destcat||'.'||entname, 'g1', 'catalog');
put rc=;

return;


Open the work.copy catalog and you should see g1.grseg.

--
Richard A. DeVenezia, http://www.devenezia.com