if(objList then
foreach(obj objList
cdfList = cdfGetInstCDF(obj)
;!!!At your own risk to change the base layer of CDF.
;cdfList = cdfGetBaseCellCDF(ddGetObj(obj~>master~>libName obj~>master~>cellName))
targetParam = car(setof(x cdfList~>parameters x~>name == paramName))
when(targetParam targetParam~>editable = paramValue)
);foreach
else
print("No objects have been selected")
)
);prog
);proc