如何使用cobol和db2从表中获取accno值中的星号

62lalag4 于 2023-03-18 发布在 DB2

关注(0)|答案(1)|浏览(217)

如果类型是“accno”，那么我们必须从表中获取结果值所示的值-使用COBOL编程，帐号应该是前6位数字作为星号，最后4位数字作为数字。
桌
代理类型帐号l1姓名jimmy l2帐号8257547429 l3电子邮件abc@gmail.com结果值
代理类型帐号L1姓名jimmy L2帐号7429 L3电子邮件abc@gmail.com
我尝试了这个查询，但它是不正确的，因为它是SQL查询，我想使用COBOL编程使用移动/如果语句。我正在获取表，以获得acc值，并生成一个报告，报告中的值应该是星号形式。
从您的表中选择ACC_NO，连接（''，右（前瓦尔，4））作为前值，连接（'*'，右（新值，4））作为新值

db2

来源：https://stackoverflow.com/questions/75753700/how-to-get-asterisks-in-the-accno-value-from-the-table-using-cobol-and-db2

1条答案

按热度按时间

kmynzznz1#

在纯COBOL代码中，例如：

03 ACCT-ALL-TEN.
   05 FIRST-SIX    PIC X(6).
   05 LAST-FOUR    PIC X(4).
.......
     MOVE ACCT-NO TO ACCT-ALL-TEN.
     MOVE '******' TO FIRST_SIX.
     DISPLAY ACCT-ALL-TEN.

赞(0）回复(0）举报 2023-03-18

我来回答

如何使用cobol和db2从表中获取accno值中的星号

1条答案

相关问题

热门标签

最新问答