cobol_在尝试之前不要讨厌COBOL

cobol

COBOL是编程语言的Rodney Dangerfield，它不受任何尊重。 它经常因其冗长而被贬低，并被认为是过时的。 然而，COBOL 绝非一成不变的语言 。 它估计处理所有业务交易的85％，并且每年编写50亿行新的COBOL代码。

我作为COBOL程序员工作了10年，但我认为它的声誉不会像人们认为的那样糟糕。 实际上，它非常擅长处理货币和固定格式的记录。 但是COBOL确实有其怪癖，其中许多根源在于编程初期的计算环境。 这是关于打Kong卡如何吃掉我的程序的故事。

一个神秘的错误

这是问题代码的示例，该代码尝试计算订单的运费和预计的运送日期：

   
   

    
    

     
      
     
     1      
     
     identification 
     
     division 
     
     . 
     
     

 
     
     2      
     
     program-id 
     
     . 
     
     

 
     
     3          test-ship 
     
     . 
     
     

 
     
     4 
     
     

 
     
     5      
     
     data 
     
     division 
     
     . 
     
     

 
     
     6      
     
     working-storage 
     
     section 
     
     . 
     
     

 
     
     7 
     
     

 
     
     8      
     
     01 shipping-method            
     
     pic x 
     
     ( 
     
     2 
     
     ) 
     
     value 
     
     'US' 
     
     . 
     
     

 
     
     9      
     
     01 cust-type                  
     
     pic x 
     
     ( 
     
     2 
     
     ) 
     
     value 
     
     'EM' 
     
     . 
     
     


     
     10      
     
     01 normal-ship-date-yyyymmdd  
     
     pic 
     
     9 
     
     ( 
     
     8 
     
     ) 
     
     value 
     
     20170522 
     
     . 
     
     


     
     11      
     
     01 nextday-ship-date-yyyymmdd 
     
     pic 
     
     9 
     
     ( 
     
     8 
     
     ) 
     
     value 
     
     20170508 
     
     . 
     
     


     
     12      
     
     01 expected-shipping-date     
     
     pic 
     
     9 
     
     ( 
     
     8 
     
     ) 
     
     . 
     
     


     
     13      
     
     01 shipping-charge            
     
     pic 99v99 
     
     value 
     
     4.99 
     
     . 
     
     


     
     14 
     
     


     
     15      
     
     procedure 
     
     division 
     
     . 
     
     


     
     16          
     
     if shipping-method 
     
      <>  
     
     'FX' 
     
     


     
     17              
     
     move normal-ship-date-yyyymmdd 
     
     to expected-shipping-date
     
     


     
     18          
     
     else 
     
     


     
     19              
     
     move nextday-ship-date-yyyymmdd 
     
     to expected-shipping-date 
     
     . 
     
     


     
     20 
     
     


     
     21          
     
     if cust-type 
     
      =  
     
     'EM' 
     
     


     
     22              
     
     move 
     
     0 
     
     to shipping-charge 
     
     . 
     
     


     
     23 
     
     


     
     24          
     
     display expected-shipping-date 
     
     . 
     
     


     
     25          
     
     display shipping-charge 
     
     . 
    
    
   
   

即使您以前从未看过COBOL代码，其逻辑也应易于遵循。 如果运送方式为“ FX”，则客户将获得第二天的运送，否则运送需要两个星期。 （这是90年代。）员工获得免费送货； 其他所有人支付$ 4.99。 该代码对我来说看起来是正确的，但是有一个错误-发货日期计算正确，但是向员工收取了全部运费。

问题出在19点末。那个时候，它花费了一些侦探性的工作才能找到答案，但是现代语法高亮的编辑器会立即对其进行标记。 但是为什么这是一个问题呢？ 当COBOL对第22行结尾处的那个完全满意时，为什么不喜欢那个时期呢？

句子代替障碍

要回答这个问题，我们需要回到1950年代后期的COBOL起源。 在此之前，大多数语言都是为解决科学和工程问题而设计的，因此它们的语法类似于数学方程式。 （Fortran是这种语言的经典示例。）另一方面，COBOL则用于业务计算。 为了使外行人更容易学习，Grace Hopper和她的国防部团队以及IBM工程师为COBOL提供了英语语法。 COBOL程序具有大多数结构，而不是大多数现代语言具有的递归语法。 COBOL而不是块，将语句组合在一起成为“句子”。 就像英语一样，每个句子都以句点结尾。

尽管从理论上讲这似乎是个好主意，但实际上却是有问题的。 由于流浪期可能会意外终止一个块，因此很难四处移动代码。 周期也很难注意到-在90年代的CRT终端上它们通常只是一个像素。 但是这里存在一个更深层次的问题，一个与最初开发COBOL时程序员如何编写代码有关的问题。

打卡

^{COBOL打Kong卡 ，Rainer Gerhards， CC BY-SA 3.0}

设计COBOL时，硬盘的价格过高，因此大多数程序都是在打Kong卡上编写的。 最常见的打Kong卡由12x80网格组成，其中Kong表示1，非Kong表示0。每列是单个12位字符，每张卡是单个80个字符的文本行。 要运行程序，您需要将一副打Kong卡放入读卡器中。 每张卡的前六列和最后八列保留用于序列号和标识符。 这样，如果您放下甲板（可能是您程序的唯一副本），则可以通过机械分拣机喂入卡片，以将卡片放回正确的顺序。

这意味着COBOL会忽略第72列之后的任何字符。如果恰好是一个句点，则代码的整个逻辑可能会更改。 而且，正如您现在无疑已经猜到的那样，第19行的那个时期在第73列。这是COBOL编译器实际上解释这些行的方式：

   
   

    
    
 
     
     16          
     
     if shipping-method 
     
      <>  
     
     'FX' 
     
     


     
     17              
     
     move normal-ship-date-yyyymmdd 
     
     to expected-shipping-date
     
     


     
     18          
     
     else 
     
     


     
     19              
     
     move nextday-ship-date-yyyymmdd 
     
     to expected-shipping-date
     
     


     
     20 
     
     


     
     21              
     
     if cust-type 
     
      =  
     
     'EM' 
     
     


     
     22                  
     
     move 
     
     0 
     
     to shipping-charge 
     
     . 
    
    
   
   

一旦发现问题所在，修复起来就很容易：我从第19行的开头删除了一个空白字符，将句点放在第72列。尽管我以前从未遇到过，但这是一个常见的错误许多大型机COBOL程序员会在其终端的第72和73列之间绑一条线程。

今天的COBOL

COBOL-85标准添加了范围终止符（例如end-if） ，因此不再需要句号来结束句子。 尽管许多编译器早在此之前就已支持，但COBOL 2002标准允许使用自由格式的代码。 写入2002标准的相同代码看起来更像是现代编程语言：

   
   

    
    
 
     
     16 
     
     if shipping-method 
     
      <>  
     
     'FX' 
     
     


     
     17     
     
     move normal-ship-date-yyyymmdd 
     
     to expected-shipping-date
     
     


     
     18 
     
     else 
     
     


     
     19     
     
     move nextday-ship-date-yyyymmdd 
     
     to expected-shipping-date
     
     


     
     20 
     
     end-if 
     
     


     
     21 
     
     


     
     22 
     
     if cust-type 
     
      =  
     
     'EM' 
     
     


     
     23     
     
     move 
     
     0 
     
     to shipping-charge
     
     


     
     24 
     
     end-if 
    
    
   
   

注意，行首的空白也不再需要。 我通常使用的系统同时支持范围终止符和自由格式代码，因此，在必须对另一个系统进行一些更改之前，我从未遇到过此问题。

对于开源爱好者来说，了解COBOL一直很困难。 传统上，COBOL编译器是开源且昂贵的，并且大多数COBOL代码是在公司环境中编写的。 但是，一个名为OpenCOBOL的开源编译器的工作始于2002年。2013年，它被正式接受为GNU软件包，并更名为GnuCOBOL。 要了解有关GnuCOBOL的更多信息，包括访问400页的程序员指南，请访问项目的主页 。

在Walt Mankowski的演讲“ Punch Card Ate My Program”中了解有关COBOL的更多信息！ ，于8月26日在费城举行的FOSSCON上。

翻译自: https://opensource.com/article/17/8/what-about-cobol

cobol