当前和预计到达时间

        DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 TIME-STORAGE.
        03 CURRENT-TIME-NUMERIC         PIC 9(8).
        03 ETA-NUMERIC PIC 9(8) REDEFINES CURRENT-TIME-NUMERIC.    

        03 CURRENT-TIME REDEFINES CURRENT-TIME-NUMERIC.
            05  CURRENTHOUR     PIC 99.
            05  CURRENTMINUTE   PIC 99.
            05  FILLER          PIC 9(4).
        03 ARIVAL-TIME-NUMERIC PIC 9(8).
        03 ARIVAL-TIME REDEFINES ARIVAL-TIME-NUMERIC.
            05  ARRIVALHOUR     PIC 99.
            05  ARRIVALMINUTE   PIC 99.
            05  FILLER          PIC 9(4).
    PROCEDURE DIVISION.
    BEGIN-BUG-NORMAN.
        DISPLAY "when will you be ariving?"
        DISPLAY "HH [enter]"
        ACCEPT ARRIVALHOUR
        DISPLAY "MM [enter]"
        ACCEPT ARRIVALMINUTE
        ACCEPT CURRENT-TIME FROM TIME.
        SUBTRACT ARIVAL-TIME-NUMERIC 
            FROM CURRENT-TIME-NUMERIC
            GIVING ETA-NUMERIC.
        DISPLAY "RESULTING ETA:"
        DISPLAY ETA-NUMERIC.
        DISPLAY "HOURS:"
        DISPLAY CURRENTHOUR
        DISPLAY "MINUTES:"
        DISPLAY CURRENTMINUTE

        STOP RUN.

#1 楼

我注意到了几件事：


没有身份识别部门。 “ IDENTIFICATION DIVISION对程序的执行没有影响，但是作为将程序识别给计算机的一种手段还是必需的。”-Stern＆Stern
第一个REDEFINES并没有真正的理由。另外，您似乎在使用错误。重新定义子句只是引用相同工作存储位置的另一种方法。如果要存储不同的数据，则将需要不同的变量。虽然您可以继续重新定义相同的变量并以不同的方式使用它，但它可能会变得凌乱并且存储起来会更加困难。
虽然您可以拥有3级变量，但我发现最好将其递增of 5
很多时候，如果您在真实的COBOL环境中工作，则需要一个环境部门。显然这里没有，但是请记住
您应该在WORKING-STORAGE SECTION中以WS-开头所有变量名，因为如果该程序需要与任何其他程序进行交互，那么您将拥有一个LINKAGE-SECTION及其一组变量。
仅可使用句点结束段落。从技术上讲，您可以使用句号结束​​任何事情。这导致代码混乱。此外，句点将关闭所有打开的语句。如果您有一个三重嵌套的IF，并且以一个句号结尾，它将关闭所有3。到达该点时，请使用适当的瓢终止符，例如END-IF和END-PERFORM

间距也很重要。

已经在另一个答案中解决了逻辑问题，因此在此我不再赘述。我在下面的代码中添加了我的建议：

        INDENTIFICATION DIVISION
        PROGRAM-ID. THE-TIMER.
        AUTHOR. name.
        DATE-WRITTEN. date.
        DATE-COMPILED. date.
        *****************************************************************
        *header comment about the program change logs ect               *
        *****************************************************************

        DATA DIVISION.
        WORKING-STORAGE SECTION.

        01 TIME-STORAGE.
            05 WS-CURRENT-TIME        PIC 9(8).
               10  WS-CURRENTHOUR     PIC 99.
               10  WS-CURRENTMINUTE   PIC 99.
               10  WS-FILLER          PIC 9(4).

            05 WS-ARIVAL-TIME         PIC 9(8).
               10  WS-ARRIVALHOUR     PIC 99.
               10  WS-ARRIVALMINUTE   PIC 99.
               10  WS-FILLER          PIC 9(4).

            05 WS-ETA                 PIC 9(8).
               10 WS-ETAHOUR          PIC 99.
               10 WS-ETAMINUTE        PIC 99.
               10 WS-FILLER           PIC 9(4).


        PROCEDURE DIVISION.

            BEGIN-BUG-NORMAN.

            DISPLAY "when will you be ariving?"
            DISPLAY "HH [enter]"
            ACCEPT WS-ARRIVALHOUR
            DISPLAY "MM [enter]"
            ACCEPT WS-ARRIVALMINUTE

            ACCEPT WS-CURRENT-TIME FROM TIME
            SUBTRACT WS-ARIVAL-TIME 
                FROM WS-CURRENT-TIME
                GIVING WS-ETA

            DISPLAY "RESULTING ETA: "
            DISPLAY ETA-NUMERIC
            DISPLAY "HOURS: "
            DISPLAY CURRENTHOUR
            DISPLAY "MINUTES: "
            DISPLAY CURRENTMINUTE

            IF WS-ETAHOUR > 5
               DISPLAY " It could be a while"
            END-IF

            STOP RUN.

#2 楼

尽管代码简洁明了（COBOL始终是....; ;-)），但是我发现您的计算中存在一些逻辑缺陷。

具体来说，请考虑当前时间14450000（2:45 pm）和用户输入[HH]的15和[MM]的15作为他的ETA（3:15 pm）

，您的减法将存储14450000和15150000之间的差。存储在ETA-NUMERIC中的差异将是00700000，并且代码将显示HOURS:00和MINUTES:70，但是，我们知道它们之间只有30分钟。

代码没有考虑到分钟是基本时间-60。

#3 楼

在大多数情况下，您假设有效的数值不会使您更快地获得s0c7。用外行术语来说，系统完成代码为0C7，也称为s0c7。这意味着“试图对非数字数据执行数字运算”。顺便说一句，如果用户输入的空格表示零，bam，s0c7。

因此最佳做法是添加“如果WS-CURRENTHOUR是数字，则....”

当然，您可能需要组合许多检查，但这会使有意义的错误消息更加困难。

#4 楼

搜索“最佳实践”是值得称赞的，应该会使您受益。

但是，即使在50年以上的时间里，也不要期望“最佳实践”的存在和不存在达成共识。

除此之外，您还应该为自己的网站制定一套“本地标准”。这些你应该坚持下去，其他人也应该坚持下去。如果它们包含愚蠢的内容，请尝试进行讨论，但此后再达成共识。如果每个人都有最好的机会理解其他人编写的代码，情况将会更好。传统上，COBOL系统是团队合作的结晶，因此理解他人的代码并使其易于理解非常重要。

有时本地标准并不是很多人所描述的最佳实践。在过去的某些时候，它们可能至少是一种良好的做法，但是本地标准变化缓慢。

您在评论中询问空白行。也许40年前（较少依赖特定站点的硬件）没有空白行是有意义的。每个空白行都是一张打孔卡。每张卡都需要一些时间才能读取。每张卡都可能出现故障，并阻塞读卡器，或者被拒绝。

即使过了这么短的时间，CPU的运行速度也没有今天那么快。因此，仅读取空白行以让编译器忽略即可，这会对大型程序的编译器吞吐量产生一定的影响，并且可能只有一个地址空间专门用于编译并一天24小时运行，所以累加很少。

今天，完全不用担心。使您的程序对人类可读。编译器将始终进行管理，是我们在阅读程序时需要帮助，因此请把它交给我们。

A. MOVE B TO C. PERFORM D. D. MOVE E TO F. PERFORM I. I. MOVE Z TO Q.

那是“有效的” COBOL。从理论上讲，编译起来比编码8条单独的行（甚至没有空行）要快，但要弄清楚人类要了解的情况需要花费多长时间。

NEW-CLIENT-RECORD.

    [all the stuff you need to do for establishing a new client record]

    PERFORM                       NEW-CLIENT-SUB-RECORD
    .
NEW-CLIENT-SUB-RECORD.

    [all the stuff you need to do ...]

    PERFORM                       CLIENT-COMPLIANCE-VERIFICATION
    .

CLIENT-COMPLIANCE-VERIFICATION.

    [all the stuff you need to do ...]
    .

不要尝试使用REDEFINES“保存存储”。定义单独的字段，并避免在编写代码时或在两个月内有人（也许您）对粗心的更改进行“副作用”头痛的情况。

对所有内容使用好名字。放弃有关VAR1或I，J，K的任何想法。

IF VAR1(J)>7
    MOVE "Y" TO VAR4
END-IF

您希望调试该代码还是编写以下代码：

IF CT-OF-APPLES-IN-STOCK ( WAREHOUSE-STOCKED-IN )
    GREATER THAN MAX-CT-FOR-PERISHABLES-TYPE-P014 [which has a value of 7]
    SET OVERSTOCKED-ORANGES        TO TRUE
END-IF

实际上，看，你甚至不能写关于橘子的东西，对吗？在撰写本文时，您甚至可以问自己（看看规格，问分析师/设计师/业务用户），这应该是苹果的“数量”，还是“盒子”或“托盘”之类的东西，因为仓库中的苹果通常不会单独存放。

尝试从VAR1 / I垃圾中获取有用的东西，您将花费大量时间来追踪字段的内容以及内容

使程序可读。无所事事会使事情变得晦涩。遵守当地标准。

阅读手册。阅读其他人的代码。实验。考虑一下人们的建议以及它给您带来的好处。例如，您会发现WS01-data-name，WS02-data-name等。W很有用，其余的都是废话。定义数据时会造成挫败感。如果不重命名所有内容，就不可能将新数据包括在与之相关的一组现有数据中。您会发现规定此类情况的当地标准。尝试进行更改，但如果失败，则顺其自然（当然，请编写一些宏/脚本来为您工作）。