Make default dimension control element editable false using x++ d365fo

public void init()

{

    DimensionEnumeration          dimensionSetId = DimensionCache::getDimensionAttributeSetForLedger();

    DimensionAttributeSetStorage  dimensionAttributeSetStorage = new DimensionAttributeSetStorage();

    DimensionAttribute            dimensionAttribute;

    DimensionAttributeSetItem     dimAttrSetItem;

    while select dimensionAttribute

        where dimensionAttribute.Name != 'MyDimension'   // Exclude specific dimension (not editable)

        join dimAttrSetItem

            where dimAttrSetItem.DimensionAttribute   == dimensionAttribute.RecId

               && dimAttrSetItem.DimensionAttributeSet == dimensionSetId

    {

        dimensionAttributeSetStorage.addItem(dimensionAttribute.RecId,dimensionAttribute.HashKey, NoYes::Yes);

    }

    DimensionEntryControl.parmEditableDimensionSet(dimensionAttributeSetStorage.save());

}