Discussing all things TM1, Planning Analytics, PAx and PAW
https://www.tm1forum.com/
You've been around a while now; I'm surprised that you can't figure this one out. It's dead easy.appleglaze28 wrote:Is there anyway to create a TI that would output specify the number of dimensions in a cube? Im just thinking if its possible to create a TI process that loops through all the cubes and output a text file for each cube.
No. A function to return the number of dimensions in a cube is something that should be in TM1 but isn't. But considering that it's something like 10 lines of code and will probably finish running before you can even lift your finger off the mouse after clicking the Execute menu (if that's hyperbole it's not by much), I don't think it gets much easier than that. If you think that the code is too complex, give me about 5 minutes to write it to demonstrate otherwise.appleglaze28 wrote:Hi Alan....
Sorry...its just this is something I have never tried out of doing and I was wondering if there is another function that would be easier than looping through a hundred 100 dimensions. Thanks for you utmost patience with me.
OK, I'll admit it took a fraction longer to run than I thought it would; about 5 seconds. The only thing I omitted from the earlier posts was that the variable (V1) has to be changed from Ignore to Other. After that this goes in the Data tab. Customise the output path as desired, skip the system cubes if you want to.Alan Kirk wrote:No. A function to return the number of dimensions in a cube is something that should be in TM1 but isn't. But considering that it's something like 10 lines of code and will probably finish running before you can even lift your finger off the mouse after clicking the Execute menu (if that's hyperbole it's not by much), I don't think it gets much easier than that. If you think that the code is too complex, give me about 5 minutes to write it.appleglaze28 wrote:Hi Alan....
Sorry...its just this is something I have never tried out of doing and I was wondering if there is another function that would be easier than looping through a hundred 100 dimensions. Thanks for you utmost patience with me.
Code: Select all
l_Counter = 1;
While ( l_Counter <= 256);
s = TabDim ( V1, l_Counter);
If ( s @= '');
AsciiOutput ('Y:\Temp\DimsInCubes.txt', V1, Trim ( Str ( l_Counter-1, 12, 0 ) ) );
l_Counter = 257;
EndIf;
l_Counter = l_Counter +1;
End;Code: Select all
Code 1
Prolog:
# DEFINE CUBE SOURCE*****
DatasourceNameForServer = vCubeName;
DatasourceNameForClient = vCubeName;
#DESTROY IF ALREADY AVAILABLE CUBE VIEW SOURCE
IF(ViewExists(vCubeName, vCubeName|' - '|pViewName)=1);
ViewDestroy(vCubeName, vCubeName|' - '|pViewName);
ENDIF;
#DETERMINE THE COUNT
i = 1;
Count = 0;
WHILE (i <= 10);
IF(TABDIM(vCubeName, i)@='');
ELSE;
Count = Count + 1;
ENDIF;
i = i + 1;
END;
ViewCreate(vCubeName, vCubeName|' - '|pViewName);
#DEFINE CUBE VIEW SOURCE
DataSourceCubeView = vCubeName|' - '|pViewName;
Data:
EXECUTEPROCESS('Code 2','vCubeName',vCubeName);
Code: Select all
Code 2
Prolog:
# DEFINE CUBE SOURCE*****
DatasourceNameForServer = vCubeName;
DatasourceNameForClient = vCubeName;
#DESTROY IF ALREADY AVAILABLE CUBE VIEW SOURCE
IF(ViewExists(vCubeName, vCubeName|' - '|pViewName)=1);
ViewDestroy(vCubeName, vCubeName|' - '|pViewName);
ENDIF;
#DETERMINE THE COUNT
i = 1;
Count = 0;
WHILE (i <= 10);
IF(TABDIM(vCubeName, i)@='');
ELSE;
Count = Count + 1;
ENDIF;
i = i + 1;
END;
ViewCreate(vCubeName, vCubeName|' - '|pViewName);
#DEFINE CUBE VIEW SOURCE
DataSourceCubeView = vCubeName|' - '|pViewName;
Data:
IF(Count=2);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),Value);
ELSEIF (Count=3);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),Value);
ELSEIF (Count=4);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),TABDIM(vCubeName,4),Value);
ELSEIF (Count=5);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),TABDIM(vCubeName,4),TABDIM(vCubeName,5),V
alue);
ELSEIF (Count=6);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),TABDIM(vCubeName,4),TABDIM(vCubeName,5),T
ABDIM(vCubeName,6),Value);
ELSEIF (Count=7);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),TABDIM(vCubeName,4),TABDIM(vCubeName,5),T
ABDIM(vCubeName,6),TABDIM(vCubeName,7),Value);
ELSEIF (Count=8);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),TABDIM(vCubeName,4),TABDIM(vCubeName,5),T
ABDIM(vCubeName,6),TABDIM(vCubeName,7),TABDIM(vCubeName,8),Value);
ELSEIF (Count=9);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),TABDIM(vCubeName,4),TABDIM(vCubeName,5),T
ABDIM(vCubeName,6),TABDIM(vCubeName,7),TABDIM(vCubeName,8),TABDIM(vCubeName,9),Value);
ELSEIF (Count=10);
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),TABDIM(vCubeName,3),TABDIM(vCubeName,4),TABDIM(vCubeName,5),T
ABDIM(vCubeName,6),TABDIM(vCubeName,7),TABDIM(vCubeName,8),TABDIM(vCubeName,9),TABDIM(vCubeName,10),Value);
ENDIF;
That's a curious approach, when doing this I normally just set the While loop to exit once the dimension count is exceeded and TabDim returns a blank string.Alan Kirk wrote:Code: Select all
l_Counter = 1; While ( l_Counter <= 256); s = TabDim ( V1, l_Counter); If ( s @= ''); AsciiOutput ('Y:\Temp\DimsInCubes.txt', V1, Trim ( Str ( l_Counter-1, 12, 0 ) ) ); l_Counter = 257; EndIf; l_Counter = l_Counter +1; End;
Code: Select all
iDim = 1;
sDim = TabDim(vCube, iDim);
sCubeAndDims = vCube | ',' | sDim;
While( sDim @<> '' );
iDim = iDim + 1;
sDim = TabDim(vCube, iDim);
sCubeAndDims = sCubeAndDims | ',' | sDim;
End;
AsciiOutput(sFile, sCubeAndDims);
Considering the example Alan gave you why have you gone with this approach with such a large amount of unnecessary coding?appleglaze28 wrote:There's something wrong with how the TI function:
.......
TextOutput(pLocation|vCubeName|'.csv', vCubeName,TABDIM(vCubeName,1),TABDIM(vCubeName,2),Value);
I'm sure you're most welcome, but next time you ask a question could you please take a moment to re-read it before hitting the [Submit] button to ensure that it's asking what you actually want to ask?appleglaze28 wrote:Thanks Steve for pointing that out....Thanks everyone for the help.
Number: A numeric value. A single all-numeric mathematical output, designating how many of a given quantity of objects.the number of dimensions in a cube
bears absolutely no relation to either of them.Was expecting the elements of the datapoint of those values to appear and not the dimension name.
Which is, essentially, what I'm doing although yours is gathering a list of dims rather than just the number. (The latter was what appeared to have been asked in the initial post, though as noted above the nature of the question underwent some rather curious mutations after that time.) In VBA I'd use Exit For or Exit Do or similar. I don't trust undocumented functions so I'm not using Break, and instead exit the loop by kicking the counter above the max.lotsaram wrote:That's a curious approach, when doing this I normally just set the While loop to exit once the dimension count is exceeded and TabDim returns a blank string.Alan Kirk wrote:Code: Select all
l_Counter = 1; While ( l_Counter <= 256); s = TabDim ( V1, l_Counter); If ( s @= ''); AsciiOutput ('Y:\Temp\DimsInCubes.txt', V1, Trim ( Str ( l_Counter-1, 12, 0 ) ) ); l_Counter = 257; EndIf; l_Counter = l_Counter +1; End;Code: Select all
iDim = 1; sDim = TabDim(vCube, iDim); sCubeAndDims = vCube | ',' | sDim; While( sDim @<> '' ); iDim = iDim + 1; sDim = TabDim(vCube, iDim); sCubeAndDims = sCubeAndDims | ',' | sDim; End; AsciiOutput(sFile, sCubeAndDims);