请写一段SAP BPC的脚本，取维度ENTITY的属性CURRENCY为HKD的公司，且该公司是参数%ENTITY_SET%的叶级别。用取到的ENTITY限定数据，并限定科目为1001的叶级别。将选定的数据乘以1，写入RPTCURRENCY=LC，其他条件不变。

下面是一段符合要求的SAP BPC脚本：

*SELECT(%ENTITY_SET%, [ENTITY].[ID], [ENTITY].[PARENT_ID] = %PARENT_ID%, [ENTITY].[IS_LEAF] = TRUE)

*XDIM_MEMBERSET ENTITY=%ENTITY_SET% CURRENCY=HKD
*XDIM_MEMBERSET ACCOUNT=1001

*WHEN ENTITY
*IS %ENTITY_SET%
*REC(EXPRESSION = [%VALUE%] * 1, RPTCURRENCY = LC)

这段脚本首先使用SELECT函数选取参数%ENTITY_SET%的叶级别，然后使用XDIM_MEMBERSET限定维度ENTITY属性CURRENCY为HKD的公司，并限定科目为1001的叶级别。最后，在ENTITY为%ENTITY_SET%时，将选定的数据乘以1，写入RPTCURRENCY=LC。