使用COBOL自动生成唯一ID

Question

我是COBOL的新手，我想知道如何为每个交易自动生成唯一ID。例如，自动生成跟踪ID。

Answer 1

对于全局唯一ID这不容易做到，但是使用您在交易时可能拥有的数据进行模拟并不困难，请考虑：

01 Unique-ID.
  05 UI-Customer-Num      Pic 9(?).
  05 UI-Date              Pic 9(8).
  05 UT-Time              Pic 9(7).
*>Populate with Compute UI-Random = 999999999 * Function Random()
  05 UI-Random            Pic 9(8).

假设您有一个客户编号，您可以使用您在交易中拥有的数据生成一个至少十分之一秒的唯一ID。只需在其末尾添加一个大的随机数，即可拥有唯一的ID。

如果跟踪ID不提供任何数据向休闲阅读器提供任何数据非常重要，您可以获取最终的唯一ID并通过单向哈希运行，如SHA1，SHA2，SHA256等等。