SHARE
TWEET

Untitled

a guest Apr 19th, 2019 80 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. data table1;
  2.   length context $32 name $100 value text $2000;
  3.   keep context name value;
  4.     length sitename uri $200;
  5.    
  6.   text="omsobj:LogicalServer?@PublicType='LogicalServer.StoredProcess'";
  7.   rc=1;
  8.   do while(0<metadata_getnobj(text,rc,uri));
  9.     rc3=metadata_getattr(uri, "Name", context);
  10.     rc1=1;rc2=1;
  11.     do while(rc1>0);
  12.       rc1=metadata_getnprp(uri,rc2,name,value);
  13.       if rc1>0 then output;
  14.       rc2+1;
  15.     end;
  16.     rc+1;
  17.   end;
  18.   text="omsobj:ServerComponent?@PublicType='Server.StoredProcess'";
  19.   rc=1;
  20.   do while(0<metadata_getnobj(text,rc,uri));
  21.     rc3=metadata_getattr(uri, "Name", context);
  22.     rc1=1;rc2=1;
  23.     do while(rc1>0);
  24.       rc1=metadata_getnprp(uri,rc2,name,value);
  25.       if rc1>0 then output;
  26.       rc2+1;
  27.     end;
  28.     rc+1;
  29.   end;
  30.  
  31.   context='global';
  32.  
  33.   userid="&sysuserid";
  34.   siteid=&syssite;
  35.   sysvlong="&sysvlong";
  36.  
  37.   rc=metadata_getattr("omsobj:TextStore?@Name='Setinit text'", "StoredText", text);
  38.   text=subpad(text,index(text,'SITEINFO NAME=')+15);
  39.   sitename=substr(text,1,index(text,"'")-1);
  40.  
  41.   /* server props */
  42.   if "&sysprocessmode"="SAS Stored Process Server" then do;
  43.     maxconreqs=stpsrvgetn('maximum concurrent requests');
  44.     session=stpsrvgetn('session timeout');
  45.     sessmaxtimeout=stpsrvgetn('maximum session timeout');
  46.     dsesstimeout=stpsrvgetn('default session timeout');
  47.   end;
  48.  
  49.   array _Nums _numeric_;
  50.   do over _Nums;
  51.     name=upcase(vname(_nums));
  52.     value=put(_nums,8.);
  53.     if not (name =:'RC') then output;
  54.   end;
  55.   array _Chars _character_;
  56.   do over _Chars;
  57.     name=upcase(vname(_chars));
  58.     value=_chars;
  59.     if name not in ('TEXT','NAME','VALUE','CONTEXT') then output;
  60.   end;
  61. run;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top