topic Re: Decision Tree Node creating no D_TARGET outcome in SAS Data Science https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182585#M2189 <HTML><HEAD></HEAD><BODY><P>Omer,</P><P>Very weird...I have never seen anything like that.</P><P>What happens when you click on the TABLE icon (4th icon left to right on Model Comparison node results)?</P></BODY></HTML> Thu, 31 Jul 2014 18:26:30 GMT M_Maldonado 2014-07-31T18:26:30Z Decision Tree Node creating no D_TARGET outcome https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182582#M2186 <HTML><HEAD></HEAD><BODY><P>Hİ</P><P>I have estimated a desicion tree but unless i got different predicted probablity values for every different leafs, my desicion tree node couldn't create D_TARGET desicion variable outcome. Instead i onyl had I_TARGET attribute...</P><P></P><P>Do you have any clues what could be the problem?</P><P></P><P>Thanks..</P><P><BR /> </P></BODY></HTML> Tue, 03 Jun 2014 09:58:01 GMT https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182582#M2186 omerzeybek 2014-06-03T09:58:01Z Re: Decision Tree Node creating no D_TARGET outcome https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182583#M2187 <HTML><HEAD></HEAD><BODY><P>Do you have the option "Do you want to use the decisions?" set to Yes in the Input Data Source node (when you click on the Decisions ellipsis, on the Decisions tab) ?&nbsp; If not, the D_Target variable is not created.&nbsp; You can also use a Decisions node after the Decision Tree node with Apply Decisions=Yes and a decision matrix defined either through the Custom Editor or the Decisions and Matrix properties, then you will see the D_Target variable created in the score code.</P><P>Thanks,</P><P>Wendy Czika</P><P>Enterprise Miner R&amp;D</P></BODY></HTML> Tue, 03 Jun 2014 13:49:03 GMT https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182583#M2187 WendyCzika 2014-06-03T13:49:03Z Re: Decision Tree Node creating no D_TARGET outcome https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182584#M2188 <HTML><HEAD></HEAD><BODY><P>Hi Wendy </P><P>About a month a ago i had solved my problem with D_TARGET by following your instructions. However recently i started having some problems on this issue. I have created some outstanding models although i hadn't manipulated Data Source node's Decisions node. Consequently when i realized that D_TARGET values are missing i made arrangements you have listed and estimate my model again. But i received a model with out any lift chart... I think something distorts the&nbsp; equation i am trying to estimate</P><P></P><P>BEFORE MANIPULATING DESICION NODE (TO CREATE D_TARGET)</P><P></P><P><IMG alt="31072014.jpg" class="jive-image-thumbnail jive-image" src="https://communities.sas.com/legacyfs/online/6923_31072014.jpg" width="450" /></P><P>AFTER Manipulating Decision Node</P><P><IMG alt="31072014_B.jpg" class="jive-image-thumbnail jive-image" src="https://communities.sas.com/legacyfs/online/6924_31072014_B.jpg" width="450" /></P><P></P><P>If you could help me on this issue i will appreciated </P></BODY></HTML> Thu, 31 Jul 2014 18:17:42 GMT https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182584#M2188 omerzeybek 2014-07-31T18:17:42Z Re: Decision Tree Node creating no D_TARGET outcome https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182585#M2189 <HTML><HEAD></HEAD><BODY><P>Omer,</P><P>Very weird...I have never seen anything like that.</P><P>What happens when you click on the TABLE icon (4th icon left to right on Model Comparison node results)?</P></BODY></HTML> Thu, 31 Jul 2014 18:26:30 GMT https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182585#M2189 M_Maldonado 2014-07-31T18:26:30Z Re: Decision Tree Node creating no D_TARGET outcome https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182586#M2190 <HTML><HEAD></HEAD><BODY><P>Unfortunately Miguel i am receviving Run time error on model comparision side so i am unable to see any information on model comparision results. However when i changed desicion node to "dont use desicions" i am receving proper results.</P></BODY></HTML> Fri, 01 Aug 2014 05:37:12 GMT https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182586#M2190 omerzeybek 2014-08-01T05:37:12Z Re: Decision Tree Node creating no D_TARGET outcome https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182587#M2191 <HTML><HEAD></HEAD><BODY><P>Please send me the log and I will take a look.</P><P>Miguel M Maldonado at sas dot com</P></BODY></HTML> Fri, 01 Aug 2014 06:48:12 GMT https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182587#M2191 M_Maldonado 2014-08-01T06:48:12Z Re: Decision Tree Node creating no D_TARGET outcome https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182588#M2192 <HTML><HEAD></HEAD><BODY><P>Hi Miguel here i pasted log file i recevied... when "USE DESICION" is OK</P><P>Thank you very much</P><P></P><P></P><P></P><P></P><P>50597&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _segment&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;segment;<BR />50598&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _samplerate&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;samplerate;<BR />50599&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _useexternal&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;useexternal;<BR />50601&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _x catalog 'sashelp.emmeta.emadvisecolumns.source';<BR />50602&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %inc _x;<BR />50603&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _x;<BR />50605&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;wip_ds_columnmeta eq %then<BR />50606&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let wip_ds_columnmeta = WORK.COLUMNMETA;<BR />50608&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;_computeStat eq Y and &amp;wip_ds_statistic eq %then<BR />50609&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let wip_ds_statistic = WORK.STATISTIC;<BR />50611&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %EmAdviseColumns(&amp;wip_ds_data, applyIntervalLevelLowerLimit= &amp;_applyIntervalLevelLowerLimit,<BR />50612&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; applyMaxClassLevels&nbsp;&nbsp;&nbsp;&nbsp; = &amp;_applyMaxClassLevels,&nbsp;&nbsp;&nbsp;&nbsp; applyMaxPercentMissing&nbsp; = &amp;_applyMaxPercentMissing,<BR />50613&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; identifyEmptyColumns&nbsp;&nbsp;&nbsp; = &amp;_identifyEmptyColumns,&nbsp;&nbsp;&nbsp; intervalLevelLowerLimit = &amp;_intervalLevelLowerLimit,<BR />50614&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; maxClassLevels = &amp;_maxClassLevels, maxPercentMissing = &amp;_maxPercentMissing, computeStat = &amp;_computeStat,<BR />50615&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outdata=&amp;wip_ds_columnmeta, statisticData=&amp;wip_ds_statistic);<BR />50616&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50617&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_datasource.scl";<BR />50618&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />50619&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %else<BR />50620&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if "&amp;WIP_DS_ACTION"="DELETE" %then %do;<BR />50621&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;dataSourceId" eq "" or ^%sysfunc(exist(&amp;DS_LIB..&amp;dataSourceId._p)) %then %do;<BR />50622&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put DataSource ID has not been specified or is invalid.;<BR />50623&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50624&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50625&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_datasource.scl";<BR />50626&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50627&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />50628&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %else<BR />50629&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if "&amp;WIP_DS_ACTION"&nbsp; ="GETDATASOURCES" %then %do;<BR />50631&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_datasource.scl";<BR />50633&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50634&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50635&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_DS_ACTION"&nbsp; ="GETDATASOURCEINFO" %then %do;<BR />50636&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let memberId = &amp;dataSourceid;<BR />50638&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;memberId" eq "" or ^%sysfunc(exist(&amp;DS_LIB..&amp;memberId._p)) %then %do;<BR />50639&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put DataSource ID has not been specified or is invalid.;<BR />50640&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50641&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50642&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_datasource.scl";<BR />50643&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50644&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50645&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50646&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_DS_ACTION"&nbsp; ="RENAME" %then %do;<BR />50647&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let memberId = &amp;dataSourceid;<BR />50648&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;memberId" eq "" or ^%sysfunc(exist(&amp;DS_LIB..&amp;memberId._p)) %then %do;<BR />50649&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put DataSource ID has not been specified or is invalid.;<BR />50650&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50651&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50652&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_datasource.scl";<BR />50653&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50654&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50655&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_DS_ACTION"&nbsp; ="REFRESH" %then %do;<BR />50656&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let datasourcePath = %sysfunc(pathname(&amp;DS_LIB));<BR />50657&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let memberId = &amp;dataSourceid;<BR />50659&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;memberId" eq "" or ^%sysfunc(exist(&amp;DS_LIB..&amp;memberId._p)) %then %do;<BR />50660&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put DataSource ID has not been specified or is invalid.;<BR />50661&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50662&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50663&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _cmds = &amp;DS_LIB..&amp;memberId._cm;<BR />50664&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _tmds = &amp;DS_LIB..&amp;memberId._tm;<BR />50666&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EM_DATA=;<BR />50667&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />50668&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;_tmds;<BR />50669&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput('EM_DATA', strip(libname)!!'.'!!strip(memname));<BR />50670&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />50672&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %EmRefreshMeta(dataset=&amp;EM_DATA, ColumnsMeta=&amp;_cmds, TableMeta=&amp;_tmds);<BR />50674&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data &amp;DS_LIB..&amp;memberId._P;<BR />50675&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;DS_LIB..&amp;memberId._p;<BR />50676&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if Property='ModifyDate' then Value= strip(put(datetime(), best.));<BR />50677&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else<BR />50678&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if Property='ModifiedBy' then Value = "&amp;sysuserid";<BR />50679&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />50680&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_datasource.scl";<BR />50681&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50682&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50683&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50684&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_DS_ACTION"&nbsp; ="COPY" %then %do;<BR />50685&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let memberId = &amp;dataSourceid;<BR />50686&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;memberId" eq "" or ^%sysfunc(exist(&amp;DS_LIB..&amp;memberId._p)) %then %do;<BR />50687&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put DataSource ID has not been specified or is invalid.;<BR />50688&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50689&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50690&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_datasource.scl";<BR />50691&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50692&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50693&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;library" eq "" and ^%sysfunc(libref(&amp;DS_LIB)) %then %do;<BR />50694&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;DS_LIB" ne "WORK" %then<BR />50695&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; libname &amp;DS_LIB;<BR />50696&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50698&nbsp;&nbsp;&nbsp;&nbsp; +%mend em_dataSource;<BR />NOTE: %INCLUDE (level 2) ending.<BR />NOTE: %INCLUDE (level 1) resuming.<BR />50699&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp;<BR />NOTE: Fileref _TEMP has been deassigned.<BR />50700&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp catalog 'sashelp.emwip.em_init.source';<BR />50701&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include _temp;<BR />NOTE: %INCLUDE (level 2) file _TEMP is file SASHELP.EMWIP.EM_INIT.SOURCE.<BR />50702&nbsp;&nbsp;&nbsp;&nbsp; +%macro em_init(projpath=, projname=&nbsp; );<BR />50704&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %global wip_projpath;<BR />50705&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %global wip_projectname _emdsep;<BR />50706&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %do;<BR />50708&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let wip_projpath = %superq(projpath);<BR />50709&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let wip_projectname = %superq(projname);<BR />50711&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if ^%symexist(EM_DEBUG) %then %do;<BR />50712&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %global EM_DEBUG;<BR />50713&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EM_DEBUG=;<BR />50714&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />50715&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if ^%symexist(EMEXCEPTIONSTRING) %then %do;<BR />50716&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %global EMEXCEPTIONSTRING;<BR />50717&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EMEXCEPTIONSTRING=;<BR />50718&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />50720&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_init.scl";<BR />50721&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %end;<BR />50723&nbsp;&nbsp;&nbsp;&nbsp; +%mend em_init;<BR />NOTE: %INCLUDE (level 2) ending.<BR />NOTE: %INCLUDE (level 1) resuming.<BR />50724&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp;<BR />NOTE: Fileref _TEMP has been deassigned.<BR />50725&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp catalog 'sashelp.emwip.em_project.source';<BR />50726&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include _temp;<BR />NOTE: %INCLUDE (level 2) file _TEMP is file SASHELP.EMWIP.EM_PROJECT.SOURCE.<BR />50727&nbsp;&nbsp;&nbsp;&nbsp; +/*<BR />50728&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MACRO: EM_PROJECT<BR />50730&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PURPOSE: Interact with an EM Project<BR />50732&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PARAMETERS:<BR />50734&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ACTION&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = requested action (CREATE, ADDDIAGRAM, DELETE, DELETEDIAGRAM, GETDIAGRAMS, GETDIAGRAMINFO)<BR />50735&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PROJPATH&nbsp;&nbsp;&nbsp; = location of the project<BR />50736&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PROJNAME&nbsp;&nbsp;&nbsp; = project name<BR />50737&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DGMNAME&nbsp;&nbsp;&nbsp;&nbsp; = diagram name (needed when DELETEDIAGRAM or GETDIAGRAMINFO is called)<BR />50738&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OUTPUT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = output data set (when requesting information)<BR />50739&nbsp;&nbsp;&nbsp;&nbsp; +*/<BR />50741&nbsp;&nbsp;&nbsp;&nbsp; +%macro wip_decode(macvar=, string=);<BR />50742&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;amp;), %nrstr(&amp;)));<BR />50743&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;pct;), %));<BR />50744&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;apos;), %str(%')));<BR />50745&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;quot;), %str(%")));<BR />50746&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;lparen;), %str(%()));<BR />50747&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;rparen;), %str(%))));<BR />50748&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let &amp;macvar = %superq(string);<BR />50749&nbsp;&nbsp;&nbsp;&nbsp; +%mend wip_decode;<BR />50751&nbsp;&nbsp;&nbsp;&nbsp; +%macro em_project(action=create, projpath=, projname=, userid=, dgmId=, dgmName=, miningresultid=,<BR />50752&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; requestFile=REQUEST.XML, outfile=RESPONSE.XML);<BR />50753&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename _x catalog 'sashelp.emwip.em_dsep.source';<BR />50754&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %inc _x;<BR />50755&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename _x;<BR />50756&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %em_dsep;<BR />50758&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %global emexceptionString em_project_exist;<BR />50759&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let EMEXCEPTIONSTRING=;<BR />50760&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let em_project_exist= N;<BR />50762&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %global wip_action wip_projpath wip_projectname wip_dgmid wip_dgmname wip_outfile<BR />50763&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wip_requestfile wip_mrid _wiprc wip_userid;<BR />50765&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_ACTION&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;action;<BR />50767&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %wip_decode(macvar=WIP_PROJPATH, string=%superq(projpath));<BR />50768&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %wip_decode(macvar=WIP_PROJECTNAME, string=%superq(projname));<BR />50770&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_userid" eq ""&nbsp; %then %do;<BR />50771&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_userid = %superq(userId);<BR />50772&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_userid" = "" %then<BR />50773&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_userid = %superq(sysuserid);<BR />50774&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50776&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_DGMID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;dgmId;<BR />50777&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %wip_decode(macvar=WIP_DGMNAME, string=%superq(dgmName));<BR />50779&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_OUTFILE&nbsp;&nbsp;&nbsp;&nbsp; = &amp;outfile;<BR />50780&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_REQUESTFILE = %superq(requestFile);<BR />50782&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_MRID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;miningresultid;<BR />50784&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let EM_ACTION&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = %upcase(&amp;action);<BR />50785&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION"&nbsp;&nbsp;&nbsp; ="EXIST" %then %do;<BR />50787&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Workspaces)) and<BR />50788&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.DataSources))and<BR />50789&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Meta))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; and<BR />50790&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Reports))&nbsp;&nbsp;&nbsp; and<BR />50791&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.System))&nbsp;&nbsp;&nbsp;&nbsp; and<BR />50792&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.project.emp)) %then %do;<BR />50793&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let em_project_exist = Y;<BR />50794&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50795&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50796&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50797&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION"&nbsp;&nbsp;&nbsp; ="CREATE" %then %do;<BR />50798&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Workspaces)) and<BR />50799&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.DataSources))and<BR />50800&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Meta))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; and<BR />50801&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Reports))&nbsp;&nbsp;&nbsp; and<BR />50802&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.System))&nbsp;&nbsp;&nbsp;&nbsp; and<BR />50803&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.project.emp)) %then %do;<BR />50804&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let em_project_exist = Y;<BR />50805&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put Project already exists.;<BR />50806&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50807&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50808&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_project.scl";<BR />50809&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50810&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50811&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50812&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION" ="SETPROPERTIES" %then %do;<BR />50813&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_project.scl";<BR />50814&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50815&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50816&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION" = "GETPROPERTIES" %then %do;<BR />50817&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_project.scl";<BR />50818&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50819&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50820&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION"&nbsp;&nbsp;&nbsp; ="RENAMEDIAGRAM" %then %do;<BR />50821&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_project.scl";<BR />50822&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50823&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50824&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION" ="ADDDIAGRAM" %then %do;<BR />50825&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^(%sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.project.emp))) %then %do;<BR />50826&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put Project does not exists.;<BR />50827&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50828&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50829&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_project.scl";<BR />50830&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50831&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50832&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50833&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION" ="IMPORTDIAGRAM" %then %do;<BR />50834&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^(%sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.project.emp))) %then %do;<BR />50835&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put Project does not exists.;<BR />50836&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50837&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50838&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc display c=sashelp.emwip.em_project.scl;run;<BR />50839&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50840&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50841&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50842&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION"&nbsp; ="DELETE" %then %do;<BR />50843&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc display c=sashelp.emwip.em_project.scl;run;<BR />50845&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _WIPRC = 0;<BR />50846&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(fileexist(&amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME))%then %do;<BR />50847&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _WIPRC = 1;<BR />50848&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50850&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50851&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50852&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;EM_ACTION"&nbsp; ="DELETEDIAGRAM" %then %do;<BR />50853&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;wip_dgmId" ne "" %then %do;<BR />50854&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_project.scl";<BR />50855&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50856&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50857&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put Diagram ID not specified.;<BR />50858&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50859&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50860&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />50861&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_project.scl";<BR />50862&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50863&nbsp;&nbsp;&nbsp;&nbsp; +%mend em_project;<BR />NOTE: %INCLUDE (level 2) ending.<BR />NOTE: %INCLUDE (level 1) resuming.<BR />50864&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp;<BR />NOTE: Fileref _TEMP has been deassigned.<BR />50865&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp catalog 'sashelp.emwip.em_diagram.source';<BR />50866&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include _temp;<BR />NOTE: %INCLUDE (level 2) file _TEMP is file SASHELP.EMWIP.EM_DIAGRAM.SOURCE.<BR />50869&nbsp;&nbsp;&nbsp;&nbsp; +%macro wip_decode(macvar=, string=);<BR />50870&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;amp;), %nrstr(&amp;)));<BR />50871&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;pct;), %));<BR />50872&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;apos;), %str(%')));<BR />50873&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;quot;), %str(%")));<BR />50874&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;lparen;), %str(%()));<BR />50875&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let string= %qsysfunc(tranwrd(%superq(string), %nrstr(&amp;rparen;), %str(%))));<BR />50876&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let &amp;macvar = %superq(string);<BR />50877&nbsp;&nbsp;&nbsp;&nbsp; +%mend wip_decode;<BR />50879&nbsp;&nbsp;&nbsp;&nbsp; +%macro em_diagram(action=, projpath=, projname=, dgmId=, sessionid=, userid=, nodeid=, from=, to=, component=, x=-1, y=-1,<BR />50880&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; toolprefix=, tooltype=,toolcode=, numtask=SINGLE, sascmd=, datasource=, serverclass=,<BR />50881&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; datakey=, outfile=, reportname=, requestfile=, mode=, runkey=, socket=, url=, javapackagename=, jscore=, cscore= ,<BR />50882&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; columnmeta=, tablemeta=, statistic=, data=, sample=, orientation=, serverStartUpCode=);<BR />50884&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename _dgmfrf catalog 'sashelp.emwip.em_dsep.source';<BR />50885&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %inc _dgmfrf;<BR />50886&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename _dgmfrf;<BR />50887&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %em_dsep;<BR />50889&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %global emexceptionString;<BR />50890&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let emexceptionstring=;<BR />50892&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %global wip_prefix wip_nodeid wip_fromid wip_toid wip_component wip_x wip_y<BR />50893&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wip_toolprefix wip_tooltype wip_toolcode wip_projpath wip_projectname wip_emlib wip_action<BR />50894&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wip_datasource wip_numtask wip_sessionid wip_outfile wip_requestfile wip_datakey<BR />50895&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wip_mode wip_runkey wip_socket wip_url wip_userid wip_cscore wip_jscore wip_jpackage WIP_serverclass<BR />50896&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wip_data wip_columnmeta wip_tablemeta wip_statistic wip_sample WIP_orientation WIP_serverStartUpCode;<BR />50898&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %wip_decode(macvar=WIP_PROJPATH, string=%superq(projpath));<BR />50899&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %wip_decode(macvar=WIP_PROJECTNAME, string=%superq(projname));<BR />50901&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_EMLIB&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;dgmId;<BR />50902&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_PREFIX&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;toolprefix;<BR />50903&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_NODEID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;nodeid;<BR />50904&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_FROMID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;from;<BR />50905&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_TOID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;to;<BR />50906&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_COMPONENT&nbsp;&nbsp; = &amp;component;<BR />50907&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_TOOLPREFIX&nbsp; = &amp;toolprefix;<BR />50908&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_TOOLTYPE&nbsp;&nbsp;&nbsp; = &amp;tooltype;<BR />50909&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_TOOLCODE&nbsp;&nbsp;&nbsp; = &amp;toolcode;<BR />50910&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_X&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;x;<BR />50911&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_Y&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;y;<BR />50912&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_DATASOURCE&nbsp; = &amp;datasource;<BR />50913&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_numtask&nbsp;&nbsp;&nbsp;&nbsp; = &amp;numtask;<BR />50914&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_sascmd&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;sascmd;<BR />50915&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_reportName&nbsp; = %superq(reportName);<BR />50916&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_outfile&nbsp;&nbsp;&nbsp;&nbsp; = %nrbquote(&amp;outfile);<BR />50917&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_requestFile = %nrbquote(&amp;requestFile);<BR />50918&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_datakey&nbsp;&nbsp;&nbsp;&nbsp; = %nrbquote(&amp;datakey);<BR />50919&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_mode&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;mode;<BR />50920&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_runkey&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;runkey;<BR />50921&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_socket&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;socket;<BR />50922&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_URL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;url;<BR />50923&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_jscore&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;jscore;<BR />50924&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_Cscore&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;cscore;<BR />50925&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_jpackage&nbsp;&nbsp;&nbsp; = %nrbquote(&amp;javapackagename);<BR />50926&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_serverclass = %nrbquote(&amp;serverclass);<BR />50927&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_columnmeta&nbsp; = &amp;columnmeta;<BR />50928&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_tablemeta&nbsp;&nbsp; = &amp;tablemeta;<BR />50929&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_statistic&nbsp;&nbsp; = &amp;statistic;<BR />50930&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_data&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;data;<BR />50931&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_sample&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = &amp;sample;<BR />50932&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_orientation = &amp;orientation;<BR />50933&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_serverStartUpCode = &amp;serverStartUpCode;<BR />50935&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_sessionid" eq "" %then %do;<BR />50936&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_sessionid&nbsp;&nbsp; = &amp;sessionId;<BR />50937&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50939&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_userid" eq ""&nbsp; %then %do;<BR />50940&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_userid = %superq(userId);<BR />50941&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_userid" = "" %then<BR />50942&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_userid = %superq(sysuserid);<BR />50943&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50945&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;dgmId" eq "" %then<BR />50946&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />50948&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let dgmFolder = %superq(WIP_PROJPATH)&amp;emdsep%superq(WIP_PROJECTNAME)&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib;<BR />50949&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;dgmFolder)) %then %do;<BR />50950&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let&nbsp; EMEXCEPTIONSTRING= exception.server.WORKSPACE.CANTOPENWORKSPACE,&amp;dgmId;<BR />50951&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />50952&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50954&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %put WIP_ACTION: &amp;WIP_ACTION;<BR />50955&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %put DGMID: &amp;dgmid;<BR />50957&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let openlockFile = %superq(WIP_PROJPATH)&amp;emdsep%superq(WIP_PROJECTNAME)&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib&amp;emdsep.System&amp;emdsep.wsopen.lck;<BR />50958&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %put LOCKFILE: &amp;openlockfile;<BR />50960&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let WIP_ACTION = %upcase(&amp;action);<BR />50961&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="INITSESSION" %then %do;<BR />50962&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;openlockfile)) %then %do;<BR />50963&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let&nbsp; EMEXCEPTIONSTRING= exception.server.WORKSPACE.NOTOPEN;<BR />50964&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />50965&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50967&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _dgmfrf catalog 'sashelp.emwip.em_init.source';<BR />50968&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %inc _dgmfrf;<BR />50969&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _dgmfrf;<BR />50971&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %em_init(projpath=&amp;WIP_projpath, projname= &amp;WIP_projectname);<BR />50973&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; libname &amp;wip_emlib "%bquote(&amp;WIP_PROJPATH)&amp;emdsep%bquote(&amp;WIP_PROJECTNAME)&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib";<BR />50974&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50975&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50976&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="OPENSESSION" %then %do;<BR />50977&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;openlockfile)) %then %do;<BR />50978&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let&nbsp; EMEXCEPTIONSTRING= exception.server.WORKSPACE.NOTOPEN;<BR />50979&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />50980&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50982&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; libname &amp;wip_emlib "%bquote(&amp;WIP_PROJPATH)&amp;emdsep%bquote(&amp;WIP_PROJECTNAME)&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib";<BR />50984&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dgraph = &amp;wip_emlib..EM_DGRAPH;<BR />50985&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(exist(&amp;dgraph)) %then %do;<BR />50986&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data work.EM_DGRAPH;<BR />50987&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;dgraph;<BR />50988&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />50989&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50991&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />50993&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50994&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />50995&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="CLOSESESSION" %then %do;<BR />50996&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;openlockfile)) %then %do;<BR />50997&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />50998&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />50999&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; libname &amp;wip_emlib;<BR />51001&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51002&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51003&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="OPEN" %then %do;<BR />51004&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(fileexist(&amp;openlockfile)) %then %do;<BR />51005&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let&nbsp; EMEXCEPTIONSTRING= exception.server.WORKSPACE.OPENLOCKED;<BR />51006&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51007&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51009&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; libname &amp;wip_emlib "%bquote(&amp;WIP_PROJPATH)&amp;emdsep%bquote(&amp;WIP_PROJECTNAME)&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib";<BR />51011&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51013&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51014&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51015&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="GETPROPERTIES" %then %do;<BR />51017&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ("&amp;wip_emlib" eq "") or %sysfunc(libref(&amp;wip_emlib)) %then %do;<BR />51018&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51019&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51021&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;wip_nodeid" eq "" %then %do;<BR />51022&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dgraph = &amp;wip_emlib..EM_DGRAPH;<BR />51023&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(exist(&amp;dgraph)) %then %do;<BR />51024&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data work.EM_DGRAPH;<BR />51025&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;dgraph;<BR />51026&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51027&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51028&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51030&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51032&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51033&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51034&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="SAVEASXML" %then %do;<BR />51035&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51036&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51037&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51038&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="GETREPORTSMETA" %then %do;<BR />51040&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ("&amp;wip_emlib" eq "") or %sysfunc(libref(&amp;wip_emlib)) %then %do;<BR />51041&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51042&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51044&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51046&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51047&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51048&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="CLOSE" %then %do;<BR />51050&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;openlockfile)) %then %do;<BR />51051&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51052&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51053&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51055&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; libname &amp;wip_emlib;<BR />51057&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51058&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51059&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="UNLOCK" %then %do;<BR />51061&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;openlockfile)) %then %do;<BR />51062&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51063&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51064&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51066&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51067&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51068&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="SETORIENTATION" %then %do;<BR />51070&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;openlockfile)) %then %do;<BR />51071&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51072&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51073&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51074&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51075&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51076&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if ("&amp;WIP_ACTION" = "COPY") or ("&amp;WIP_ACTION" = "PASTE") %then %do;<BR />51077&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let runlockFile = &amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib&amp;emdsep.System&amp;emdsep.wsrun.lck;<BR />51079&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if ^%sysfunc(fileexist(&amp;openlockfile)) or %sysfunc(fileexist(&amp;runlockfile)) %then %do;<BR />51080&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51081&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51082&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51084&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51085&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51086&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="RUN" %then %do;<BR />51087&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let runlockFile = &amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib&amp;emdsep.System&amp;emdsep.wsrun.lck;<BR />51089&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(fileexist(&amp;runlockfile)) or ("&amp;wip_nodeid" eq "") %then %do;<BR />51090&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51091&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51093&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc display c=sashelp.emwip.em_diagram.scl batch;<BR />51094&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51095&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51096&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51097&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;WIP_ACTION" ="MAKEMININGRESULT" %then %do;<BR />51098&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let runlockFile = &amp;WIP_PROJPATH&amp;emdsep&amp;WIP_PROJECTNAME&amp;emdsep.Workspaces&amp;emdsep&amp;WIP_emlib&amp;emdsep.System&amp;emdsep.wsrun.lck;<BR />51100&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %sysfunc(fileexist(&amp;runlockfile)) or ("&amp;wip_nodeid" eq "") %then %do;<BR />51101&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendgm;<BR />51102&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51104&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc display c=sashelp.emwip.em_diagram.scl batch;<BR />51105&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51106&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51107&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />51108&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm "afa c=sashelp.emwip.em_diagram.scl";<BR />51110&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51112&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %doendgm:<BR />51114&nbsp;&nbsp;&nbsp;&nbsp; +%mend em_diagram;<BR />NOTE: %INCLUDE (level 2) ending.<BR />NOTE: %INCLUDE (level 1) resuming.<BR />51115&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp;<BR />NOTE: Fileref _TEMP has been deassigned.<BR />51116&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp catalog 'sashelp.emwip.em_sasgraph.source';<BR />51117&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include _temp;<BR />NOTE: %INCLUDE (level 2) file _TEMP is file SASHELP.EMWIP.EM_SASGRAPH.SOURCE.<BR />51118&nbsp;&nbsp;&nbsp;&nbsp; +filename _fdsep catalog 'sashelp.emwip.em_dsep.source';<BR />51119&nbsp;&nbsp;&nbsp;&nbsp; +%include _fdsep;<BR />NOTE: %INCLUDE (level 3) file _FDSEP is file SASHELP.EMWIP.EM_DSEP.SOURCE.<BR />51120&nbsp;&nbsp;&nbsp;&nbsp; +%macro em_dsep;<BR />51121&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %global emdsep;<BR />51122&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %if %substr(&amp;sysscp, 1, 3)= WIN %then<BR />51123&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let emdsep=\;<BR />51124&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %else<BR />51125&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %substr(&amp;sysscp, 1, 3)= DNT %then<BR />51126&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let emdsep=\;<BR />51127&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %else<BR />51128&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let emdsep=/;<BR />51129&nbsp;&nbsp;&nbsp;&nbsp; +%mend em_dsep;<BR />51130&nbsp;&nbsp;&nbsp;&nbsp; +%em_dsep;<BR />NOTE: %INCLUDE (level 3) ending.<BR />NOTE: %INCLUDE (level 2) resuming.<BR />51131&nbsp;&nbsp;&nbsp;&nbsp; +filename _fdsep;<BR />NOTE: Fileref _FDSEP has been deassigned.<BR />51132&nbsp;&nbsp;&nbsp;&nbsp; +%em_dsep;<BR />51133&nbsp;&nbsp;&nbsp;&nbsp; +%macro em_sasgraph(device=JPEG, folder=);<BR />51134&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if %sysfunc(exist(work.gseg)) %then %do;<BR />51135&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc delete data=work.gseg;<BR />51136&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51137&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51138&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc catalog c=work.gseg;<BR />51139&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; contents out=work.gseg;<BR />51140&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51141&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data work.gseg;<BR />51142&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set work.gseg;<BR />51143&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if desc = '' then desc = name;<BR />51144&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51145&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc sort data=work.gseg;<BR />51146&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by desc;<BR />51147&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51148&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let _wipGraphPath=%superq(folder);<BR />51149&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if (%superq(_wipGraphPath) eq ) %then %do;<BR />51150&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />51151&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; path = pathname('WORK');<BR />51152&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rc = dcreate('EM_SASGRAPH',strip(path));<BR />51153&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput('_wipGraphPath', strip(path)!!strip(symget('emdsep'))!!'EM_SASGRAPH');<BR />51154&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51155&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51156&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; filename _dref "&amp;_wipGraphpath";<BR />51157&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let did=%sysfunc(dopen(_dref));<BR />51158&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let memcount=%sysfunc(dnum(&amp;did));<BR />51159&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;memcount %then %do;<BR />51160&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i=1 %to &amp;memcount;<BR />51161&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let filename=&amp;_wipGraphPath&amp;emdsep%sysfunc(dread(&amp;did, &amp;i));<BR />51162&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if "&amp;filename" ne "" %then %do; %put &gt;&gt;&gt;&gt; &amp;filename;<BR />51163&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let prefix = %sysfunc(reverse(%lowcase(%scan(%nrbquote(%sysfunc(reverse(&amp;filename))), 1, .))));<BR />51164&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if (&amp;prefix = jpg) or (&amp;prefix eq gif) %then %do;<BR />51165&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _fref "&amp;filename";<BR />51166&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let rc = %sysfunc(fdelete(_fref));<BR />51167&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _fref;<BR />51168&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51169&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51170&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51171&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51172&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let rc=%sysfunc(dclose(&amp;did));<BR />51173&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; filename _dref;<BR />51174&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data work.gseg;<BR />51175&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; keep libname memname name desc type date crdate moddate;<BR />51176&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; array token(7) $ ('/' '\' ':' '"' '&lt;' '&gt;' '|');<BR />51177&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length string $2000 device ftype $8;<BR />51178&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length filename $200;<BR />51179&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; retain index 0;<BR />51180&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set work.gseg;<BR />51181&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by desc;<BR />51182&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename = desc;<BR />51183&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if first.desc then do;<BR />51184&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename = desc;<BR />51185&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; index = 1;<BR />51186&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51187&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else do;<BR />51188&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename = strip(desc)!!' ('!!strip(put(index, best.))!!')';<BR />51189&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51190&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; do i=1 to 7;<BR />51191&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename = tranwrd(filename, strip(token(i)), '_');<BR />51192&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51193&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; desc = filename;<BR />51194&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; index+1;<BR />51195&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; device = upcase("&amp;device");<BR />51196&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; select(device);<BR />51197&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; when('JPEG') ftype='jpg';<BR />51198&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; when('GIF')&nbsp; ftype='gif';<BR />51199&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; otherwise do;<BR />51200&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ftype='jpg';<BR />51201&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; device="JPEG";<BR />51202&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51203&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51204&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; string = "&amp;_wipGraphPath&amp;emdsep"!!strip(filename)!!'.'!!ftype;<BR />51205&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('filename&nbsp; gsasfile "'!!strip(string)!!'";');<BR />51206&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('goptions reset=all device='!!strip(device)!!' display');<BR />51207&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gaccess= gsasfile');<BR />51208&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gsfmode= replace cback=white;');<BR />51209&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('proc greplay igout=work.gseg nofs;');<BR />51210&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute(&nbsp;&nbsp;&nbsp; 'replay '!!strip(name)!!';');<BR />51211&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('quit;');<BR />51212&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('filename gsasfile;');<BR />51213&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call execute('goptions reset=all device=WMF NODISPLAY;');<BR />51214&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51215&nbsp;&nbsp;&nbsp;&nbsp; +%mend em_sasgraph;<BR />NOTE: %INCLUDE (level 2) ending.<BR />NOTE: %INCLUDE (level 1) resuming.<BR />51220&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _temp;<BR />NOTE: Fileref _TEMP has been deassigned.<BR />NOTE: %INCLUDE (level 1) ending.<BR />51224&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _emds;<BR />NOTE: Fileref _EMDS has been deassigned.<BR />51225&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _emac catalog 'sashelp.emmeta.emadvisecolumns.source';<BR />51226&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %inc _emac;<BR />NOTE: %INCLUDE (level 1) file _EMAC is file SASHELP.EMMETA.EMADVISECOLUMNS.SOURCE.<BR />51227&nbsp;&nbsp;&nbsp;&nbsp; +/*<BR />51228&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; MACRO: EmAdviseColumns<BR />51230&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; PURPOSE: Called by datasource wizard<BR />51233&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; PARAMETERS:<BR />51234&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; none<BR />51236&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; USAGE:<BR />51239&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; AUTHOR:&nbsp;&nbsp; Paul Tomas<BR />51241&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; AMENDMENTS: Initial Version&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 29Nov01 EURPAT<BR />51242&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Add adviseMode&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 05Dec01 SASDZL<BR />51243&nbsp;&nbsp;&nbsp;&nbsp; +----------------------------------------------------------------------<BR />51244&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; D2EMCS61/EM6.1<BR />51245&nbsp;&nbsp;&nbsp;&nbsp; +----------------------------------------------------------------------<BR />51246&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; S0503797 computeStat, StatisticData&nbsp;&nbsp;&nbsp; 09APR08 SASDZL<BR />51248&nbsp;&nbsp;&nbsp;&nbsp; +*/<BR />51251&nbsp;&nbsp;&nbsp;&nbsp; + %macro EmAdviseColumns(dataset,<BR />51252&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; adviseMode=,<BR />51253&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; applyIntervalLevelLowerLimit=Y,<BR />51254&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; applyMaxClassLevels=Y,<BR />51255&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; applyMaxPercentMissing=Y,<BR />51256&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; identifyEmptyColumns=Y,<BR />51257&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intervalLevelLowerLimit=20,<BR />51258&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; maxLevelDetection=30,<BR />51259&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; maxClassLevels = 20,<BR />51260&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; maxPercentMissing = 50,<BR />51261&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outdata=WORK.COLUMNMETA,<BR />51262&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; computeStat=N,<BR />51263&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; statisticData=WORK.STATISTIC,<BR />51264&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; passthrough=DEFAULT,<BR />51265&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; newdataflag=Y,<BR />51266&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tablemeta=WORK.TABLEMETA,<BR />51267&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DBPassThrough=N);<BR />51268&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %global EM_ADVISENCOUNT;<BR />51269&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %let EM_ADVISENCOUNT=-1;<BR />51270&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc display c=sashelp.emmeta.advisecolumns.scl; run;<BR />51271&nbsp;&nbsp;&nbsp;&nbsp; +%mend;<BR />NOTE: %INCLUDE (level 1) ending.<BR />51272&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename _emac;<BR />NOTE: Fileref _EMAC has been deassigned.<BR />ERROR: The submitted line exceeds maximum line length - 32768 bytes.</P><P>NOTE: The data set WORK.TRANSACTION has 114 observations and 22 variables.<BR />NOTE: DATA statement used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.03 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.03 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>202 The SAS System&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10:11 Thursday, July 31, 201<BR />4</P><P>51274&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSCC=0;<BR />51275&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSRC=0;<BR />51276&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EMEXCEPTIONSTRING=;<BR />51277&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSMSG=;<BR />51278&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %em_variableeditor(action=CLOSE, projpath=%nrstr(/sasdata/EMiner_Projects), projname=%nrstr(31072014), dgmId=EMWS1, nodeid=VarClus, subset=NONE, port=, transactionmeta=WORK.TRANSACTION, columnmeta=WORK.VARIABLESET);<BR />WIP_ACTION: GETATTRIBUTES<BR />51279&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />51280&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set EMWS1.EM_NODEID;<BR />51281&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where upcase(NODEID)=upcase("VarClus");<BR />51282&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput('_EMCLASS', CLASS);<BR />51283&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 1 observations read from the data set EMWS1.EM_NODEID.<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE UPCASE(NODEID)='VARCLUS';<BR />NOTE: DATA statement used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>51284&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=WORK.TRANSACTION NOTHREADS;<BR />51285&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by NAME;<BR />51286&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 114 observations read from the data set WORK.TRANSACTION.<BR />NOTE: The data set WORK.TRANSACTION has 114 observations and 22 variables.<BR />NOTE: PROCEDURE SORT used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.01 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>51287&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=WORK.VARIABLESET NOTHREADS;<BR />51288&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by NAME;<BR />51289&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 114 observations read from the data set WORK.VARIABLESET.<BR />NOTE: The data set WORK.VARIABLESET has 114 observations and 21 variables.<BR />NOTE: PROCEDURE SORT used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>51290&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data WORK.VARIABLESET;<BR />51291&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; drop _transaction_;<BR />51292&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; update WORK.VARIABLESET(in=_m_) WORK.TRANSACTION;<BR />51293&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by NAME;<BR />51294&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ^_m_ then delete;<BR />51295&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 114 observations read from the data set WORK.VARIABLESET.<BR />NOTE: There were 114 observations read from the data set WORK.TRANSACTION.<BR />NOTE: The data set WORK.VARIABLESET has 114 observations and 21 variables.<BR />NOTE: DATA statement used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.02 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>51296&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data EMWS1.VarClus_VariableSet;<BR />51297&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set WORK.VARIABLESET;<BR />51298&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 114 observations read from the data set WORK.VARIABLESET.<BR />NOTE: The data set EMWS1.VARCLUS_VARIABLESET has 114 observations and 21 variables.<BR />NOTE: DATA statement used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>51299&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let variableset = WORK.VARIABLESET;<BR />PERFORMANCE&nbsp; DETAILS<BR />51518&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let emexceptionString =;<BR />51519&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EMEXCEPTIONSTRING=;<BR />51520&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *------------------------------------------------------------*;<BR />51521&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; * CLOSEVARIABLESET: VarClus;<BR />51522&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *------------------------------------------------------------*;<BR />51523&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EM_ACTION = CLOSEVARIABLESET;<BR />51524&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let syscc = 0;<BR />51525&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR />51526&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %macro main;<BR />51527&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR />51528&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp catalog 'sashelp.emexpl.variableclustering_macros.source';<BR />51529&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include temp;<BR />51530&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp catalog 'sashelp.emexpl.variableclustering_macros2.source';<BR />51531&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include temp;<BR />51532&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp;<BR />51533&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR />51534&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %SetProperties;<BR />51535&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR />51536&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_ACTION) = CREATE %then %do;<BR />51537&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp catalog 'sashelp.emexpl.variableclustering_create.source';<BR />51538&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include temp;<BR />51539&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp;<BR />51540&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %create;<BR />51541&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51542&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51543&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_ACTION) = TRAIN %then %do;<BR />51544&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp catalog 'sashelp.emexpl.variableclustering_train.source';<BR />51545&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include temp;<BR />51546&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp;<BR />51547&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %train;<BR />51548&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51549&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51550&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_ACTION) = SCORE %then %do;<BR />51551&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp catalog 'sashelp.emexpl.variableclustering_score.source';<BR />51552&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include temp;<BR />51553&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp;<BR />51554&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %score;<BR />51555&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51556&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />51557&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_ACTION) = REPORT %then %do;<BR />51558&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp catalog 'sashelp.emexpl.variableclustering_report.source';<BR />51559&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include temp;<BR />51560&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename temp;<BR />51561&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %report;<BR />51562&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51563&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /*<BR />51564&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_ACTION) = OPENTESTTABLE %then %do;<BR />51565&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put 'OPENING TABLE';<BR />51566&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51567&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_ACTION) = CLOSETESTTABLE %then %do;<BR />51568&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %put 'CLOSE TABLE';<BR />51569&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51570&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; */<BR />51571&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %mend main;<BR />51572&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %main;<BR />NOTE: %INCLUDE (level 1) file TEMP is file SASHELP.EMEXPL.VARIABLECLUSTERING_MACROS.SOURCE.<BR />51574&nbsp;&nbsp;&nbsp;&nbsp; +/* Initialize property macro variables */<BR />51575&nbsp;&nbsp;&nbsp;&nbsp; +%macro SetProperties;<BR />51576&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_MAXCLUS,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=DEFAULT);<BR />51577&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_HIDEVARIABLE,&nbsp; global=Y, value=Y);<BR />51578&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_PRINTOPTION,&nbsp;&nbsp; global=Y, value=SHORT);<BR />51579&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_CLUSSOURCE,&nbsp;&nbsp;&nbsp; global=Y, value=CORR);<BR />51580&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_CLUSCOMP,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=PRINCIPAL);<BR />51581&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_CLUSHIERACHY,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=Y);<BR />51582&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_INCLUDECLASSVAR,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=N);<BR />51583&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_EXPORTEDCOMP,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=CLUSTERCOMP);<BR />51584&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_MAXEIGEN,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=DEFAULT);<BR />51585&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_PROPORTION,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=DEFAULT);<BR />51586&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_PRINTOPTION,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=SHORT);<BR />51587&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_TWOSTAGECLUS,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=AUTO);<BR />51588&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %em_checkmacro(name=EM_PROPERTY_SUPPRESSSAMPWARN,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; global=Y, value=N);<BR />51590&nbsp;&nbsp;&nbsp;&nbsp; +%mend SetProperties;<BR />51592&nbsp;&nbsp;&nbsp;&nbsp; +%Macro MakeDummyVariables(indata=,<BR />51593&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outvar=,<BR />51594&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outdata=,<BR />51595&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fileref=,<BR />51596&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; recreatecmeta=N, /* optional */<BR />51597&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; incmeta=,&nbsp;&nbsp;&nbsp;&nbsp; /* optional */<BR />51598&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outcmeta=,&nbsp;&nbsp;&nbsp; /* optional */<BR />51599&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ndummyvars=_ndummyvars<BR />51600&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<BR />51601&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %global &amp;ndummyvars;<BR />51603&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc dmdb batch data=&amp;indata out=_dmdbdat dmdbcat=_dmdbcat classout=_classout;;<BR />51604&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; class<BR />51605&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %EM_BINARY_INPUT %EM_NOMINAL_INPUT %EM_ORDINAL_INPUT<BR />51606&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %EM_BINARY_REJECTED %EM_NOMINAL_REJECTED %EM_ORDINAL_REJECTED<BR />51607&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; ;<BR />51608&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51609&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let &amp;ndummyvars = 0;<BR />51610&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _null_;<BR />51611&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work._classout));<BR />51612&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let &amp;ndummyvars = %sysfunc(attrn(&amp;dsid, NOBS));<BR />51613&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(close(&amp;dsid));<BR />51614&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51616&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc dmzip data=_dmdbdat dmdbcat=_dmdbcat;<BR />51617&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; input<BR />51618&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %EM_BINARY_INPUT %EM_NOMINAL_INPUT %EM_ORDINAL_INPUT<BR />51619&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %EM_BINARY_REJECTED %EM_NOMINAL_REJECTED %EM_ORDINAL_REJECTED<BR />51620&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; / level=nominal stdize=no;<BR />51621&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; make outvar = &amp;outvar;<BR />51622&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; score data = &amp;indata out =&amp;outdata;<BR />51623&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; code&nbsp; file=&nbsp; "&amp;fileref";<BR />51624&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51625&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;recreatecmeta eq Y %then %do;<BR />51626&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc contents data =&amp;outvar out=_tmpds(keep=NAME LABEL);<BR />51627&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _tmpds;<BR />51628&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set _tmpds;<BR />51629&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ROLE = 'INPUT';<BR />51630&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LEVEL = 'INTERVAL';<BR />51631&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CREATOR='DMZIP';<BR />51632&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if NAME = '_TYPE_' then delete;<BR />51633&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51634&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outcmeta;<BR />51635&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;incmeta _tmpds;<BR />51636&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51637&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51638&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc datasets lib=work nolist;<BR />51639&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete&nbsp; _dmdbdat _dmdbcat _classout<BR />51640&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;recreatecmeta eq Y %then %do;<BR />51641&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; _tmpds<BR />51642&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51643&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; ;<BR />51644&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />51645&nbsp;&nbsp;&nbsp;&nbsp; +%Mend MakeDummyVariables;<BR />51647&nbsp;&nbsp;&nbsp;&nbsp; +/*--- Determine Optimal Number of Cluster ----<BR />51648&nbsp;&nbsp;&nbsp;&nbsp; +%macro FindClusNum(statds=, groupds=, minvariation=);<BR />51649&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %global optnclus;<BR />51650&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; data varclus_tmp(drop=_NAME_);<BR />51651&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;statDs;<BR />51652&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where _type_ ='PROPOR';<BR />51653&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51654&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc sort data=varclus_tmp;<BR />51655&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NCL_;<BR />51656&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51657&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc transpose data=varclus_tmp out=varclus_tmp;<BR />51658&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NCL_;<BR />51659&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; var %EM_INTERVAL_INPUT<BR />51660&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;EM_PROPERTY_INCLUDECLASSVAR eq Y %then %do;<BR />51661&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(&amp;EM_USER_OUTDUMMY));<BR />51662&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />51663&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nvar;<BR />51664&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let varname = %sysfunc(varname(&amp;dsid, &amp;i));<BR />51665&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;varname<BR />51666&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51667&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51668&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; ;<BR />51669&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51671&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %if &amp;minVariation eq %then %do;<BR />51672&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let minVariation = &amp;EM_PROPERTY_MINVARIATION;<BR />51673&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %end;<BR />51674&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %if ^(0&lt;&amp;minVariation&lt;100) %then %do;<BR />51675&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let minVariation = 90;<BR />51676&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %end;<BR />51678&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; data _null_;<BR />51679&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set varclus_tmp end=eof;<BR />51680&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NCL_;<BR />51681&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; retain flag 0;<BR />51682&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if first._ncl_ then flag=0;<BR />51683&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if .&lt;col1 &lt; &amp;minVariation then flag=1;<BR />51684&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if last._ncl_ and ^flag then do;<BR />51685&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput('OPTNCL', _ncl_);<BR />51686&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; stop;<BR />51687&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51688&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if eof then call symput('OPTNCL', _ncl_);<BR />51689&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51691&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %let optnclus = &amp;OPTNCL;<BR />51693&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; data varclus_tmp(drop=_NCL_ _NAME_);<BR />51694&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;statDs;<BR />51695&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where _type_ in('RSQUARED' 'GROUP') and _NCL_=&amp;OPTNCL;<BR />51696&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51697&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc sort data=varclus_tmp;<BR />51698&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _TYPE_;<BR />51699&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51700&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc transpose data=varclus_tmp out=varclus_tmp;<BR />51701&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _TYPE_;<BR />51702&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51703&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc sort data=varclus_tmp;<BR />51704&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _name_ _type_;<BR />51705&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51707&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; proc transpose data=varclus_tmp out=&amp;groupds;<BR />51708&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_;<BR />51709&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51710&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc sort data=&amp;groupDs(rename=(col1=Cluster col2=Rsquare _NAME_=VARIABLE));<BR />51711&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by Cluster descending Rsquare;<BR />51712&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where Cluster ne 0;<BR />51713&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51714&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc datasets lib=work nolist mt=(DATA VIEW);<BR />51715&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete varclus_tmp;<BR />51716&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51717&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; quit;<BR />51718&nbsp;&nbsp;&nbsp;&nbsp; +%mend findClusNum;<BR />51719&nbsp;&nbsp;&nbsp;&nbsp; +*/<BR />51721&nbsp;&nbsp;&nbsp;&nbsp; +%macro getNclusfromTrain(inoutstat=, nc=);<BR />51722&nbsp;&nbsp;&nbsp;&nbsp; +%global &amp;nc;<BR />51723&nbsp;&nbsp;&nbsp;&nbsp; +data _null_;<BR />51724&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;inoutstat end=eof;<BR />51725&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if eof then do;<BR />51726&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; call symput("&amp;nc", _ncl_);<BR />51727&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; end;<BR />51728&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />51729&nbsp;&nbsp;&nbsp;&nbsp; +%mend&nbsp; getNclusfromTrain;<BR />51731&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeDeltaCode(groupds=, outstatscore=, deltacodefile=);<BR />51733&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; *--- Build Code to Modify Metadata ---*;<BR />51734&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename X "&amp;deltacodefile";<BR />51735&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />51736&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FILE X;<BR />51737&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;groupds end=eof;<BR />51738&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /*by Cluster;*/<BR />51739&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _N_=1 then do;<BR />51740&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;EM_PROPERTY_INCLUDECLASSVAR eq Y %then %do;<BR />51741&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "if upcase(strip(ROLE)) ='INPUT' and upcase(strip(LEVEL)) ^='INTERVAL' then ROLE ='REJECTED' ;";<BR />51742&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51743&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "if upcase(strip(ROLE))='INPUT' and upcase(strip(LEVEL))='INTERVAL' then do;";<BR />51744&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "if upcase(strip(NAME)) in (";<BR />51745&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51746&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if Strip(upcase(Selected)) eq 'YES' then do;<BR />51747&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; string = '"'!!trim(left(VARIABLE))!!'"';<BR />51748&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put string;<BR />51749&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51750&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if eof then do;<BR />51751&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put ') then ROLE="INPUT";';<BR />51752&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put 'else ROLE="REJECTED";';<BR />51753&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put 'end;';<BR />51755&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_PROPERTY_HIDEVARIABLE) eq Y %then %do;<BR />51756&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put 'if upcase(strip(ROLE)) = "REJECTED" then delete ;';<BR />51757&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51758&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51759&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51760&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />51762&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename X;<BR />51764&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />51765&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeDeltaCode;<BR />51767&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeVarClusCorrData(statds=, corrds=, corrplotds= );<BR />51768&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if ^%sysfunc(exist(&amp;statds)) %then %do;<BR />51769&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %goto doendc;<BR />51770&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51772&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;corrds(drop=_TYPE_ _NCL_) ;<BR />51773&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;statds;<BR />51774&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where _type_ eq 'CORR' ;<BR />51775&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run ;<BR />51776&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc sort data=&amp;corrds;<BR />51777&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_ ;<BR />51778&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run ;<BR />51779&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc transpose data=&amp;corrds out=&amp;corrplotds name=_TMP_;<BR />51780&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; BY _NAME_ ;<BR />51781&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run ;<BR />51782&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;corrplotds;<BR />51783&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length _Y_ $100;<BR />51784&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;corrplotDs;<BR />51785&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _LABEL_ ne '' then _Y_=_LABEL_ ; else _Y_=_TMP_ ;<BR />51786&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run ;<BR />51787&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data varclus_match(rename=(_TMP_= _NAME_ _LABEL_=_X_));<BR />51788&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;corrplotds;<BR />51789&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where _LABEL_ ne '' ;<BR />51790&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; keep _TMP_ _LABEL_ ;<BR />51791&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run ;<BR />51792&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _null_;<BR />51793&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nobs=0;<BR />51794&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dsid = open('varclus_match');<BR />51795&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if dsid then do;<BR />51796&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nobs = attrn(dsid, 'NOBS');<BR />51797&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dsid = close(dsid);<BR />51798&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51799&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput ('CORR_NOBS', nobs);<BR />51800&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51801&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;corr_nobs %then %do;<BR />51802&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=varclus_match;<BR />51803&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _name_;<BR />51804&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51805&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=&amp;corrplotds;<BR />51806&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _name_;<BR />51807&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51808&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data &amp;corrplotds(keep= _X_ _Y_ col1 rename=(col1=Correlation)) ;<BR />51809&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; merge varclus_match &amp;corrplotds;<BR />51810&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_ ;<BR />51811&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _X_ eq '' then _X_=_NAME_ ;<BR />51812&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _X_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))";<BR />51813&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _Y_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))";<BR />51814&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label col1 = "%sysfunc(sasmsg(sashelp.dmine, rpt_correlation_vlabel, noquote))";<BR />51816&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51817&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51818&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %else %do;<BR />51819&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=&amp;corrplotds;<BR />51820&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _name_;<BR />51821&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51822&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data &amp;corrplotds(keep= _NAME_ _Y_ col1 rename=(_NAME_=_X_ col1=Correlation)) ;<BR />51823&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;corrplotds;<BR />51824&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))" ;<BR />51825&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _Y_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))" ;<BR />51826&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label col1 = "%sysfunc(sasmsg(sashelp.dmine, rpt_correlation_vlabel, noquote))";<BR />51828&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51829&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51830&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc sort data=&amp;corrplotds;<BR />51831&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _X_ _Y_;<BR />51832&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run ;<BR />51833&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc datasets lib=work nolist mt=(DATA VIEW);<BR />51834&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete varclus_match;<BR />51835&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />51836&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />51838&nbsp;&nbsp;&nbsp;&nbsp; +%doendc:<BR />51840&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeVarClusCorrData;<BR />51842&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeStatPlotData(statds= , outstatplotds=);<BR />51843&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %if %sysfunc(exist(&amp;statds)) %then %do;<BR />51845&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data varclus_tmp(drop=_NAME_ _NCL_) ;<BR />51846&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;statDs;<BR />51847&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where _type_ in('MEAN', 'STD', 'N');<BR />51848&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51849&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc transpose data=varclus_tmp out=&amp;outstatplotds;<BR />51850&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; id _TYPE_ ;<BR />51851&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51852&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outstatplotds;<BR />51853&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outstatplotds(obs=1000);<BR />51854&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _name_= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_name, noquote))";<BR />51855&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _label_="%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_label, noquote))" ;<BR />51856&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if MEAN ne 0 then SCALEDSTD= STD / MEAN ;<BR />51857&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else SCALEDSTD= STD ;<BR />51858&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label SCALEDSTD = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_scaledstd, noquote))";<BR />51859&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51860&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=&amp;outstatplotds;<BR />51861&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by descending SCALEDSTD ;<BR />51862&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run ;<BR />51863&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib=work nolist mt=(DATA VIEW);<BR />51864&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete varclus_tmp;<BR />51865&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51866&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />51867&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />51869&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeStatPlotData;<BR />51872&nbsp;&nbsp;&nbsp;&nbsp; +%macro CreateScoreCode(indata=, ncluscomp=, fileref=);<BR />51873&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %EM_GETNAME(KEY=OUTSTATSCORE, type=DATA);<BR />51874&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;EM_USER_OUTSTATSCORE;<BR />51875&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />51876&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (_TYPE_ in ('SCORE' 'MEAN' 'STD') and _NCL_ = &amp;ncluscomp ) or (_TYPE_ in ('MEAN' 'STD'));<BR />51877&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'MEAN' then _NAME_='MEAN';<BR />51878&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'STD' then _NAME_='STD';<BR />51879&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DROP _TYPE_ _NCL_;<BR />51880&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51882&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename _file_&nbsp; "&amp;fileRef";<BR />51884&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />51885&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FILE _file_ MOD;<BR />51886&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put ' ';<BR />51887&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put '/*-------------------------------------------------*/';<BR />51888&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put '/* ' "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_score_title_begin , noquote))" '*/';<BR />51889&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put '/*-------------------------------------------------*/';<BR />51890&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put ' ';<BR />51891&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(&amp;EM_USER_OUTSTATSCORE));<BR />51893&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />51894&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let vn_name =%sysfunc(varnum(&amp;dsid, _NAME_));<BR />51896&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let k = 1;<BR />51897&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do %while(^%sysfunc(fetch(&amp;dsid)));<BR />51898&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(getvarc(&amp;dsid, &amp;vn_name));<BR />51899&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;k &gt; 2 %then %do;<BR />51900&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let cn = %eval(&amp;k-2);<BR />51901&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "&amp;_name = 0 ; /*---" "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_score_cluscompnum, noquote, &amp;cn))"&nbsp; "------ */";<BR />51902&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51903&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let k = %eval(&amp;k+1);<BR />51904&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51906&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let rc = %sysfunc(rewind(&amp;dsid));<BR />51908&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i= 2 %to &amp;nvar;<BR />51909&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _varname =&nbsp; %sysfunc(varname(&amp;dsid, &amp;i));<BR />51910&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do %while(^%sysfunc(fetch(&amp;dsid)));<BR />51911&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(getvarc(&amp;dsid, &amp;vn_name));<BR />51912&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;_name = MEAN %then<BR />51913&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _mean = %sysfunc(getvarn(&amp;dsid, &amp;i));<BR />51914&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %if &amp;_name = STD %then<BR />51915&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _std = %sysfunc(getvarn(&amp;dsid, &amp;i));<BR />51916&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />51917&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let coeff =&nbsp; %sysfunc(getvarn(&amp;dsid, &amp;i));<BR />51918&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let abscoeff = %sysfunc(abs(&amp;coeff));<BR />51919&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;abscoeff &gt;&nbsp; 0 %then %do;<BR />51920&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "&amp;_name = &amp;_name+&amp;coeff * (&amp;_varname - &amp;_mean)/&amp;_std;";<BR />51921&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51922&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51923&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51924&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let rc = %sysfunc(rewind(&amp;dsid));<BR />51925&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />51927&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />51928&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />51929&nbsp;&nbsp;&nbsp;&nbsp; +%mend CreateScoreCode;<BR />51933&nbsp;&nbsp;&nbsp;&nbsp; +/*----------------------------------------------------------<BR />51934&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; Instead of using %MakeRSquareData,<BR />51935&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %MakeVarClusResultTable at macro2.source is used<BR />51936&nbsp;&nbsp;&nbsp;&nbsp; + +----------------------------------------------------------*/<BR />51939&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeRSquareData(indata=, inClusRSquare=, outdata=, ncluster=);<BR />51941&nbsp;&nbsp;&nbsp;&nbsp; +/* modifying&nbsp; from ods rsquare = data */<BR />51943&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata(drop= ControlVar&nbsp; NumberOfClusters CurrentCluster);<BR />51944&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; Length Cluster $16;<BR />51945&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length Variable $32;<BR />51946&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; Length VariableLabel $64;<BR />51947&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;indata; retain CurrentCluster;<BR />51948&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if NumberOfClusters ^= &amp;ncluster then delete;<BR />51949&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if strip(Cluster) eq '' then Cluster = CurrentCluster;<BR />51950&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; CurrentCluster = Cluster;<BR />51951&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />51952&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data =&amp;outdata ;<BR />51953&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by Cluster RsquareRatio;<BR />51954&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />51955&nbsp;&nbsp;&nbsp;&nbsp; +data _tmprsq(drop=index);<BR />51956&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata; by Cluster;<BR />51957&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if first.Cluster then do;<BR />51958&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; index = strip(scan(Cluster,2 ));<BR />51959&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; Variable = "Clus"||index;<BR />51960&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; VariableLabel = "Cluster Component "||index;<BR />51961&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; OwnCluster = 1;<BR />51962&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; NextClosest = .;<BR />51963&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; RsquareRatio = 0;<BR />51964&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />51965&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />51966&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />51968&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data = _tmprsq ;<BR />51969&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by Cluster RsquareRatio;<BR />51970&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />51971&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />51972&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata _tmprsq;<BR />51973&nbsp;&nbsp;&nbsp;&nbsp; +by Cluster;<BR />51974&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />51977&nbsp;&nbsp;&nbsp;&nbsp; +/* Just create the Selected variable with all YES */<BR />51979&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />51980&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;outdata; by cluster;<BR />51981&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length Selected $8;<BR />51982&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; Selected = 'YES';<BR />51983&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; OwnCluster = 'R-Sqaure with Cluster Component';<BR />51984&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; NextClosest = 'R-Sqaure with Next Cluster Component';<BR />51985&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename OwnCluster = RSqWithClusterComp;<BR />51986&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename NextClosest = RSqWithNextClusComp;<BR />51987&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />51990&nbsp;&nbsp;&nbsp;&nbsp; +/* Selected = Y/N will be done %score section -----<BR />51992&nbsp;&nbsp;&nbsp;&nbsp; +%if &amp;EM_PROPERTY_EXPORTEDCOMP ne CLUSTERCOMP %then %do;<BR />51993&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />51994&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;outdata; by cluster;<BR />51995&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length Selected $8;<BR />51996&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if first.Cluster then Selected = 'YES';<BR />51997&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; else Selected = 'NO';<BR />51998&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; OwnCluster = 'R-Sqaure with Cluster Component';<BR />51999&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; NextClosest = 'R-Sqaure with Next Cluster Component';<BR />52000&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename OwnCluster = RSqWithClusterComp;<BR />52001&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename NextClosest = RSqWithNextClusComp;<BR />52002&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52003&nbsp;&nbsp;&nbsp;&nbsp; +%end;<BR />52004&nbsp;&nbsp;&nbsp;&nbsp; +%else %do;<BR />52005&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />52006&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;outdata; by cluster;<BR />52007&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if last.Cluster then Selected = 'YES';<BR />52008&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; else Selected = 'NO';<BR />52009&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; OwnCluster = 'R-Sqaure with Cluster Component';<BR />52010&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; NextClosest = 'R-Sqaure with Next Cluster Component';<BR />52011&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename OwnCluster = RSqWithClusterComp;<BR />52012&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename NextClosest = RSqWithNextClusComp;<BR />52013&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52014&nbsp;&nbsp;&nbsp;&nbsp; +%end;<BR />52015&nbsp;&nbsp;&nbsp;&nbsp; +---------------------------------------------------------------*/<BR />52017&nbsp;&nbsp;&nbsp;&nbsp; +%if %sysfunc(exist(&amp;inClusRSquare)) %then %do;<BR />52018&nbsp;&nbsp;&nbsp;&nbsp; +/* to calculate NextClosestClusRsq */<BR />52019&nbsp;&nbsp;&nbsp;&nbsp; +proc transpose data = &amp;inClusRSquare&nbsp; out=_clusRsq;<BR />52020&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52021&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52022&nbsp;&nbsp;&nbsp;&nbsp; +data _clusRsq;<BR />52023&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set _clusRsq;<BR />52024&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if strip(upcase(Cluster)) eq strip(upcase(_NAME_)) then delete;<BR />52025&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52027&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data=_clusRsq;<BR />52028&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by cluster col1;<BR />52029&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52030&nbsp;&nbsp;&nbsp;&nbsp; +data _clusRsq(drop=_NAME_ _LABEL_);<BR />52031&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set _clusRsq; by cluster;<BR />52032&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if last.Cluster then output;<BR />52033&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label&nbsp; COL1 = 'R-Sqaure with Next Cluster Component';<BR />52034&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; rename COL1 = RSqWithNextClusComp;<BR />52035&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; rename Cluster = Variable;<BR />52036&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label&nbsp; Cluster = "Variable";<BR />52037&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52039&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data =&amp;outdata;<BR />52040&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by Variable;<BR />52041&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52042&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />52043&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; merge &amp;outdata _clusRsq;<BR />52044&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by Variable;<BR />52045&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52046&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data =&amp;outdata;<BR />52047&nbsp;&nbsp;&nbsp;&nbsp; +by Cluster&nbsp; RsquareRatio;<BR />52048&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52049&nbsp;&nbsp;&nbsp;&nbsp; +quit;<BR />52050&nbsp;&nbsp;&nbsp;&nbsp; +%end;<BR />52052&nbsp;&nbsp;&nbsp;&nbsp; +proc datasets lib = work nolist;<BR />52053&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; delete _tmprsq _clusRsq;<BR />52054&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52055&nbsp;&nbsp;&nbsp;&nbsp; +quit;<BR />52057&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeRSquareData;<BR />52060&nbsp;&nbsp;&nbsp;&nbsp; +/*-------------------------------------------------------------------------*/<BR />52064&nbsp;&nbsp;&nbsp;&nbsp; +%macro ModifyCorr(indata=,<BR />52065&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outdata=,<BR />52066&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rsquare = Y<BR />52067&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<BR />52068&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52069&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52070&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52071&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc sql;<BR />52072&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; update &amp;indata<BR />52073&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set<BR />52074&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52075&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52076&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 4 %to &amp;nvar;<BR />52077&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52078&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;rsquare eq Y %then %let _name_md = &amp;_name.**2;<BR />52079&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else&nbsp; %let _name_md = &amp;_name;<BR />52080&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;i &lt; &amp;nvar %then %do;<BR />52081&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = 1- &amp;_name_md ,<BR />52082&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52083&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52084&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = &amp;_name_md where _TYPE_ contains 'CORR' ;<BR />52085&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52086&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52087&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52089&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; select * from &amp;indata;<BR />52090&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52091&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52092&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete corr_tmp;<BR />52093&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52094&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52096&nbsp;&nbsp;&nbsp;&nbsp; + %mend ModifyCorr;<BR />52098&nbsp;&nbsp;&nbsp;&nbsp; + %macro MakeClusStructCorrData(indata=,outdata=, ncluster=, Rsquare=N);<BR />52099&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata(drop= _NCL_&nbsp; _TYPE_);<BR />52100&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52101&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ^(strip(_NCL_) eq &amp;ncluster and strip(_TYPE_) eq 'STRUCTUR') then delete;<BR />52102&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52103&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_clustername,&nbsp; noquote))";<BR />52104&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52105&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;RSquare eq Y %then %do;<BR />52106&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52107&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52108&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52110&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata(drop=i);<BR />52111&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52112&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52113&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52114&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nvar;<BR />52115&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52116&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name_md = &amp;_name.**2;<BR />52117&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = &amp;_name_md;<BR />52118&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52119&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52120&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52121&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52122&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete corr_tmp;<BR />52123&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52125&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52126&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52127&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeClusStructCorrData;<BR />52129&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeInterClusCorrData(indata=, outdata=, ncluster=, RSquare=N, makeplotds=N, plotds=);<BR />52130&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata(drop= _NCL_&nbsp; _TYPE_);<BR />52131&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52132&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ^(strip(_NCL_) eq &amp;ncluster and strip(_TYPE_) eq 'CCORR') then delete;<BR />52133&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52134&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_clustername,&nbsp; noquote))";<BR />52135&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52136&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52137&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52138&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52140&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52141&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let nclus2= %eval(&amp;ncluster+1);<BR />52142&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52143&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52144&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nclus2;<BR />52145&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let i_1 = %eval(&amp;i-1);<BR />52146&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52147&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _newName = Clus&amp;i_1;<BR />52148&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename &amp;_name = &amp;_newName; ;<BR />52149&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label &amp;_name ="Cluster &amp;i_1";<BR />52150&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label &amp;_name = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_clusternum, noquote,&nbsp; &amp;i_1))";<BR />52151&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52152&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; keep Cluster<BR />52153&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nclus2;<BR />52154&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52155&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name<BR />52156&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52157&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;<BR />52158&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52159&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52160&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52162&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;RSquare eq Y %then %do;<BR />52164&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52165&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52166&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52168&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata(drop=i);<BR />52169&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52170&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52171&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52172&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nvar;<BR />52173&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52174&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name_md = &amp;_name.**2;<BR />52175&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = &amp;_name_md;<BR />52176&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52177&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52178&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52179&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52181&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;makeplotds eq Y %then %do;<BR />52182&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc transpose data = &amp;outdata<BR />52183&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; out=&amp;plotds(drop=_LABEL_ rename=(_NAME_ = Y Cluster=X Col1= Correlation));<BR />52184&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52185&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52186&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;plotds;<BR />52187&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set&nbsp; &amp;plotds;<BR />52188&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label x="%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))";<BR />52189&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label Y="%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))";<BR />52190&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52191&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52192&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52193&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete corr_tmp;<BR />52194&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52195&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52196&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeInterClusCorrData;<BR />52199&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeClusConstellData(indata=, outlink=, outnode=);<BR />52201&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outlink(drop = Selected);<BR />52202&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52203&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; LINKID = _N_;<BR />52204&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label LINKID = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_linkid,&nbsp; noquote))";<BR />52205&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if strip(upcase(Cluster)) eq strip(upcase(Variable)) then Variable = ClosestCluster;<BR />52206&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52207&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outnode(keep=NODEID TYPE LABEL);<BR />52208&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52209&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length TYPE $16;<BR />52210&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename Variable = NODEID;<BR />52211&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; Variable= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodeidvar, noquote))";<BR />52212&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if strip(upcase(Cluster)) eq strip(upcase(Variable))<BR />52213&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; then&nbsp; TYPE = "CLUSTER";<BR />52214&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; else&nbsp; TYPE="VARIABLE";<BR />52215&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label TYPE = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodetype, noquote))";<BR />52216&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52217&nbsp;&nbsp;&nbsp;&nbsp; +quit;<BR />52218&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeClusConstellData;<BR />52222&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeClusConstellData(indata=, outlink=, outnode=);<BR />52224&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outlink(drop = Selected);<BR />52225&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52226&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; LINKID = _N_;<BR />52227&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label LINKID = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_linkid,&nbsp; noquote))";<BR />52228&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if strip(upcase(Cluster)) eq strip(upcase(Variable)) then Variable = ClosestCluster;<BR />52229&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52230&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outnode(keep=NODEID TYPE LABEL);<BR />52231&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52232&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length TYPE $16;<BR />52233&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename Variable = NODEID;<BR />52234&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; Variable= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodeidvar, noquote))";<BR />52235&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if strip(upcase(Cluster)) eq strip(upcase(Variable))<BR />52236&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; then&nbsp; TYPE = "CLUSTER";<BR />52237&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; else&nbsp; TYPE="VARIABLE";<BR />52238&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label TYPE = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodetype, noquote))";<BR />52239&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52240&nbsp;&nbsp;&nbsp;&nbsp; +quit;<BR />52241&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeClusConstellData;<BR />52244&nbsp;&nbsp;&nbsp;&nbsp; +/*--- This will work only when inds is not a view data -------<BR />52246&nbsp;&nbsp;&nbsp;&nbsp; +%macro getNVarNObs(inds=, nvar=, nobs=);<BR />52248&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %global &amp;nvar;<BR />52249&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %global &amp;nobs;<BR />52250&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _null_;<BR />52251&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dsid = open("&amp;inds");<BR />52252&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nv = attrn(dsid, 'NVAR');<BR />52253&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; no = attrn(dsid, 'NOBS');<BR />52254&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dsid = close(dsid);<BR />52255&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput("&amp;nvar", nv);<BR />52256&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput("&amp;nobs", no);<BR />52257&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52258&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />52259&nbsp;&nbsp;&nbsp;&nbsp; +%mend&nbsp; getNVarNObs;<BR />52261&nbsp;&nbsp;&nbsp;&nbsp; ++---------------------------------------------------------------*/<BR />52264&nbsp;&nbsp;&nbsp;&nbsp; +%macro getNVar(inds=, nvar=);<BR />52265&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %global &amp;nvar;<BR />52266&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _null_;<BR />52267&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dsid = open("&amp;inds");<BR />52268&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nv = attrn(dsid, 'NVAR');<BR />52269&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dsid = close(dsid);<BR />52270&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput("&amp;nvar", nv);<BR />52271&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52272&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />52273&nbsp;&nbsp;&nbsp;&nbsp; +%mend&nbsp; getNVar;<BR />52277&nbsp;&nbsp;&nbsp;&nbsp; +%macro getNObs(inds=, nobs=);<BR />52278&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %global &amp;nobs;<BR />52279&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _null_;<BR />52280&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;inds end=eof;<BR />52281&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if eof then call symput("&amp;nobs", _N_);<BR />52282&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52283&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />52284&nbsp;&nbsp;&nbsp;&nbsp; +%mend&nbsp; getNObs;<BR />52286&nbsp;&nbsp;&nbsp;&nbsp; +%Macro CreateVarclusMeta(trainnum=);<BR />52287&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=VARCLUSMETA, TYPE=DATA);<BR />52288&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;EM_USER_VARCLUSMETA;<BR />52289&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length TrainNum 8.;<BR />52290&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length NewTrain $8;<BR />52291&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length NGCluster 8.;<BR />52292&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length ExportedComp $16;<BR />52293&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length HideVariable $8;<BR />52294&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TrainNum = &amp;trainnum;<BR />52295&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NewTrain = "Y";<BR />52296&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExportedComp = "&amp;EM_PROPERTY_EXPORTEDCOMP";<BR />52297&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; HideVariable = "&amp;EM_PROPERTY_HIDEVARIABLE";<BR />52298&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NGCluster = 0; /* zero means no twostage */<BR />52299&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />52300&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; quit;<BR />52301&nbsp;&nbsp;&nbsp;&nbsp; +%mend CreateVarclusMeta;<BR />NOTE: %INCLUDE (level 1) ending.<BR />NOTE: %INCLUDE (level 1) file TEMP is file SASHELP.EMEXPL.VARIABLECLUSTERING_MACROS2.SOURCE.<BR />52303&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeInterClusCorrData(indata=, outdata=, ncluster=, globalclusid=, RSquare=N, makeplotds=N, plotds=);<BR />52304&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata(drop= _NCL_&nbsp; _TYPE_);<BR />52305&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52306&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ^(strip(_NCL_) eq &amp;ncluster and strip(_TYPE_) eq 'CCORR') then delete;<BR />52307&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52308&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = "GC&amp;globalclusid._"||upcase(_NAME_);<BR />52309&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52310&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52311&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52312&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = upcase(_NAME_);<BR />52313&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52314&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52315&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_clustername,&nbsp; noquote))";<BR />52316&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52317&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52318&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52319&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52321&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52322&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let nclus2= %eval(&amp;ncluster+1);<BR />52323&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52324&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52325&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nclus2;<BR />52326&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let i_1 = %eval(&amp;i-1);<BR />52327&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52328&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then<BR />52329&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do; %let _newName = GC&amp;globalclusid._CLUS&amp;i_1;<BR />52330&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename &amp;_name = &amp;_newName;<BR />52331&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label &amp;_name ="GC &amp;globalclusid : Cluster &amp;i_1";<BR />52332&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label &amp;_name = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gc_clusternum, noquote,&nbsp; &amp;globalclusid, &amp;i_1))";<BR />52333&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52334&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else<BR />52335&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do; %let _newName = CLUS&amp;i_1;<BR />52336&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename &amp;_name = &amp;_newName;<BR />52337&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label &amp;_name ="Cluster &amp;i_1";<BR />52338&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label &amp;_name = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_clusternum, noquote,&nbsp; &amp;i_1))";<BR />52339&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52340&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52341&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; keep Cluster<BR />52342&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nclus2;<BR />52343&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52344&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name<BR />52345&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52346&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;<BR />52347&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52348&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52349&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52351&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;RSquare eq Y %then %do;<BR />52353&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52354&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52355&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52357&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52358&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52359&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52360&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52361&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nvar;<BR />52362&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52363&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name_md = &amp;_name.**2;<BR />52364&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = &amp;_name_md;<BR />52365&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52366&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52367&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52368&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52370&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;makeplotds eq Y %then %do;<BR />52371&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc transpose data = &amp;outdata<BR />52372&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; out=&amp;plotds(drop=_LABEL_ rename=(_NAME_ = Y Cluster=X Col1= Correlation));<BR />52373&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52374&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52375&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;plotds;<BR />52376&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set&nbsp; &amp;plotds;<BR />52377&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label x="%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))";<BR />52378&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label Y="%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))";<BR />52379&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label&nbsp; Correlation="%sysfunc(sasmsg(sashelp.dmine, rpt_correlation_vlabel, noquote))";<BR />52380&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52381&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52382&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52383&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete corr_tmp;<BR />52384&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52385&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52386&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeInterClusCorrData;<BR />52388&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeOwnRSquare(indata=, outdata=, ncluster=, globalclusid=);<BR />52389&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _tmpds(drop= _NCL_);<BR />52390&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52391&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ^(strip(_NCL_) eq &amp;ncluster and strip(_TYPE_) in ('GROUP','RSQUARED')) then delete;<BR />52392&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52393&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = "GC&amp;globalclusid.";<BR />52394&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52395&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52396&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52397&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = "CLUS";<BR />52398&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52399&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52400&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_clustername,&nbsp; noquote))";<BR />52401&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52402&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc transpose data =_tmpds out =&amp;outdata;<BR />52403&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52405&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata(drop=COL1);<BR />52406&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52407&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length GCluster $16;<BR />52408&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52409&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length Cluster $32;<BR />52410&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length _NAME_ $32;<BR />52411&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52412&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = upcase(_NAME_);<BR />52413&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_=Variable;<BR />52414&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label _NAME_="Variable";<BR />52415&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))" ;<BR />52416&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label Cluster = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))" ;<BR />52417&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label GCluster = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote))" ;<BR />52419&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52420&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GCluster = "GC&amp;globalclusid";<BR />52421&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cluster = "GC&amp;globalclusid._CLUS"||strip(COL1);<BR />52422&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52423&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52424&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cluster = "CLUS"||strip(COL1);<BR />52425&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52426&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename COL2 = RSqWithOwnClusComp;<BR />52427&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label COL2 = "R-Square With Own Cluster Component";<BR />52428&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label COL2 = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_ownrsq, noquote))" ;<BR />52430&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />52431&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc sort data =&amp;outdata;<BR />52432&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by Cluster RSqWithOwnClusComp;<BR />52433&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />52434&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52435&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete _tmpds;<BR />52436&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />52437&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; quit;<BR />52438&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeOwnRSquare;<BR />52440&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeClusStructCorrData(indata=, outdata=, globalclusid=, ncluster=, Rsquare=N);<BR />52441&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata(drop= _NCL_&nbsp; _TYPE_);<BR />52442&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52443&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length GCluster $16;<BR />52444&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52445&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52446&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ^(strip(_NCL_) eq &amp;ncluster and strip(_TYPE_) eq 'STRUCTUR') then delete;<BR />52447&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52448&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GCluster = "GC&amp;globalclusid";<BR />52449&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = "GC&amp;globalclusid._"||upcase(_NAME_);<BR />52450&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52451&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))" ;<BR />52452&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label GCluster = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote))" ;<BR />52454&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52455&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52456&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = upcase(_NAME_);<BR />52457&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Cluster;<BR />52458&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))" ;<BR />52459&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label GCluster = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote))" ;<BR />52461&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52462&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52463&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;RSquare eq Y %then %do;<BR />52464&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52465&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52466&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52467&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let istart = 2;<BR />52468&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %let istart = 3;<BR />52469&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52470&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52471&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52472&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52473&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i =&amp;istart %to &amp;nvar;<BR />52474&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52475&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name_md = &amp;_name.**2;<BR />52476&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = &amp;_name_md;<BR />52477&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52478&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52479&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52480&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52481&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete corr_tmp;<BR />52482&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52483&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52484&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52485&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeClusStructCorrData;<BR />52487&nbsp;&nbsp;&nbsp;&nbsp; +/*<BR />52488&nbsp;&nbsp;&nbsp;&nbsp; +%MakeClusStructCorrData(indata=playpen._outstat, outdata=_structrsq , ncluster=7, Rsquare=Y);<BR />52489&nbsp;&nbsp;&nbsp;&nbsp; +*/<BR />52491&nbsp;&nbsp;&nbsp;&nbsp; +%macro FindNextClosestClusByVar(indata=, outdata=, globalclusid=, ncluster=);<BR />52493&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; /* The indata should be the outdata<BR />52494&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; from %MakeClusStructCorrData(indata=, outdata=, ); */<BR />52496&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc sort data =&amp;indata out=_tmpclusRsq;<BR />52497&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52498&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52500&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc transpose data =_tmpclusRsq out=_tmpclusRsq;<BR />52501&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52502&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52504&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=_tmpclusRsq;<BR />52505&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_ COL1;<BR />52506&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52508&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data _tmpclusRsq;<BR />52509&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length _NAME_ $32;<BR />52510&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set _tmpclusRsq; by _NAME_;<BR />52511&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = upcase(_NAME_);<BR />52512&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;ncluster ne 1 %then %do;<BR />52513&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if last._NAME_ then delete;<BR />52514&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52515&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52516&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; COL1 = 0;<BR />52517&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52518&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52519&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; /* need to sort again */<BR />52520&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=_tmpclusRsq;<BR />52521&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_ COL1;<BR />52522&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52524&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52525&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set _tmpclusRsq; by _NAME_;<BR />52526&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cluster = upcase(Cluster);<BR />52527&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if last._NAME_ then output;<BR />52528&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label&nbsp; COL1 = 'R-Sqaure with Next Cluster Component';<BR />52529&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label COL1 = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nextrsq, noquote))" ;<BR />52530&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename COL1 = RSqWithNextClusComp;<BR />52531&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cluster = upcase(Cluster);<BR />52532&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename Cluster = ClosestCluster;<BR />52533&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label&nbsp; Cluster = "Next Closest Cluster";<BR />52534&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label Cluster = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nextclus, noquote))" ;<BR />52535&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Variable;<BR />52536&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label&nbsp; _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))" ;<BR />52537&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52540&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52541&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52542&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length GCluster $16;<BR />52543&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52544&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GCluster = "GC&amp;globalclusid";<BR />52545&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52546&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52547&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52548&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete _tmpclusRsq;<BR />52549&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52550&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />52551&nbsp;&nbsp;&nbsp;&nbsp; +%mend FindNextClosestClusByVar;<BR />52554&nbsp;&nbsp;&nbsp;&nbsp; +%macro FindNextClosestClusByCluster(indata=, outdata=, globalclusid=, ncluster=);<BR />52555&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; /* The indata should be the outdata from %MakeInterClusCorrData(indata=, outdata=, ); */<BR />52556&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc sort data =&amp;indata out=_tmpclusRsq;<BR />52557&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52558&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52559&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc transpose data =_tmpclusRsq out=_tmpclusRsq;<BR />52560&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52561&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52562&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=_tmpclusRsq;<BR />52563&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_ col1;<BR />52564&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52565&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data _tmpclusRsq;<BR />52566&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length _NAME_ $32;<BR />52567&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set _tmpclusRsq; by _NAME_;<BR />52568&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = upcase(_NAME_);<BR />52569&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;ncluster ne 1 %then %do;<BR />52570&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if last._NAME_ then delete;<BR />52571&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52572&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52573&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; COL1 = 0;<BR />52574&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52575&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52576&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52577&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set _tmpclusRsq; by _NAME_;<BR />52578&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cluster = upcase(Cluster);<BR />52579&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if last._NAME_ then output;<BR />52580&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label&nbsp; COL1 = 'R-Sqaure with Next Cluster Component';<BR />52581&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label COL1 = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nextrsq, noquote))" ;<BR />52582&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename COL1 = RSqWithNextClusComp;<BR />52583&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cluster = upcase(Cluster);<BR />52584&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename Cluster = ClosestCluster;<BR />52585&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label&nbsp; Cluster = "Next Closest Cluster";<BR />52586&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label Cluster = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nextclus, noquote))" ;<BR />52587&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = Variable;<BR />52588&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label&nbsp; _NAME_ = "Variable";<BR />52589&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label&nbsp; _NAME_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))" ;<BR />52591&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52592&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52593&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52594&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length GCluster $16;<BR />52595&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52596&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GCluster = "GC&amp;globalclusid";<BR />52597&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52598&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52600&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52601&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete _tmpclusRsq;<BR />52602&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52604&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />52605&nbsp;&nbsp;&nbsp;&nbsp; +%mend FindNextClosestClusByCluster;<BR />52607&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeVarClusResultTable(indata1=, indata2=, indata3=, outdata=, globalclusid=, ncluster=, selectedcomp=clustercomp);<BR />52608&nbsp;&nbsp;&nbsp;&nbsp; +/*----<BR />52609&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; indata1=_ownRsq, indata2=_nextVarRsq, indata3=_nextClusRSq,<BR />52610&nbsp;&nbsp;&nbsp;&nbsp; +-----------*/<BR />52612&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data =&amp;indata1;<BR />52613&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by Variable;<BR />52614&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52615&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data =&amp;indata2;<BR />52616&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by Variable;<BR />52617&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52618&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />52619&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; merge &amp;indata1 &amp;indata2;<BR />52620&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by Variable;<BR />52621&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length Type $16;<BR />52622&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; Type = 'Variable';<BR />52623&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; *label Type ='Type';<BR />52624&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label Type = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_type, noquote))" ;<BR />52625&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52628&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;indata3;<BR />52629&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set&nbsp; &amp;indata3 ;<BR />52630&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length RSqWithOwnClusComp 8.;<BR />52631&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; Cluster = Variable;<BR />52632&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; RSqWithOwnClusComp = 1;<BR />52633&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; *label RSqWithOwnClusComp = "R-Square With Own Cluster Component";<BR />52634&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label RSqWithOwnClusComp = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_ownrsq, noquote))" ;<BR />52635&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length Type $16;<BR />52636&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; Type = 'ClusterComp';<BR />52637&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label Type = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_type, noquote))" ;<BR />52639&nbsp;&nbsp;&nbsp;&nbsp; +;<BR />52640&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52642&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data=&amp;outdata;<BR />52643&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by Cluster;<BR />52644&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52645&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data =&amp;indata3;<BR />52646&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by Cluster;<BR />52647&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52649&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />52650&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata &amp;indata3;<BR />52651&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by Cluster;<BR />52652&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52655&nbsp;&nbsp;&nbsp;&nbsp; +/* Create the Selected variable with all YES */<BR />52657&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />52658&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52659&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; length RsqRatio 8.;<BR />52660&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; length Selected $8;<BR />52661&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; *label RSqRatio = "1-R**2 Ratio";<BR />52662&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label RSqRatio =&nbsp; "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_oneminusrsq, noquote))" ;<BR />52663&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; *label Selected = "Variable Selected";<BR />52664&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label Selected = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_varselected, noquote))" ;<BR />52665&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; RsqRatio = (1-RSqWithOwnClusComp)/(1-RSqWithNextClusComp);<BR />52666&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; Selected ='YES';<BR />52667&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; rename _LABEL_ = Label;<BR />52668&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label _LABEL_ =&nbsp; "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_label, noquote))" ;<BR />52669&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52672&nbsp;&nbsp;&nbsp;&nbsp; +/*----&nbsp; Selected = Y/N will be assigened at the %score&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -------+<BR />52673&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Just create the Selected variable with all YES at the step above<BR />52674&nbsp;&nbsp;&nbsp;&nbsp; + +------------------------------------------------------------------------------+<BR />52676&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data=&amp;outdata;<BR />52677&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by Cluster RsqRatio;<BR />52678&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52680&nbsp;&nbsp;&nbsp;&nbsp; +%if &amp;selectedcomp eq CLUSTERCOMP %then %do;<BR />52681&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata;<BR />52682&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata; by Cluster;<BR />52683&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; length Selected $8;<BR />52684&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label Selected = "Variable Selected";<BR />52685&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if&nbsp; first.Cluster then Selected ='Yes';<BR />52686&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; else Selected = 'No';<BR />52687&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52688&nbsp;&nbsp;&nbsp;&nbsp; +%end;<BR />52689&nbsp;&nbsp;&nbsp;&nbsp; +%else %do;<BR />52690&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outdata(drop = _var _varchange);<BR />52691&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata; retain _var 0; by Cluster;<BR />52692&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; length Selected $8;<BR />52693&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label Selected = "Variable Selected";<BR />52694&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if first.Cluster then&nbsp; _varchange = 0;<BR />52695&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; else _varchange =1;<BR />52696&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if _var ne _varchange then&nbsp; Selected&nbsp; = 'Yes';<BR />52697&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; else Selected = 'No';<BR />52698&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if last.cluster then&nbsp; _var = 0;<BR />52699&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; else _var = _varchange;<BR />52700&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />52701&nbsp;&nbsp;&nbsp;&nbsp; +%end;<BR />52703&nbsp;&nbsp;&nbsp;&nbsp; +--------------------------------------------------------------*/<BR />52705&nbsp;&nbsp;&nbsp;&nbsp; +quit;<BR />52706&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeVarClusResultTable;<BR />52708&nbsp;&nbsp;&nbsp;&nbsp; +%Macro MakePlotDataFromCorrTable(indata=, outdata=, globalclusid=);<BR />52709&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc sort data =&amp;indata;<BR />52710&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52711&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52712&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc transpose data =&amp;indata<BR />52713&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; out=&amp;outdata(drop=_LABEL_ rename=(_NAME_ = Y Cluster=X Col1= Correlation));<BR />52714&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by cluster;<BR />52715&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52716&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52717&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set&nbsp; &amp;outdata;<BR />52718&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label x= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))" ;<BR />52719&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label Y= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))" ;<BR />52720&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label Correlation = "%sysfunc(sasmsg(sashelp.dmine, rpt_correlation_vlabel, noquote))" ;<BR />52721&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52722&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid ne %then %do;<BR />52723&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52724&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Length GCluster $16;<BR />52725&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label GCluster = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote))" ;<BR />52726&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set&nbsp; &amp;outdata;<BR />52727&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GCluster ="GC&amp;globalclusid.";<BR />52728&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52729&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52731&nbsp;&nbsp;&nbsp;&nbsp; +%Mend MakePlotDataFromCorrTable;<BR />52734&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeCorrelation(indata=,<BR />52735&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outstat=_tmpoutstat,<BR />52736&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; corrmatrix=N,<BR />52737&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outcorr=_tmpoutcorr,<BR />52738&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; includeclassvar=N,<BR />52739&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; target=,<BR />52740&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; freq=,<BR />52741&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; weight=);<BR />52742&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %if &amp;target eq&nbsp; %then %do;<BR />52744&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc varclus data=&amp;indata outstat=&amp;outstat hi maxclusters=1 noprint;<BR />52745&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; var %EM_INTERVAL_INPUT %EM_INTERVAL_REJECTED<BR />52746&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;includeclassvar eq Y %then %do;<BR />52747&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(&amp;EM_USER_OUTDUMMY));<BR />52748&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52749&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nvar;<BR />52750&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let varname = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52751&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;varname<BR />52752&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52753&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52754&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;<BR />52755&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;freq ne&nbsp; %then %do;<BR />52756&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; freq &amp;freq;<BR />52757&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52758&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;weight ne&nbsp; %then %do;<BR />52759&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; weight &amp;weight;<BR />52760&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52762&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52763&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;corrmatrix eq Y %then %do;<BR />52764&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data&nbsp; &amp;outcorr (drop = _NCL_ _TYPE_);<BR />52765&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set&nbsp; &amp;outstat ;<BR />52766&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ ='CORR' then output;<BR />52767&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52768&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52769&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52770&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %else %do;<BR />52771&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc corr data=&amp;indata outp=&amp;outstat noprint;<BR />52772&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; var<BR />52773&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(&amp;indata));<BR />52774&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52775&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 1 %to &amp;nvar;<BR />52776&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52777&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;_name ne &amp;target %then;<BR />52778&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name<BR />52779&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52780&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52781&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;<BR />52782&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; with &amp;target;<BR />52783&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52784&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %end;<BR />52785&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; quit;<BR />52786&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeCorrelation;<BR />52789&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeCorrelationDistance(indata=,<BR />52790&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outdata=,<BR />52791&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rsquare = N<BR />52792&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<BR />52793&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52794&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52795&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _N_ = 1 then do;<BR />52796&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />52797&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; stop;<BR />52798&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />52799&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52800&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if &amp;outdata ne&nbsp; %then %let&nbsp; _outdata = &amp;outdata;<BR />52801&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %else %let _outdata = &amp;indata;<BR />52803&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data &amp;_outdata;<BR />52804&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52806&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52807&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52808&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 2 %to &amp;nvar;<BR />52809&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52810&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;rsquare eq Y %then %let _name_md = &amp;_name.**2;<BR />52811&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else&nbsp; %let _name_md = &amp;_name;<BR />52812&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = 1- &amp;_name_md;<BR />52813&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52814&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52815&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52816&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52817&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete corr_tmp;<BR />52818&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52819&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52820&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %mend MakeCorrelationDistance;<BR />52823&nbsp;&nbsp;&nbsp;&nbsp; +%macro UpdateOutStatCorrToDistance(indata=, /* indata should be a outstat from proc varclus */<BR />52824&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rsquare = N<BR />52825&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<BR />52826&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data corr_tmp;<BR />52827&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52828&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />52829&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; proc sql noprint;<BR />52830&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; update &amp;indata<BR />52831&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set<BR />52832&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work.corr_tmp));<BR />52833&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52834&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i = 4 %to &amp;nvar;<BR />52835&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(varname(&amp;dsid, &amp;i));<BR />52836&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;rsquare eq Y %then %let _name_md = &amp;_name.**2;<BR />52837&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else&nbsp; %let _name_md = &amp;_name;<BR />52838&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;i &lt; &amp;nvar %then %do;<BR />52839&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = 1- &amp;_name_md ,<BR />52840&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52841&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52842&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;_name = &amp;_name_md where _TYPE_ eq 'CORR' ;<BR />52843&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52844&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52845&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52847&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; select * from &amp;indata;<BR />52848&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52849&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;indata( drop = _NCL_);<BR />52850&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52851&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ not in ('CORR', 'STD', 'N', 'MEAN') then delete;<BR />52852&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ ='CORR' then _TYPE_ ='DISTANCE';<BR />52853&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52854&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data &amp;indata(DROP = _NCL_);<BR />52855&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52856&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'CORR' then _TYPE_ ='DISTANCE';<BR />52857&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ not in ('DISTANCE', 'N', 'STD', 'MEAN') then delete;<BR />52858&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = _VAR_;<BR />52859&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52860&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52861&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete corr_tmp;<BR />52862&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52863&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52864&nbsp;&nbsp;&nbsp;&nbsp; + %mend UpdateOutStatCorrToDistance;<BR />52867&nbsp;&nbsp;&nbsp;&nbsp; +%macro HierClusWithCorr(indata= ,<BR />52868&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ncluster=,<BR />52869&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; method = Ward,<BR />52870&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outtree = _outtree,<BR />52871&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; idvar =_VAR_,<BR />52872&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; outdata=,<BR />52873&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rescore = N,<BR />52874&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; newncluster=<BR />52875&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );<BR />52876&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %global &amp;newncluster;<BR />52877&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;rescore ne Y %then %do;<BR />52878&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc cluster data=&amp;indata(type=Distance where=(upcase(strip(_TYPE_)) = "DISTANCE"))<BR />52879&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; method=&amp;method outtree=&amp;outtree noprint;<BR />52880&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; id &amp;idvar;<BR />52881&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52882&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52883&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc tree data=&amp;outtree nclusters = &amp;ncluster out=&amp;outdata noprint;<BR />52884&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52885&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /* ----- Check some variables like CL1, CL5..., remove them ----*/<BR />52886&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc contents data =&amp;indata out=_outcontent(keep=NAME) noprint;<BR />52887&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52888&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data _outcontent;<BR />52889&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set _outcontent;<BR />52890&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if NAME in ('_TYPE_' , '_VAR_') then delete;<BR />52891&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; index = 1;<BR />52892&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename NAME = _NAME_;<BR />52893&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52894&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=_outcontent;<BR />52895&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_;<BR />52896&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52897&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data =&amp;outdata;<BR />52898&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_;<BR />52899&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52900&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata(drop=index);<BR />52901&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; merge &amp;outdata _outcontent;<BR />52902&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_;<BR />52903&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if index = . then delete;<BR />52904&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52905&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /*-----------------------------------------------------------*/<BR />52906&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data &amp;outdata;<BR />52907&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length CLUSNAME $16;<BR />52908&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;outdata;<BR />52909&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if CLUSTER &gt; &amp;ncluster then delete;<BR />52910&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLUSNAME='GC'||strip(CLUSTER);<BR />52911&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label CLUSNAME = "Cluster Name";<BR />52912&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label CLUSNAME&nbsp; = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_clustername, noquote))" ;<BR />52913&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _NAME_ = VARIABLE ;<BR />52914&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label _NAME_ = "Variable";<BR />52915&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *label CLUSTER = "Cluster";<BR />52916&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _NAME_ ="%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))" ;<BR />52917&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label CLUSTER ="%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_cluster, noquote))" ;<BR />52918&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52919&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=&amp;outdata out=&amp;outdata;<BR />52920&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by CLUSTER;<BR />52921&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52922&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc means data =&amp;outdata noprint;<BR />52923&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output out=_meanout;<BR />52924&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52925&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />52926&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set _meanout;<BR />52927&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if strip(_STAT_) eq 'MAX' then do;<BR />52928&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; call symput("&amp;newncluster", CLUSTER);<BR />52929&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; stop;<BR />52930&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />52931&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52933&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />52934&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete _outcontent _meanout;<BR />52935&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52936&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />52937&nbsp;&nbsp;&nbsp;&nbsp; +%mend&nbsp; HierClusWithCorr;<BR />52939&nbsp;&nbsp;&nbsp;&nbsp; +%macro CreateScoreCode2(indata=, ncluscomp=, globalclusid=, fileref=);<BR />52941&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data _tmpindata;<BR />52942&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />52943&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (_TYPE_ in ('SCORE' 'MEAN' 'STD') and _NCL_ = &amp;ncluscomp ) or (_TYPE_ in ('MEAN' 'STD'));<BR />52944&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'MEAN' then _NAME_='MEAN';<BR />52945&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'STD' then _NAME_='STD';<BR />52946&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'SCORE' then _NAME_=upcase("GC&amp;globalclusid._"||_NAME_);<BR />52947&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DROP _TYPE_ _NCL_;<BR />52948&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52950&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename _file_&nbsp; "&amp;fileRef";<BR />52952&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />52953&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FILE _file_ MOD;<BR />52954&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put ' ';<BR />52955&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "/*-------------------------------------------------*/";<BR />52956&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put '/* ' "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_score_title_gclus, noquote, &amp;globalclusid))" '*/';<BR />52957&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "/*-------------------------------------------------*/";<BR />52958&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put ' ';<BR />52959&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work._tmpindata));<BR />52961&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />52962&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let vn_name =%sysfunc(varnum(&amp;dsid, _NAME_));<BR />52963&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let k = 1;<BR />52964&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do %while(^%sysfunc(fetch(&amp;dsid)));<BR />52965&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(getvarc(&amp;dsid, &amp;vn_name));<BR />52966&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;k &gt; 2 %then %do;<BR />52967&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let cn = %eval(&amp;k-2);<BR />52968&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "&amp;_name = 0 ; /*---" "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_score_gcluscompnum, noquote, &amp;globalclusid, &amp;cn))" "------ */";<BR />52969&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52970&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let k = %eval(&amp;k+1);<BR />52972&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52973&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let rc = %sysfunc(rewind(&amp;dsid));<BR />52975&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do j= 2 %to &amp;nvar;<BR />52976&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _varname = %sysfunc(varname(&amp;dsid, &amp;j));<BR />52977&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do %while(^%sysfunc(fetch(&amp;dsid)));<BR />52978&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(getvarc(&amp;dsid, &amp;vn_name));<BR />52979&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;_name = MEAN %then<BR />52980&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _mean = %sysfunc(getvarn(&amp;dsid, &amp;j));<BR />52981&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %if &amp;_name = STD %then<BR />52982&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _std = %sysfunc(getvarn(&amp;dsid, &amp;j));<BR />52983&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />52984&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let coeff =&nbsp; %sysfunc(getvarn(&amp;dsid, &amp;j));<BR />52985&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let abscoeff = %sysfunc(abs(&amp;coeff));<BR />52986&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;abscoeff &gt;&nbsp; 0 %then %do;<BR />52987&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "&amp;_name = &amp;_name+&amp;coeff * (&amp;_varname - &amp;_mean)/&amp;_std;";<BR />52988&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52989&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52990&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52991&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let rc = %sysfunc(rewind(&amp;dsid));<BR />52992&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />52994&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />52996&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />52998&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename _file_;<BR />52999&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib = work nolist;<BR />53000&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete _tmpindata;<BR />53001&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />53002&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />53003&nbsp;&nbsp;&nbsp;&nbsp; +%mend CreateScoreCode2;<BR />53006&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeDeltaCode2(groupds=,deltacodefile=);<BR />53008&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; /*--- Build Code to Modify Metadata ---*/<BR />53009&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename X "&amp;deltacodefile";<BR />53010&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; data _null_;<BR />53011&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FILE X;<BR />53012&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;groupds end=eof;<BR />53013&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _N_=1 then do;<BR />53014&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;EM_PROPERTY_INCLUDECLASSVAR eq Y %then %do;<BR />53015&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "if upcase(strip(ROLE)) ='INPUT' and upcase(strip(LEVEL)) ^='INTERVAL' then ROLE ='REJECTED' ;";<BR />53016&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53017&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "if upcase(strip(ROLE))='INPUT' and upcase(strip(LEVEL))='INTERVAL' then do;";<BR />53018&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "if upcase(strip(NAME)) in (";<BR />53019&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />53020&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if Strip(upcase(Selected)) eq 'YES' then do;<BR />53021&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; string = '"'!!trim(left(VARIABLE))!!'"';<BR />53022&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put string;<BR />53023&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />53024&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if eof then do;<BR />53025&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put ') then ROLE="INPUT";';<BR />53026&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put 'else ROLE="REJECTED";';<BR />53027&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put 'end;';<BR />53029&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_PROPERTY_HIDEVARIABLE) eq Y %then %do;<BR />53030&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put 'if upcase(strip(ROLE)) = "REJECTED" then delete ;';<BR />53031&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53032&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />53033&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />53034&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />53036&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; filename X;<BR />53037&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />53038&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeDeltaCode2;<BR />53040&nbsp;&nbsp;&nbsp;&nbsp; +%macro getInitialGClusterNumber(indata=, ninput=, ndummy=0, div=100, ngc=);<BR />53041&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %global &amp;ngc;<BR />53042&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; data _null_;<BR />53043&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %if &amp;indata ne %then %do;<BR />53044&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(&amp;indata));<BR />53045&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />53046&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(close(&amp;dsid));<BR />53047&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %end;<BR />53048&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %else %do;<BR />53049&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %eval(&amp;ninput+&amp;ndummy); ;<BR />53050&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %end;<BR />53051&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %let numgc = %eval(&amp;nvar/&amp;div+2);<BR />53052&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %let &amp;ngc = &amp;numgc;<BR />53053&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />53054&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; quit;<BR />53055&nbsp;&nbsp;&nbsp;&nbsp; +%mend getInitialGClusterNumber;<BR />53058&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeGobalConstellData(indata=, outlink=, outnode=);<BR />53059&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outlink(drop = Selected);<BR />53060&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />53061&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; LINKID = _N_;<BR />53062&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; label LINKID = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_linkid, noquote))" ;<BR />53063&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53064&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outnode(keep=NODEID TYPE LABEL);<BR />53065&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />53066&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length TYPE $16;<BR />53067&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename VARIABLE = NODEID;<BR />53068&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; *label&nbsp; CLUSNAME="Node ID";<BR />53069&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label CLUSNAME= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodeidvar, noquote))" ;<BR />53070&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; TYPE = "VARIABLE";<BR />53071&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; *label TYPE = "Node Type";<BR />53072&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label TYPE =&nbsp; "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodetype, noquote))" ;<BR />53073&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />53074&nbsp;&nbsp;&nbsp;&nbsp; +data _tmp(keep=NODEID TYPE LABEL);<BR />53075&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />53076&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length TYPE $16;<BR />53077&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; rename CLUSNAME = NODEID;<BR />53078&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label&nbsp; CLUSNAME= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodeidvar, noquote))" ;<BR />53079&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; TYPE = "GCLUSTER";<BR />53080&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label TYPE = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodetype, noquote))" ;<BR />53081&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />53082&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data=_tmp;<BR />53083&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by NODEID;<BR />53084&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53085&nbsp;&nbsp;&nbsp;&nbsp; +data _tmp;<BR />53086&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set _tmp; by NODEID;<BR />53087&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if first.NODEID then output;<BR />53088&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53089&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data=&amp;outnode;<BR />53090&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; by NODEID;<BR />53091&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53092&nbsp;&nbsp;&nbsp;&nbsp; +data&nbsp; &amp;outnode;<BR />53093&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set _tmp &amp;outnode;<BR />53094&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53095&nbsp;&nbsp;&nbsp;&nbsp; +proc datasets lib = work nolist;<BR />53096&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; delete _tmp;<BR />53097&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53098&nbsp;&nbsp;&nbsp;&nbsp; +quit;<BR />53099&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeGobalConstellData;<BR />53101&nbsp;&nbsp;&nbsp;&nbsp; +/* Make contellation plot data among GCLUSTERS */<BR />53103&nbsp;&nbsp;&nbsp;&nbsp; +%Macro MakeGClusterConstData(indata=, inoutrsq=, outnode=, outlink=);<BR />53105&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outlink(keep = _NAME_ _PARENT_ _LABEL_ LINKID);<BR />53106&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />53107&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; LINKID = _N_;<BR />53108&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if upcase(substr(strip(_NAME_),1, 2))="CL" then do;<BR />53109&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _NAME_ = "ROOT"||upcase(substr(strip(_NAME_),5));<BR />53110&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />53111&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if _PARENT_ ne " " and upcase(substr(strip(_PARENT_),1, 2))="CL" then do;<BR />53112&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _PARENT_ = "ROOT"||upcase(substr(strip(_PARENT_),5));<BR />53113&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />53114&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if upcase(substr(strip(_LABEL_),1, 2))="CL" then do;<BR />53115&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _LABEL_ = "ROOT"||upcase(substr(strip(_LABEL_),5));<BR />53116&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; end;<BR />53117&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53119&nbsp;&nbsp;&nbsp;&nbsp; +data _tmp_outrsquare;<BR />53120&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;inoutrsq;<BR />53121&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if upcase(strip(TYPE)) = 'CLUSTERCOMP' then delete;<BR />53122&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53124&nbsp;&nbsp;&nbsp;&nbsp; +proc freq data =_tmp_outrsquare noprint;<BR />53125&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tables GCluster/out=_tmp_GCLUSFREQ(rename=(GCLUSTER=_NAME_));<BR />53126&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53128&nbsp;&nbsp;&nbsp;&nbsp; +data &amp;outnode(keep=_NAME_ TYPE LABEL);<BR />53129&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; set &amp;outlink;<BR />53130&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length TYPE $16;<BR />53131&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; length LABEL $100;<BR />53132&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; /*label CLUSNAME= "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodeidvar, noquote))" ;*/<BR />53134&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; if upcase(substr(strip(_NAME_),1, 2))='GC' then do;<BR />53135&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; TYPE = "GCLUSTER";<BR />53136&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; LABEL = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote)):"||_NAME_;<BR />53137&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; end;<BR />53138&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; else do;<BR />53139&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; TYPE= "ROOT";<BR />53140&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; LABEL= _NAME_;<BR />53141&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; end;<BR />53142&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label TYPE&nbsp; =&nbsp; "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodetype, noquote))" ;<BR />53143&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label LABEL =&nbsp; "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_label, noquote))" ;<BR />53144&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; label _NAME_ =&nbsp; "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_nodeidvar, noquote))" ;<BR />53145&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; run;<BR />53147&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data=&amp;outnode;<BR />53148&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_;<BR />53149&nbsp;&nbsp;&nbsp;&nbsp; +proc sort data=_tmp_GCLUSFREQ;<BR />53150&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; by _NAME_;<BR />53151&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53153&nbsp;&nbsp;&nbsp;&nbsp; +data&nbsp; &amp;outnode;<BR />53154&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; merge &amp;outnode _tmp_GCLUSFREQ; by _NAME_;<BR />53155&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; if COUNT=. then COUNT=1;<BR />53156&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53158&nbsp;&nbsp;&nbsp;&nbsp; +proc datasets lib = work nolist;<BR />53159&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; delete _tmp_outrsquare _tmp_GCLUSFREQ;<BR />53160&nbsp;&nbsp;&nbsp;&nbsp; +run;<BR />53162&nbsp;&nbsp;&nbsp;&nbsp; +quit;<BR />53163&nbsp;&nbsp;&nbsp;&nbsp; +%Mend MakeGClusterConstData;<BR />53166&nbsp;&nbsp;&nbsp;&nbsp; +%macro CreateGClusterScoreCode(indata=,&nbsp; globalclusid=, fileref=);<BR />53168&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _gscoretmpds;<BR />53169&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />53170&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (_TYPE_ in ('SCORE' 'MEAN' 'STD') and _NCL_ = 1 ) or (_TYPE_ in ('MEAN' 'STD'));<BR />53171&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'MEAN' then _NAME_='MEAN';<BR />53172&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'STD' then _NAME_='STD';<BR />53173&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _TYPE_ = 'SCORE' then _NAME_ = "GC"||strip(&amp;globalclusid);<BR />53174&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DROP _TYPE_ _NCL_;<BR />53175&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />53177&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; /*&nbsp; %let gscorefile =&nbsp; %bquote(&amp;EM_NODEDIR)&amp;EM_DSEP.gclusterscore.sas;<BR />53178&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GCluster Component &amp;globalclusid ------ */<BR />53180&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; filename _file_&nbsp; "&amp;fileref";<BR />53182&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; data _null_;<BR />53183&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;globalclusid eq 1 %then %do;<BR />53184&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FILE _file_;<BR />53185&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53186&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />53187&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FILE _file_ MOD;<BR />53188&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53190&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid = %sysfunc(open(work._gscoretmpds));<BR />53191&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let nvar = %sysfunc(attrn(&amp;dsid, NVAR));<BR />53192&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let vn_name =%sysfunc(varnum(&amp;dsid, _NAME_));<BR />53194&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let k = 1;<BR />53195&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do %while(^%sysfunc(fetch(&amp;dsid)));<BR />53196&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(getvarc(&amp;dsid, &amp;vn_name));<BR />53197&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;k &gt; 2 %then %do;<BR />53198&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "&amp;_name = 0 ; ";<BR />53199&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53200&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let k = %eval(&amp;k+1);<BR />53201&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53203&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let rc = %sysfunc(rewind(&amp;dsid));<BR />53204&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i= 2 %to &amp;nvar;<BR />53205&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _varname =&nbsp; %sysfunc(varname(&amp;dsid, &amp;i));<BR />53206&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do %while(^%sysfunc(fetch(&amp;dsid)));<BR />53207&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _name = %sysfunc(getvarc(&amp;dsid, &amp;vn_name));<BR />53208&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;_name = MEAN %then<BR />53209&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _mean = %sysfunc(getvarn(&amp;dsid, &amp;i));<BR />53210&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %if &amp;_name = STD %then<BR />53211&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let _std = %sysfunc(getvarn(&amp;dsid, &amp;i));<BR />53212&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %else %do;<BR />53213&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let coeff =&nbsp; %sysfunc(getvarn(&amp;dsid, &amp;i));<BR />53214&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let abscoeff = %sysfunc(abs(&amp;coeff));<BR />53215&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if &amp;abscoeff &gt;&nbsp; 0 %then %do;<BR />53216&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; put "&amp;_name = &amp;_name+&amp;coeff * (&amp;_varname - &amp;_mean)/&amp;_std;";<BR />53217&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53218&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53219&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53220&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let rc = %sysfunc(rewind(&amp;dsid));<BR />53222&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53224&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let dsid= %sysfunc(close(&amp;dsid));<BR />53225&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />53228&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib=work nolist;<BR />53229&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; delete _gscoretmpds;<BR />53230&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;<BR />53231&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; quit;<BR />53233&nbsp;&nbsp;&nbsp;&nbsp; +%mend CreateGClusterScoreCode;<BR />53236&nbsp;&nbsp;&nbsp;&nbsp; +%macro MakeGClusterCorrelation(Indata=, ngcluster=, gscorecode=, outrsquare=);<BR />53238&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_REGISTER(KEY=GSCORE, TYPE=DATA);<BR />53239&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=GSCORE, TYPE=DATA);<BR />53240&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_REGISTER(KEY=GSCORESTAT, TYPE=DATA);<BR />53241&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=GSCORESTAT, TYPE=DATA);<BR />53242&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_REGISTER(KEY=GSCORETREE, TYPE=DATA);<BR />53243&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=GSCORETREE, TYPE=DATA);<BR />53244&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_REGISTER(KEY=GSCORECORR, TYPE=DATA);<BR />53245&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=GSCORECORR, TYPE=DATA);<BR />53246&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_REGISTER(KEY=GSCORECORRPLOT, TYPE=DATA);<BR />53247&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=GSCORECORRPLOT, TYPE=DATA);<BR />53248&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_REGISTER(KEY=GCLUSLINK, TYPE=DATA);<BR />53249&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=GCLUSLINK, TYPE=DATA);<BR />53250&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_REGISTER(KEY=GCLUSNODE, TYPE=DATA);<BR />53251&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %EM_GETNAME(KEY=GCLUSNODE, TYPE=DATA);<BR />53253&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; filename gsfile "&amp;gscorecode";<BR />53255&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; data &amp;EM_USER_GSCORE;<BR />53256&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;indata;<BR />53257&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %include&nbsp; gsfile;<BR />53258&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; keep<BR />53259&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i=1 %to &amp;ngcluster;<BR />53260&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let gcvarname = GC&amp;i;<BR />53261&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;gcvarname<BR />53262&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53263&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; ;<BR />53264&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />53266&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; proc varclus data=&amp;EM_USER_GSCORE outstat=&amp;EM_USER_GSCORESTAT outtree=&amp;EM_USER_GSCORETREE<BR />53267&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_PROPERTY_CLUSCOMP) eq CENTROID %then %do; centroid %end;<BR />53268&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_PROPERTY_CLUSSOURCE) eq COV %then %do; cov %end;<BR />53269&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; %if %upcase(&amp;EM_PROPERTY_CLUSHIERACHY) eq Y %then %do; hi %end;<BR />53270&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp; noprint&nbsp; ;<BR />53271&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp; var<BR />53272&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %do i=1 %to &amp;ngcluster;<BR />53273&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let gcvarname = GC&amp;i;<BR />53274&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;gcvarname<BR />53275&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %end;<BR />53276&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; ;<BR />53277&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />53280&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %MakeVarClusCorrData(statds=&amp;EM_USER_GSCORESTAT, corrds=&amp;EM_USER_GSCORECORR, corrplotds=&amp;EM_USER_GSCORECORRPLOT );<BR />53281&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; data &amp;EM_USER_GSCORECORRPLOT ;<BR />53282&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;EM_USER_GSCORECORRPLOT;<BR />53283&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _X_ = X;<BR />53284&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rename _Y_ = Y;<BR />53285&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _X_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote))" ;<BR />53286&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _Y_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote))" ;<BR />53287&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />53289&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %MakeGClusterConstData(indata=&amp;EM_USER_GSCORETREE, inoutrsq=&amp;outrsquare, outnode=&amp;EM_USER_GCLUSNODE, outlink=&amp;EM_USER_GCLUSLINK);<BR />53291&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; data &amp;EM_USER_GSCORETREE;<BR />53292&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length _NAME_ $32;<BR />53293&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length _LABEL_ $100;<BR />53294&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set &amp;EM_USER_GSCORETREE(DROP=_LABEL_);<BR />53295&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if upcase(substr(strip(_NAME_),1, 2))='GC' then do;<BR />53296&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _LABEL_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_gcluster, noquote)):"||_NAME_;<BR />53297&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;else do;<BR />53298&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; _LABEL_ = _NAME_;<BR />53299&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR />53300&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label _LABEL_ = "%sysfunc(sasmsg(sashelp.dmine, rpt_varclus_label_variable, noquote))";<BR />53302&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; run;<BR />53304&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; quit;<BR />53306&nbsp;&nbsp;&nbsp;&nbsp; +%mend MakeGClusterCorrelation;<BR />NOTE: %INCLUDE (level 1) ending.<BR />NOTE: Fileref TEMP has been deassigned.<BR />53309&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR />53310&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *------------------------------------------------------------*;<BR />53311&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; * End CLOSEVARIABLESET: VarClus;<BR />53312&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *------------------------------------------------------------*;</P><P>53313&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %em_delMacro;</P><P>203 The SAS System&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10:11 Thursday, July 31, 201<BR />4</P><P>53315&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSCC=0;<BR />53316&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSRC=0;<BR />53317&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EMEXCEPTIONSTRING=;<BR />53318&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSMSG=;<BR />53319&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc datasets lib=WORK nolist; delete COLUMNMETA;run;</P><P>NOTE: The file WORK.COLUMNMETA (memtype=DATA) was not found, but appears on a DELETE statement.<BR />53319&nbsp;&nbsp;&nbsp; !&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; quit;</P><P>NOTE: PROCEDURE DATASETS used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>204 The SAS System&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10:11 Thursday, July 31, 201<BR />4</P><P>53320&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSCC=0;<BR />53321&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSRC=0;<BR />53322&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EMEXCEPTIONSTRING=;<BR />53323&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let SYSMSG=;<BR />53324&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %em_diagram(action=setproperties, projpath=%nrstr(/sasdata/EMiner_Projects), projname=%nrstr(31072014), dgmId=EMWS1, requestFile=DiagramSetPropertiesRequest.xml);<BR />NOTE: %INCLUDE (level 1) file _DGMFRF is file SASHELP.EMWIP.EM_DSEP.SOURCE.<BR />53325&nbsp;&nbsp;&nbsp;&nbsp; +%macro em_dsep;<BR />53326&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp; %global emdsep;<BR />53327&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %if %substr(&amp;sysscp, 1, 3)= WIN %then<BR />53328&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let emdsep=\;<BR />53329&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %else<BR />53330&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %if %substr(&amp;sysscp, 1, 3)= DNT %then<BR />53331&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let emdsep=\;<BR />53332&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp; %else<BR />53333&nbsp;&nbsp;&nbsp;&nbsp; +&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let emdsep=/;<BR />53334&nbsp;&nbsp;&nbsp;&nbsp; +%mend em_dsep;<BR />53335&nbsp;&nbsp;&nbsp;&nbsp; +%em_dsep;<BR />NOTE: %INCLUDE (level 1) ending.<BR />NOTE: Fileref _DGMFRF has been deassigned.<BR />WIP_ACTION: CLOSE<BR />DGMID: EMWS1<BR />LOCKFILE: /sasdata/EMiner_Projects/31072014/Workspaces/EMWS1/System/wsopen.lck<BR />53336&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %global EM_REFRESH_PROPERTY;<BR />53337&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let EM_REFRESH_PROPERTY=N;<BR />53338&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %let syscc=0;<BR />53339&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data WORK._EMVISUALPROPERTIES;<BR />53340&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; length NODEID CLASS COMPONENT $32 X Y 8 LABEL $81;<BR />53341&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Trans2";<BR />53342&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53343&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53344&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 876;<BR />53345&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 328;<BR />53346&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "OPT";<BR />53347&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53348&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Varsel";<BR />53349&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53350&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53351&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 1202;<BR />53352&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 229;<BR />53353&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "Variable Selection";<BR />53354&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53355&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "DMDB2";<BR />53356&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53357&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53358&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 1076;<BR />53359&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 329;<BR />53360&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "DMDB";<BR />53361&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53362&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "DMDB";<BR />53363&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53364&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53365&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 1046;<BR />53366&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 177;<BR />53367&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "DMDB";<BR />53368&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53369&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Impt";<BR />53370&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53371&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53372&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 727;<BR />53373&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 9;<BR />53374&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "Impute";<BR />53375&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53376&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Varsel2";<BR />53377&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53378&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53379&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 1229;<BR />53380&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 399;<BR />53381&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "Variable Selection";<BR />53382&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53383&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Stat";<BR />53384&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53385&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53386&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 546;<BR />53387&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 9;<BR />53388&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "StatExplore";<BR />53389&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53390&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Trans";<BR />53391&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53392&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53393&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 875;<BR />53394&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 177;<BR />53395&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "BEST";<BR />53396&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53397&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Ids2";<BR />53398&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53399&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53400&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 205;<BR />53401&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 523;<BR />53402&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "OZ_MODEL_2107";<BR />53403&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53404&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Ids";<BR />53405&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53406&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53407&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 54;<BR />53408&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 9;<BR />53409&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "OZ_MODEL_2107";<BR />53410&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53411&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Part";<BR />53412&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53413&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53414&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 375;<BR />53415&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 9;<BR />53416&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "Data Partition";<BR />53417&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53418&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "Smpl";<BR />53419&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53420&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53421&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 211;<BR />53422&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 9;<BR />53423&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "Sample";<BR />53424&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53425&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "VarClus2";<BR />53426&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53427&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53428&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 1241;<BR />53429&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 329;<BR />53430&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "Variable Clustering";<BR />53431&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53432&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NODEID = "VarClus";<BR />53433&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLASS='';<BR />53434&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; component='';<BR />53435&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = 1199;<BR />53436&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y= 178;<BR />53437&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LABEL = "Variable Clustering";<BR />53438&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; output;<BR />53439&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: The data set WORK._EMVISUALPROPERTIES has 14 observations and 6 variables.<BR />NOTE: DATA statement used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.02 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>53440&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=WORK._EMVISUALPROPERTIES;<BR />53441&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by NODEID;<BR />53442&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 14 observations read from the data set WORK._EMVISUALPROPERTIES.<BR />NOTE: The data set WORK._EMVISUALPROPERTIES has 14 observations and 6 variables.<BR />NOTE: PROCEDURE SORT used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>53443&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proc sort data=EMWS1.em_nodeid out=_tempNodeid;<BR />53444&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by NODEID;<BR />53445&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 14 observations read from the data set EMWS1.EM_NODEID.<BR />NOTE: The data set WORK._TEMPNODEID has 14 observations and 8 variables.<BR />NOTE: PROCEDURE SORT used (Total process time):<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; real time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cpu time&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0.00 seconds<BR />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P><P>53446&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; data _tempNodeid;<BR />53447&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; update _tempNodeid(in=_a) WORK._EMVISUALPROPERTIES(in=_b);<BR />53448&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; by NODEID;<BR />53449&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if _a then output;<BR />53450&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run;</P><P>NOTE: There were 14 observations read from the data set WORK._TEMPNODEID.</P></BODY></HTML> Fri, 01 Aug 2014 06:58:55 GMT https://communities.sas.com/t5/SAS-Data-Science/Decision-Tree-Node-creating-no-D-TARGET-outcome/m-p/182588#M2192 omerzeybek 2014-08-01T06:58:55Z