Currenlty the handling of Default Dimensions of Sustainability Journals aren't extensible.

Therefore I suggest to add similiar procedure

    procedure CreateDimFromDefaultDim(FromFieldNo: Integer)

    var

        DefaultDimSource: List of [Dictionary of [Integer, Code[20]]];

    begin

        InitDefaultDimensionSources(DefaultDimSource, FromFieldNo);

        CreateDim(DefaultDimSource);

    end;

local procedure InitDefaultDimensionSources(var DefaultDimSource: List of [Dictionary of [Integer, Code[20]]]; FromFieldNo: Integer)

procedure CreateDim(DefaultDimSource: List of [Dictionary of [Integer, Code[20]]])