28%macro mm_getwebappsrvprops(
29 outds= mm_getwebappsrvprops
32filename __in temp lrecl=10000;
33filename __out temp lrecl=10000;
34filename __shake temp lrecl=10000;
37 put
'<GetMetadataObjects>' ;
38 put
'<Reposid>$METAREPOSITORY</Reposid>' ;
39 put
'<Type>TextStore</Type>' ;
41 put
'<Flags>388</Flags>' ;
43 put
'<XMLSelect search="TextStore[@Name='@@;
44 put
"'Public Configuration Properties']" @@;
45 put
'[Objects/SoftwareComponent[@ClassIdentifier=''webappsrv'']]' ;
48 put
'<TextStore StoredText="">' ;
52 put
'</GetMetadataObjects>' ;
54proc metadata in=__in out=__out verbose;run;
60 infile __out lrecl=10000;
62 length cleartemplate $32000;
63 cleartemplate=tranwrd(_infile_,
'StoredText=""',
'');
64 start=index(cleartemplate,
'StoredText="');
66 call symputx(
"start",start+11+length(
'StoredText=""')-1);
67 putlog cleartemplate ;
72%
if &start>0 %then %
do;
75 length filein 8 fileid 8;
76 filein = fopen(
"__out",
"I",1,
"B");
77 fileid = fopen(
"__shake",
"O",1,
"B");
80 do while(fread(filein)=0);
83 rc = fget(filein,rec,1);
84 if rec=
'"' then leave;
85 else if rec=
"&" then
do;
88 if fread(filein) ne 0 then
goto getout;
89 rc = fget(filein,rec,1);
90 entity=cats(entity,rec);
93 when (
'&' ) rec=
'&' ;
94 when ('<' ) rec=
'<' ;
95 when ('>' ) rec=
'>' ;
96 when (''') rec=
"'" ;
97 when ('"') rec=
'"' ;
98 when ('&
#x0a;') rec='0A'x;
99 when (
'
') rec='0D'x;
100 when ('&
#36;' ) rec='$' ;
101 when (
'	') rec='09'x;
102 otherwise putlog
"%str(WARN)ING: missing value for " entity=;
104 rc =fput(fileid, substr(rec,1,1));
108 rc =fput(fileid,rec);
118 infile __shake dlm=
'=' missover;
119 length name $50 value $500;
120 input name $ value $;
124 %put NOTE: Unable to retrieve Web App Server Properties;
126 length name $50 value $500;
133filename __shake clear;
135%mend mm_getwebappsrvprops;