How to create a default dimension from financial dimensions in d365 X++

 public DimensionDefault createDefaultDimension()

{

    DimensionAttributeValueSetStorage   valueSetStorage = new DimensionAttributeValueSetStorage();

    DimensionDefault                    result;

    int                     i;

    DimensionAttribute      dimensionAttribute;

    DimensionAttributeValue dimensionAttributeValue; 

    container               conAttr = ["BusinessUnit","Costcentre","Department"];    

    container               conValue = ["001","007","022"];    

    str                     dimValue;    

    for (i = 1; i <= conLen(conAttr); i++)

    {

        dimensionAttribute = dimensionAttribute::findByName(conPeek(conAttr,i));

        if (dimensionAttribute.RecId == 0)

        {

            continue;

        }

        dimValue = conPeek(conValue,i);

        if (dimValue != "")

        {

            dimensionAttributeValue = dimensionAttributeValue::findByDimensionAttributeAndValue(dimensionAttribute,dimValue,false,true);

            valueSetStorage.addItem(dimensionAttributeValue);

        }

    }    

    result = valueSetStorage.save();

    return result;

}