TM1 Forum

Code: Select all

SC_CUBE = 'PNL';
SC_N_SUBSET = 'BugTest90';
SC_VIEW = 'BugTest90';

SC_VERSION_TARGET = 'Fcst Q1';

ViewDestroy ( SC_CUBE, SC_VIEW );
ViewCreate ( SC_CUBE, SC_VIEW );

ViewExtractSkipCalcsSet ( SC_CUBE, SC_VIEW, 1 );
ViewExtractSkipZeroesSet ( SC_CUBE, SC_VIEW, 1 );

l_Dim = 1;

While ( l_Dim <= 12);

    s_Dim = TabDim ( SC_CUBE, l_Dim);

#   AsciiOutput ( 'C:\Temp\PreRebootOrder_ViewCreateAndUseProlog.txt', s_Dim);
   AsciiOutput ( 'C:\Temp\PostRebootOrder_ViewCreateAndUseProlog.txt', s_Dim);

    SubsetDestroy ( s_Dim, SC_N_SUBSET);

    If ( s_Dim @= 'Version');

        SubsetCreate( s_Dim, SC_N_SUBSET);
        SubsetElementInsert( s_Dim, SC_N_SUBSET, 'Budget', 1);
        
    Else;
        SubsetCreatebyMDX( SC_N_SUBSET, '{TM1FILTERBYLEVEL( {TM1SUBSETALL( [' | s_Dim | '] )}, 0)}');
    EndIf;

    ViewSubsetAssign(  SC_CUBE, SC_VIEW, s_Dim, SC_N_SUBSET );

    l_Dim=l_Dim+1;

End;

DataSourceType='VIEW';
DatasourceCubeview = SC_VIEW;

# Not switched on again at the end to allow
# easier clearing of the data.
CubeSetLogChanges ( SC_CUBE, 0);

Code: Select all

CellPutN ( Value, SC_CUBE, SC_VERSION_TARGET, {Other variables in original cube order} );

Code: Select all

ViewDestroy ( SC_CUBE, SC_VIEW );

l_Dim = 1;

While ( l_Dim <= 12);

    s_Dim = TabDim ( SC_CUBE, l_Dim);

#   AsciiOutput ( 'C:\Temp\PreRebootOrder_ViewCreateAndUseEpilog.txt', s_Dim);
   AsciiOutput ( 'C:\Temp\PostRebootOrder_ViewCreateAndUseEpilog.txt', s_Dim);

    SubsetDestroy ( s_Dim, SC_N_SUBSET);

    l_Dim=l_Dim+1;

End;