Code: Select all
vDim = 'CustomerHierarchy';
i = DIMSIZ(vDim) ;
WHILE( i > 0) ;
vElem = DIMNM(vDim, i) ;
IF (Ellev(vDim,vElem) = 0 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
ASCIIOUTPUT('d:\move2.txt', vElem);
ENDIF;
IF (Ellev(vDim,vElem) = 1 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
ASCIIOUTPUT('d:\delete2.txt', vElem);
ENDIF;
i = i -1 ;
END;
Code: Select all
vDim = 'CustomerHierarchy';
i = DIMSIZ(vDim) ;
WHILE( i > 0) ;
vElem = DIMNM(vDim, i) ;
IF (Ellev(vDim,vElem) = 0 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
DimensionElementComponentAdd(vDim, 'DO NOT USE', vElem, 0);
ASCIIOUTPUT('d:\move2.txt', vElem);
ENDIF;
IF (Ellev(vDim,vElem) = 1 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
DimensionElementDelete( vDim, vElem );
ASCIIOUTPUT('d:\delete2.txt', vElem);
ENDIF;
i = i -1 ;
END;