viewid=open('sashelp.vcatalg');
rc=where(viewid,"libname^='SASHELP' and objtype='GRSEG'");
listid=makelist();
rc=curlist(listid);
call wregion(7,15,15,50,'');
lib=datalistc(viewid,'libname memname objname objtype',
    'Select one graph to view','Y',1);
if lib ^=_blank_ then do;
   libname=getnitemc(listid,'libname');
   memname=getnitemc(listid,'memname');
   objname=getnitemc(listid,'objname');
   objtype=getnitemc(listid,'objtype');
   graph=libname||'.'||memname||'.'||objname||'.'||objtype;
   call execcmd('graph1 '||graph);
end;
viewid=close(viewid);

________________________________________________________________________

proc sql;
   create view sasuser.vgrseg as
      select * from dictionary.catalogs
      where libname^='SASHELP' and objtype='GRSEG';
quit;

________________________________________________________________________

viewid=open('sasuser.vgrseg');