Question

我是cobol编程的新手。我想检查和处理某些交易的两个日期之间的数据，即使用cobol的起始日期和起始日期。我在平面文件中有数据。从日期到日期是数据的一部分。因此，对于某些帐号，每年都有交易。我想阅读这些交易，从开始日期到最新日期，并更新其中的某些字段。您能帮我解决这个问题吗？

Answer 1

对于设置起始日期和截止日期，我建议将其作为参数传递到JCL中，或者将这些日期放入文件中。一旦您可以访问程序中的这些日期，处理将如下所示：

WS-FROM-INT  = FUNCTION INTEGER-OF-DAY (FROM-DATE)
WS-UNTIL-INT = FUNCTION INTEGER-OF-DAY (UNTIL-DATE)

PERFORM UNTIL END-OF-FILE
   WS-TRANS-INT = FUNCTION INTEGER-OF-DAY (TRANS-DATE)

   IF (WS-TRANS-INT >= WS-FROM-INT) AND (WS-TRANS-INT <= WS-UNTIL-INT)
      do whatever processing you want
   END-IF
END-PERFORM

将日期更改为整数可以使比较容易得多。以下是有关INTEGER-OF-DATE函数的一些文档：https://www.ibm.com/support/knowledgecenter/en/SSPSQF_9.0.0/com.ibm.etools.iseries.langref.doc/c0925395610.htm

使用cobol检查两个日期之间的数据

1 个答案: