TM1 Forum

Code: Select all

{TM1SORT( {[YOUR_TEMP_SUBSET_NAME]}, ASC)}

Code: Select all

# A zero subset will error and one element means it's
# already alphabetised
# Would use ProcessBreak except it throws an error
# so just using a big block if
if(subsetgetsize(pDim, pSubset)>1);

# This process will do nothing to MDX subsets
tempMDXSub='zTemp_MDX_' | numbertostring(rand());
tempStaticSub='zTemp_Static_' | numbertostring(rand());

if(subsetexists(pDim, tempMDXSub)=1);
  SubsetDestroy(pDim, tempMDXSub);
endif;

if(subsetexists(pDim, tempStaticSub)=1);
  SubsetDestroy(pDim, tempStaticSub);
endif;

subsetCreate(pDim, tempStaticSub);
SubsetCreatebyMDX(tempMDXSub, '{TM1SORT( {[' | pDim | '].[' | pSubset | ']}, ASC)}');

sourceSub=tempMDXSub;
destnSub=tempStaticSub;
k=subsetgetsize(pDim, sourceSub);
i=0;
while(i<k);
  i=i+1;
  elem=subsetgetelementname(pDim, sourceSub, i);
  subsetelementinsert(pDim, destnSub, elem, i);
end;

subsetdeleteallelements(pDim, pSubset);

sourceSub=tempStaticSub;
destnSub=pSubset;
k=subsetgetsize(pDim, sourceSub);
i=0;
while(i<k);
  i=i+1;
  elem=subsetgetelementname(pDim, sourceSub, i);
  subsetelementinsert(pDim, destnSub, elem, i);
end;

subsetdestroy(pDim, tempStaticSub);
subsetdestroy(pDim, tempMDXSub);

endif;