Modifying Part Instance Occurrence REFERENCE

Hi,

I'm trying to modify part instance occurrence reference name by TCL Script. I can be able to get the name from property but, I couldn't be able to modify them. I've added my code below can anyone please help me out to solve this problem that would be so helpful. 

Code:

set selectedobjs [GetSelectedPMItems]
set objlength [llength $selectedobjs]
set lStatus [DboState]
set lNullObj NULL
for {set j 0} {$j < $objlength} {incr j} {
set lPage [lindex $selectedobjs $j]
set lPageNameCS [DboTclHelper_sMakeCString]
set lPageNameCS1 [DboTclHelper_sMakeCString]
$lPage GetName $lPageNameCS
set lPageName [DboTclHelper_sGetConstCharPtr $lPageNameCS]
puts $lPageName
set PlIter [$lPage NewPartInstsIter $lStatus]
set lPart [$PlIter NextPartInst $lStatus]
while {$lPart != $lNullObj } {
set lReferenceName [DboTclHelper_sMakeCString]
$lPart GetReference $lReferenceName
set lReferenceNameS [DboTclHelper_sGetConstCharPtr $lReferenceName]
puts $lReferenceNameS
set lOccCount [$lPart GetOccurrencesCount]
puts $lOccCount
for {set i 0} {$i<$lOccCount} {incr i} {
set lOcc [$lPart GetOccurrencesAtPos $i]
set lReferenceName1 [DboTclHelper_sMakeCString]
$lOcc GetPathName $lReferenceName1
set lReferenceNameS1 [DboTclHelper_sGetConstCharPtr $lReferenceName1]
puts $lReferenceNameS1
set lPropsIter [$lOcc NewEffectivePropsIter $lStatus]
set lPrpName [DboTclHelper_sMakeCString]
set lPrpValue [DboTclHelper_sMakeCString]
set lPrpType [DboTclHelper_sMakeDboValueType]
set lEditable [DboTclHelper_sMakeInt]
set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
while {[$lStatus OK] == 1} {
set RefFilt [DboTclHelper_sGetConstCharPtr $lPrpName]
if {$RefFilt == "Reference" } {
puts "Name = [DboTclHelper_sGetConstCharPtr $lPrpName] Value = [DboTclHelper_sGetConstCharPtr $lPrpValue]"
set GetVal [DboTclHelper_sGetConstCharPtr $lPrpValue]
set a "AA"
set upVal "$GetVal$a"

# Error Part-----------------------------------------
set lPrpName [DboTclHelper_sMakeCString "Reference"]
set lPrpValue [DboTclHelper_sMakeCString $upVal]
set PropVal [$lPropsIter SetEffectivePropStringValue $lPrpName $upVal]
#---------------------------------------------------

}
set lStatus [$lPropsIter NextEffectiveProp $lPrpName $lPrpValue $lPrpType $lEditable]
}
delete_DboEffectivePropsIter $lPropsIter
}

set lPart [$PlIter NextPartInst $lStatus]
}
delete_DboPagePartInstsIter $PlIter
}

Actual Prop:

Expected Output: