22 %macro mm_updatestpservertype(
33 rc=metadata_pathobj(
"",
"&target",
'StoredProcess',type,uri);
34 call symputx(
'cmtype',type,
'l');
35 call symputx(
'stpuri',uri,
'l');
37 %
if &cmtype ne ClassifierMap %then %
do;
38 %put WARNING: No Stored Process found at ⌖
43 %
if &type=WKS %then %let newtype=Wks;
44 %
else %let newtype=Sps;
47 %let result=NOT FOUND;
49 length uri name value $256;
51 do while(metadata_getnasn(
"&stpuri",
"Notes",n,uri)>0);
53 rc=metadata_getattr(uri,
"Name",name);
54 if name=
'Stored Process' then
do;
55 rc = METADATA_SETATTR(uri,
'StoredText',
'<?xml version="1.0" encoding="UTF-8"?>'
56 !!
'<StoredProcess><ServerContext LogicalServerType="'!!
"&newtype"
57 !!
'" OtherAllowed="false"/><ResultCapabilities Package="false" '
58 !!
' Streaming="true"/><OutputParameters/></StoredProcess>');
59 if rc=0 then call symputx(
'result',
'SUCCESS');
64 %
if &result=SUCCESS %then %put NOTE: SUCCESS: STP &target changed to &type type;
65 %
else %put %str(ERR)OR: Issue with &sysmacroname;