Customer Default dimension update

static void GH_CustomerUpdate(Args _args)

{

    CustTable                         _custTable;

    DimensionAttribute                _dimAttribute;

    DimensionAttributeValueSet        _dimAttributeSet;

    DimensionAttributeValueSetItem    _dimAttributeSetItem;

    DimensionAttributeValue           _dimValue;

    DimensionAttributeValueSetStorage _dimStorage;

    Common                            dimensionValueEntry;

   

     select forUpdate _custTable where _custTable.AccountNum == 'C-04856';

    {

        ttsBegin;

       

         _custTable.SalesGroup           = 'GRE';

         _custTable.MainContactWorker    = 5637156776;

         _dimStorage                     = DimensionAttributeValueSetStorage::find(_custTable.DefaultDimension);

         _dimAttribute                   = DimensionAttribute::findByName("GH01_Salesman");

         _dimValue                       = DimensionAttributeValue::findByDimensionAttributeAndValue(_dimAttribute, 'GRE', true, true);

         _dimStorage.addItem(_dimValue);

         _custTable.DefaultDimension     = _dimStorage.save();

         _custTable.doUpdate();

        ttsCommit;

       

   

    }

}