AX 2012 - Create new default dimension - AX2012

Below code will help to create new default dimension value,

static RecId findOrcreateDefaultDimension_glc()
{
    DimensionAttributeValueSetStorage   valueSetStorage = new DimensionAttributeValueSetStorage();
    DimensionAttribute                  dimensionAttribute;
    DimensionAttributeValue             dimensionAttributeValue;
    int                               i;
    container                    conAttr;
    str                               dimVal = "Operations";

    #macrolib.Dimensions_glc

    conAttr =   ["Dept"];
    for (i = 1; i <= conLen(conAttr); i++)
    {
        dimensionAttribute = DimensionAttribute::findByName(conPeek(conAttr,i));

        if (dimensionAttribute.RecId == 0)
        {
            continue;
        }

        if (_dimVal != "")
        {
            dimensionAttributeValue =  DimensionAttributeValue::findByDimensionAttributeAndValue(dimensionAttribute,dimVal,false,true);
            valueSetStorage.addItem(dimensionAttributeValue);
        }
    }
    return (valueSetStorage.save());
}