How to activate inventory dimension in AX

Hi Guys,
             Here I am going to activate configuration for SCSW Dimension Group.
              Write this code in a job and run.

static void ActivateDimension(Args _args)
{
    InventDimSetup  InventDimSetup;
    ;
    ttsbegin;
//In below line write the recid of record which you want to activate.
// You will find this recid in InventDimSetup table.

    select forupdate InventDimSetup where  InventDimSetup.RecId == 5637152344
                                       && InventDimSetup.dimGroupId == 'scsw';
     {
        info (strfmt("%1,%2", InventDimSetup.Active,InventDimSetup.RecId));
        InventDimSetup.Active = Noyes::Yes;
        //InventDimSetup.Update();
        info (strfmt("%1,%2", InventDimSetup.Active,InventDimSetup.RecId));
    }
    ttscommit;
}


//Task Complete.