Db2 我需要屏蔽才能查看最后4位数字

使用cobol和db2，请帮助我检查查询检索数据的长度

---

如果实际帐号为123456789，则相应地屏蔽显示最后4位数字作为示例。然后它应该显示为******6789。另外，如果长度是123456，那么**3456类似于基于db2表数据检索长度的长度检查，也给出长度检查代码，并在使用db2时基于它提供SQL解决方案

substr('**********',1 , LENGTH('123456789') - 4) || RIGHT('123456789', 4)

---

只需确保***字符串具有最大长度

Stackoverlow不是代码编写服务。我们的想法是，您可以尝试自己编写Cobol代码，并在出现问题时请求帮助显示代码。请使用。如果OP的特定版本支持，您可能会发现创建掩码很有用。