c 调用 cobol_从COBOL角度看C

c 调用 cobol

我最初是在1986年为一家印刷杂志写这篇文章的。我23岁，从事COBOL已有四年，最初是在打Kong卡上做的。 我开始听有关C的知识并将其教给自己，然后将一些COBOL重写为C（请注意，C是COBOL的可怕替代品），我将此内容作为其他COBOL程序员入门的入门，以了解C。大约10年前更新了该介绍的博客文章，但在过去的两周中，我最终与六位​​不了解COBOL的人分享了该介绍，只是为了向他们描述COBOL记录结构，感觉很强大，在大多数现代语言中也没有很好的体现。 这将成为我目前正在设计的一种新语言，因此请欣赏过去的爆炸声，并了解您的祖父母在“回到过去”的方式:)。

尽管年轻的程序员很难相信，但仍然有至少65％的世界代码是用COBOL编写的，每年要编写50亿行新代码。 每天，COBOL应用程序处理的数据量是Google的200倍。 他们甚至不再在学校教这本书了，这真是令人遗憾，因为COBOL是一种很棒的商业语言，比Python可能存在的任何事物都要好得多。 这是因为其健壮的记录结构以及干净的字符串变量和条件逻辑。 虽然本文的主要目的是让COBOL程序员理解C，但是您可以轻松地反转示例。 在某些时候，必须重写或维护旧的COBOL代码，原因之一是它仍然存在，并且由于COBOL的稳定性和简洁性，因此几乎不需要手工操作。

请记住，C和COBOL来自完全不同的根，这使得比较变得非常困难。

预处理器

COBOL为我们提供了两个共享先前定义的记录布局和变量声明的选项。 最简单，最直接的是$ INCLUDE'文件名'。 这将获取一个文件，并在编译时将其复制到源文件中。 如果您不担心修改任何语句，则此方法就很好用，类似于Python中的“ import”或C / C ++ / etc中的“ include”。

更加通用的选项是使用COBEDIT并维护COPYLIB。 使用COPY命令从COPYLIB检索成员的优点是可以进行动态文本替换。 因此，如果要两次定义客户主数据集，一次定义数据集，一次定义一个文件，则可以在COPYLIB中设置一个前缀，您可以在编译时使用以下命令来更改该前缀：

COPY textname REPLACING ==pseudo-text-1== BY ==pseudo-text-2==.

因此，无需在COPYLIB中保留两个不同的定义。

尽管C确实有一个“ include”语句，但它没有与COPY语句等效的语句。 但是，通过使用“ #if”，“＃ifdef”，“＃elif”和“ #ifndef”命令，您可以控制在编译时包含哪些文件。 假设您正在编码某种便携式应用程序，并且已在不同文件中定义了不同的文件I / O功能以适应您的不同平台。 您可以使用以下结构轻松控制它；

#define SYS "Windows"
#if SYS == "Windows"
#include "windows.h"
#elif SYS == "MacOS"
#include "macos.h"
#elif SYS == "Linux"
#include "linux.h"
#endif

这里有几件重要的事情需要学习。 首先，#define命令实际上与COBOL中的$ DEFINE几乎相同。 它们都允许您定义和命名宏，该宏将创建“内联”代码，因此，如果代码稍大，它将产生更高的效率。 但是，COBOL define语句可以根据需要设置，但许多C编译器将您限制为仅包含#define语句的行。 将参数传递给C宏也更加令人困惑，只需确保在括号中放宽即可，以确保优先顺序。

例如，#define也可以像在COBOL中使用88级变量一样工作。

#define FALSE 0
#define TRUE !FALSE

然后我可以说'if FALSE'就像在COBOL中用88一样。这里的好处是，我可以使用！将TRUE定义为'not'FALSE。 （表示不是）在第二个#define语句中。 这实际上在COBOL中没有等效项。

既然我已经对#define语句进行了足够的介绍，可以使我们理解第一个示例，那么为什么不结束对示例的解释呢？

由于我们已将SYS定义为等于字符串HP3000，因此第一个#if语句为true，并且文件hp3kio.h将在编译时复制到程序中。 #elif是一个非常愚蠢的说法，“ else if”，只有汇编神知道他们为什么选择以这种方式缩写它。 因此，如果我们要编译代码以在VAX上运行，则只需更改#define行，然后，如果我们正确完成了初始设置，我们的代码就可以在VAX上运行。

信不信由你，您可以使用COBOL中鲜为人知且很少使用的编译器开关来完成几乎相同的事情。 通过使用以下命令，您可以实现类似的效果。

$SET X0=OFF
$IF X0=OFF
COPY WINDOWS
$IF X0=ON
COPY LINUX
$IF

重要的是要注意，尽管COBOL不区分大小写，但C是区分大小写的。 因此，myvar，Myvar和MYVAR实际上是三种不同的东西。 我看到的一个非正式标准是，所有“常规” C代码都使用小写字母，您定义的所有宏以及有时使用的函数都使用大写字母，以便快速，轻松地区分C和C的组成部分。你的是什么。 这根本不是一个坏主意。

我们在讨论入门时的最后一个注意事项是如何在代码中添加注释。 在COBOL中，请在第7列中输入*，然后键入所需的任何内容，也可以使用每行的最后5个字符输入有意义的内容。 在C语言中，我们的注释必须放在匹配的/ *…* /中，这可以单独出现在带有命令的行上，也可以跨行出现。 这里有一些例子;

/* here is my comment */
/*
here is another comment
that spans multiple lines
*/

a = b; / *这是在命令行上的注释* /

可变声明

下一步最明显的方法是如何在C中定义变量。在某些方面，这是C实际上比COBOL拥有C的地方，因为您可以定义全局AND局部变量。 这相当于在COBOL程序中有一个状态验证段，该段在段的顶部声明了它所需的所有变量，然后在该段返回调用过程时它们消失了。 想象一下，不再声明仅使用一次的全局变量。

C在定义变量的方式上与COBOL显着不同。

COBOL          C
---------------------------------------------------------
PIC S9(4 ) COMP short
PIC S9( 9 ) COMP long
PIC 9          char

关于在C中声明简单整数的重要说明，标准声明为'int my_counter'。 现在，my_counter的长度将取决于在其上声明的计算机的本机体系结构。 因此，在16位系统上说“ int”将声明一个16位整数或PIC S9（4）COMP。 问题是，如果将代码移至32位系统，则该声明将突然变为32位或PIC S9（9）COMP。 我们通过声明它们为16位的“短”整数或32位的“长”整数来解决这个问题。

我们的下一个变量类型是字符串或字符数组。 C以截然不同的方式处理字符串。 因为所有内容都是单个字符，所以您必须定义一个字符数组，这也是引用它的方式。 这是一个示例，说明如何在COBOL中执行此操作以及如果它像C一样必须在COBOL中执行操作；

char name[8]; /* a variable called name that is eight characters */
01 NAME PIC X(08).

或者如果像C那样定义的话

01 NAME-ARRAY
   05 NAME PIC X OCCURS 8 TIMES.

实际上，C语言中的字符数组将始终以空字符结尾，因此，如果需要八个字符数组，则需要将其设置为九个，以解决最后的空字符。

将字符数组初始化为C中空格的唯一方法是将单个字符移动到数组的每个元素。 这是您在两种语言中的选择；

01 NAME PIC X(08) VALUE SPACES.

要么

MOVE SPACES TO NAME.

要么

INITIALIZE NAME.

我
字符名称[9];
对于（i = 1; i <= 9; i ++）
name [i] =”“;

很讨厌吧？ 我将在C语句中解释所有后来没有意义的事情。 C还可以区分字符和字符串。 由于'char'类型只真正声明一个字符，因此不需要以null结尾的字符，因此这两个声明是不同的；

char switch;
char switch2[1];

实际上，由于字符串上的空终止符，您实际上需要将'switch2'设置为两个字符的数组，以使其按预期的方式运行。 在C中用\ 0定义了一个null，并且所有的字符串操作函数都依赖于null字符的正确位置，以便获得预期的输出。

例如，如果您想将我们的字符变量开关初始化为Y，则可以将其括在单引号字符'，即'Y'中。 单引号表示它是一个字符，而对于switch2，您将使用双引号”将字符串括起来，即“ Y”。 您必须直截了当，这很重要，如果您使用不正确，一些编译器不会抱怨，您可能会得到一些真正无法预测的结果。

既然我们知道如何在C中声明简单变量，我们将如何声明类似于COBOL中01变量声明的记录结构？ 尽管实现有些奇怪，但在C语言中有一种用于此确切目的的“结构”。 首先让我们在COBOL中声明一个简单的布局，然后在C中进行相同的操作；

01 CUST-MAST
   03 CM-NUMBER  PIC X( 06 ).
   03 CM-NAME    PIC X( 30 ).
   03 CM-AMT-OWE PIC S9( 9 ) COMP.
   03 CM-YTD-BAL PIC S9( 9 ) COMP OCCURS 12.
   03 CM-PHONE   PIC X( 10 ).
struct customer_master {
       char cm_number[ 7 ];
       char cm_name[ 31 ];
       long cm_amt_owe;
       long cm_ytd_bal[ 12 ];
       char cm_phone[ 10 ];
       };
struct customer_master cust_mast;

“ struct”动词声明您所关注的记录类型的模板，一旦声明了模板，您就可以声明一个属于该结构类型的变量。 所以这行：struct customer_master cust_mast声明变量'cust_mast'为'customer_master'类型。 然后，您可以通过指定变量名称点成员（即cust_mast.cm_name）来引用结构的成员。如果您打算将结构复用用于其他目的，这将特别方便。 这里的缺点是没有一种简便的方法可以在不单独寻址每个成员的情况下初始化结构内部的变量。 COBOL具有非常方便的INITIALIZE动词来执行此操作，但是您可以在C中编写一个通用的初始化函数，该函数可以实现相同的目的。 如果不想重复使用结构，则可以在声明的同时命名结构。 在}之后和之前； 只需输入您希望它具有的任何旧变量名即可。 工作存储部分中使用的最后一个常用动词是REDEFINES。 C版本是“联合”动词。 重定义对于使用字母或数字变量非常方便。 由于字节引用是在COBOL-85中引入的，因此您几乎再也看不到用于获取变量中各个子字符串的REDEFINE语句。 现在让我们看一下如何声明一个REDEFINE和一个“ union”。

01 CUST-MASTER
   03 CM-DAYS-LATE PIC XXX.
   03 CM-DL-REDEFINE REDEFINES CM-DAYS-LATE.
      05 CM-DL-NUM PIC 999.
union redef {
      char days_late[ 4 ];
      int dl_num;
      };
union redef days_late_test;

联合的设置和使用与结构非常相似，您甚至可以将联合放入结构中，无论如何，您通常都希望在该结构中使用联合。 我们将'days_late'的字符数组设置为4，因为我们必须记住要考虑空字符。 如果愿意的话，您可以用工会做各种奇怪的事情，但这实际上是我要讲的。

我想谈谈的另一种类型是枚举类型。 通过使用“ enum”关键字，我们可以创建一个新的“类型”并指定其可能具有的值。 （实际上，“枚举”是类型“ int”，因此我们确实为现有类型创建了一个新名称。）枚举类型的目的是帮助使程序更具可读性，例如COBOL 88级别。 语法类似于用于结构的语法。

enum ranges {min = 10, max = 100, mid = 55};
enum ranges tester;
tester = mid;
if (tester > min)

if语句将是正确的，因为tester的值为55。我建议，如果您想使用枚举类型，则在它们上面读取的内容要比我在这里所涉及的要多得多。

关于变量声明，我要说的最后一点是，与COBOL相比，C几乎没有应用编辑掩码的功能。 这使得它成为编写报告的一种不太方便的语言，并且在其中广泛使用日期和美元编辑掩码的情况下。

操作员

首先让我们看一下C中=和==之间的区别。在COBOL中，有几种方法可以将数据获取到变量中。 一种常见的方式是MOVE动词，C中的等价词=。 这是令人困惑的，因为如果您设置逻辑测试并使用=，则它将始终评估为true，因为等号右侧的值将分配给左侧的变量。 如果要比较值，则需要使用==。 这是一个简单的错误，可能导致各种问题。 如果在CI中要说

if(my_int = 5)

将会发生的是，将为变量“ my_int”分配值5，并且由于分配成功进行，因此它将返回一个非零值，该值表示true。 这将使'if'语句评估为true。 因此，这个“如果”陈述将永远是正确的。 简单的错误，重大的影响以及编译器不会抱怨它，因为它是有效的语句。 确保您尽早了解=和==之间的区别，并且永远不要忘记它。

我们的下一个布尔运算符是“ AND”。 COBOL使在IF语句中比较多个值变得非常容易。

IF (VAR1 = VAL1) AND (VAR2 = VAL2 OR VAL3) THEN

“ AND”的C表示形式为“ &&”，“ OR”为“ ||”，“ NOT EQUAL”由“！=”标识。

这些都不是特别难于学习的，但是当他们第一次学习该语言时，它们都不如直观。

发挥创造力，您可以利用#define来使操作员随心所欲。

#define AND &&
#define OR ||
#define NOT !=
#define EQUALS ==

现在，这可能会打扰其他C程序员，但是如果它可以帮助您提高代码的可读性和易维护性，谁会说这是错误的？

转让经营者

由于我已经讨论过C中的=符号等效于COBOL MOVE动词，因此不再赘述。 但是，在C中使用=符号的另一种选择是使用字符串函数'strcpy'。 这会执行“字符串复制”到变量中。 这是初始化字符数组并确保正确放置null的好方法（strcpy将null附加到复制的字符串的末尾），特别是如果您以后要向字符串附加数据。 C中用于附加字符串的动词是“字符串连接”的“ strcat”。 在COBOL中，我们有“ STRING”动词，它使您可以更好地控制变量的连接方式。 'strcat'所做的所有工作就是将一个字符复制到另一个字符数组中，直到它从一个终止的null开始到另一个字符数组为止。 现在您可以看到为什么在正确的位置放置null如此重要。

我绝对喜欢C中的几个非常酷的增量运算符快捷方式。 例如，在COBOL中，如果您想在循环中递增变量，则可以通过两种方法来实现：

ADD 1 TO KOUNT
COMPUTE KOUNT = KOUNT + 1
ADD 1 TO KOUNT GIVING KOUNT
PERFORM VARYING KOUNT FROM 1 BY 1 UNTIL KOUNT >= MAX

在C语言中，您可以说以下内容；

kount = kount + 1
kount += 1
kount ++
for (kount = 1; kount >= max; kount++)

第一个示例应该是显而易见的，在第二个示例中+ =是第一个示例的快捷方式，这意味着在右侧的计算中将=号左侧的变量包括在内。 第三个示例意味着将值增加1。我们的前两个示例在加法中可以具有任何值，但是第三个示例仅增加1。 最后一个示例与最后一个COBOL示例相同。 有趣的是最后一个参数“ kount ++”，通过将++放在变量的右边，我们说在测试变量是否大于或等于“ max”后增加变量。 如果将++放在左侧（如“ ++ kount”中一样），则意味着在进行测试之前先递增。 这与PERFORM指令“先测试后”或“后测试”相同。 -符号可用于以完全相同的方式递减，即=或–。

逻辑结构

希望这里的每个人都熟悉COBOL PERFORM语句。 它具有比我想了解的更多的变化，但这是它唯一的循环构造，除非您使用GO TO计数。 C提供了几种不同的循环控件。

while
do..while
for

现在，COBOL将“ while”和“ for”循环的功能很好地整合到了PERFORM中。 但是，“ do..while”循环并不完全相同，您可以通过正确控制变量来模拟它。 从本质上讲，“ while”和“ do..while”之间的区别是在“ do..while”循环中，它将至少“执行”一次循环，因为测试直到循环结束后才进行执行一次。 在“ while”循环中，您的测试在第一次执行时可能无效，因此您可能永远不会真正通过循环。

int i =21 ;
while (i++ < 20 ) {
      printf ("% d \ n ", i );
}
/* the above line will display nothing since i is already greater than 20 */
do
{
   printf ("% d \ n ", i );
} while ( i ++ < 20 );
/* the above line will display 21 */

让我们谈谈'if'语句，这是一个字符串比较操作如何令人困惑的示例。 在COBOL中，以下语句非常简单

IF STRING1 IS EQUAL TO STRING2 or IF STRING1 = STRING2

您无法在C中以这种方式比较字符串。在'string.h'头文件中有一个函数可以比较两个字符串，但是，要获得相同的结果，必须使用以下措辞；

if (!strncmp(string1,string2)) {

让我解释一下，首先是“ strncmp”是一个字符串比较函数，如果string1小于string2，那么将返回一个小于零的值（类似于在COBOL中使用条件代码）。 如果string1等于string2，则返回零值。 如果string1大于string2，则返回大于零的值。 问题是，如果在IF语句中使用strncmp且字符串相等，则返回零，零表示IF语句为假，这就是我们在'strncmp'前面加'！'的原因。 这意味着不是。 如果string1和string2相等，则最终结果是返回非零值（对于IF语句为TRUE）。 这也进一步说明了如何将逻辑表达式嵌入“ if”语句中。

输入/输出

C语言完全没有任何I / O设施，这是很幸运的。 那么，您如何执行任何类型的终端或文件I / O？ 幸运的是，在C语言编程的黑暗年代，有人写了Standard I / O标头文件。 因此，如果要执行任何I / O，则必须包含<stdio.h>。 我将讨论stdio中包含的一些更基本的功能。

stdio中最常用的功能是“ printf”和“ scanf”。 “ printf”用于向STDLIST显示信息，“ scanf”用于从STDIN读取信息。 这两个功能在其用法中都具有广泛的格式化功能。 COBOL很不错，因为您可以使用DISPLAY和ACCEPT来读取或写入几乎任何所需的内容。 但是，您不能在语句本身中进行类型转换或变量格式化，因此必须首先在工作存储中声明一个格式化变量。 尽管C几乎没有声明格式化变量的功能，但是它确实为您提供了对格式化输出的广泛控制。 一个简单的示例将显示一个具有两个小数点的整数。

01 EDIT-INT PIC ZZ9.99
01 MY-INT PIC S9(3)V99.
MOVE MY-INT TO EDIT-INT.
DISLAY EDIT-INT.

浮动my_int;
printf（“％3.2f \ n”，my_int）;

如您所见，如果使用C语言进行格式化，则较不直观。 “ printf”的工作方式是在第一个参数（即引号内的部分）中使用文字和/或格式字符串。 然后将变量替换作为第二个参数。 然后\ n表示在这一点上换行。 这是嵌入文本的示例；

printf("I have %d apples and %d oranges",count_apple, count_orange);

这会将“ count_apple”替换为第一个参数，并将“ count_orange”替换为第二个参数。 “ printf”中几乎有十二种不同的格式化程序。

“ printf”的另一个有趣的功能是它具有类型转换的能力，在这个例子中，您需要知道％d表示打印一个整数，％c表示打印一个字符。

printf("%c %d\n", 'A', 'A');

您认为这将产生什么结果？ 您可能错了，您会看到“ A 65”，因为通过为字母字符“ A”指定％d会将其格式化为“ A”的十进制ASCII码（即65）。

与“ printf（）”类似，“ scanf（）”使用控制字符串，后跟参数列表。 主要区别在于参数列表。 Printf（）使用变量名称，常量和表达式。 Scanf（）使用指向变量的指针。 幸运的是，使用该函数我们无需了解任何有关指针的知识。 只要记住以下两个规则：

1.如果要读取基本变量类型的值，请在变量名称前加上＆。
2.如果要读取字符串变量，请不要使用＆。

这是显示输出并提示输入的简短示例：

main()
{
int age;
float assets;
char pet[30];
printf("enter your age, assets, and favorite pet.\n");
scanf("%d %f", &age, &assets);
scanf("%s", pet); /* no & for char array */
printf("%d $%.0f %s\n ", age, assets, pet);
}

如果要运行它将看起来像这样。

输入您的年龄，资产和喜爱的宠物。
32
10507.32
戊quin
32 $ 10507企鹅

有趣的一点是，scanf（）一次可以读取多个变量，这与COBOL ACCEPT动词不同。 关于printf（）的最后一点，以下2条语句工作相同：

printf("Enter your option ");
DISPLAY "Enter your option " NO ADVANCING.

正如我前面提到的，C是针对单个字符而不是字符串的。 因此，stdio中有一整套的功能，旨在读取和写入单个字符。 由于COBOL很少关心您要使用的数组大小，因此我不打算赘述，只记得这四个函数的名称即可。

getchar
putchar
getc
putc

在开始展示一些小程序外壳程序之前，我将仅介绍另外两个COBOL动词比较。 我最喜欢的两个动词是STRING和UNSTRING，它们用于连接变量和文字，并根据用户定义的标记解析字符串。 通常，它们非常易于使用，而C语言却不是。 我将只运行COBOL示例，然后在C中显示完全相同的代码。

01 FULL-NAME.
   03 FN-FILE    PIC X( 08 ) VALUE "MYFILE" .
   03 FN-GROUP   PIC X( 08 ) VALUE "MYGROUP" .
   03 FN-ACCOUNT PIC X( 08 ) VALUE "MYACCT" .
01 WS-FULL-NAME  PIC X( 26 ) VALUE SPACES.
PROCEDURE DIVISION.
 A1000-START. DISPLAY FULL-NAME. 
* displays "MYFILE MYGROUP MYACCT" 
 STRING FN-FILE DELIMITED BY SPACES 
        "." DELIMITED BY SIZE 
        FN-GROUP DELIMITED BY SPACES  
        "." DELIMITED BY SIZE 
        FN-ACCT DELIMITED BY SPACES 
   INTO WS-FULL-NAME. DISPLAY WS-FULL-NAME. 
* displays "MYFILE.MYGROUP.MYACCT" 
MOVE SPACES TO FULL-NAME. 
UNSTRING WS-FULL-NAME DELIMITED BY "." 
    INTO FN-FILE FN-GROUP FN-ACCT. 
DISPLAY FULL-NAME. 
* displays "MYFILE MYGROUP MYACCT" 
#include <stdio> 
#include <string> 
main() 
{ 
char ws_full_name[ 27 ]; 
struct full_file_name { 
       char file[ 9 ]; 
       char group[ 9 ]; 
       char acct[ 9 ]; 
} fn; 
strcpy(fn.file, "MYFILE" ); 
strcpy(fn.group, "MYGROUP" ); 
strcpy(fn.acct, "MYACCT" ); 
strcpy(ws_full_name,fn_file); 
strcat(ws_full_name, "." ); 
strcat(ws_full_name,fn_group); 
strcat(ws_full_name, "." ); 
strcat(ws_full_name,fn_acct); 
printf( "%s\n" ,ws_full_name); 
/* displays "MYFILE.MYGROUP.MYACCT" */

您知道，我不打算展示与UNSTRING相当的东西，如果您刚开始使用C的话，那就太令人困惑了。该函数称为“ strtok”，它要求您使用指向字符串的指针，并且因为我根本没有真正了解指针，所以我不想混淆这个问题。 但是请记住，您必须了解C中的指针是如何工作的，否则您将永远无法有效地使用该语言。 只是对指针的完整讨论超出了本文的范围。

无论如何，在我们的C示例中，我们使用了'strcpy'命令将字符串复制到变量中。 该函数还添加了空终止符，并从本质上初始化了字符数组。 使用“ strcat”函数，将第二个参数中的字符串连接到第一个参数中命名的变量。 它寻找空终止符，然后开始将字符串写入其中。

如您所见，用C处理字符串比使用COBOL更加困难和and回。 现在不要误解，我认为C在某些方面很有用，只是如果您在编码标准业务类型应用程序，则不需要很多。

代码骨架

好的，那么您要做什么用C编写程序？ 如您所知，COBOL必须使用四个分区。

IDENTIFICATION DIVISION
ENVIRONMENT DIVISION
DATA DIVISION
PROCEDURE DIVISION

每个方面都有其自己的目的，即所描述的内容。 在C语言中，一切都基于函数。 如您在前面的示例中所见，我在程序顶部有“ main（）”。 您可以将main（）视为PROCEDURE DIVISION。 就像C程序中的其他所有功能一样，它是一个函数，通常它是您必须拥有的唯一函数。 我之所以这样说，通常是因为如果您要编写将要进入RBM的一系列子例程，则无需命名函数main（）。

因此，要用C编写经典的“ Hello World”程序，这就是您需要做的所有事情。

#include <stdio.h>
main();
{
printf("Hello World\n");
}

这比在COBOL下所需的代码少得多，但仍然比您在BASIC中要做的要多。 我在这里看到的问题是，仅对于一个printf（）语句就必须执行stdio.h的包含，这将导致您的程序对于某些琐碎的事情而言相当大。

编码的便携性或速度

您会听到许多关于可移植C的知识，以及如何编码可移植性。 平台之间的变化是如此之多，以至于为可移植性编写代码确实很繁琐。 我知道有很多工具包可以帮助解决这个问题，例如Qt，但是我们在这里只是在讨论原始代码。

如果您编码以利用CPU的本机体系结构，则将看到速度大大提高，代码大小减小了。 如果使用本机语言构建可移植性代码，则您的程序将更大，更慢。 如果您希望两全其美，则需要编写自己的中间包含文件，以允许您在体系结构之间进行切换。

摘要

那么我从这一切中得出什么结论呢？ 在告诉您之前，让我告诉您我读过的一封信，该信是某人发给《计算机语言》杂志的。 这位先生很生气，因为他们不愿意将COBOL包括在他们的杂志中，如果他们打算这样做，那么他们也应该包括RPG，因为他们都不是真正的语言。 他使用真实语言的标准几乎由您在C中可以完成的一些事情构成，而您在C中无法做到。 例如使用指针和声明局部变量。 那么，为什么这位先生喜欢那么多没有内置I / O功能的语言，并且将字符串作为字节数组来处理？

现在，这一定是我见过的更精明的陈述之一。 COBOL是用于业务应用程序的最受欢迎的语言之一，尽管我不喜欢RPG，但IBM确保它也保持了庞大的安装基础。 那么，为什么我要提这个呢？ 因为正如我在揭幕战中所说的那样，那里仍然有大量的COBOL，而且它可能正在管理您的薪水和投资，所以不要太快打折。

翻译自: https://hackernoon.com/c-from-a-cobol-perspective-444dc30554d6

c 调用 cobol