示例: 编译和运行示例的结果

本例演示了如何编译、链接和运行 COBOL 程序 cobcallc.cbl 和 tprog.cbl 以及 C 程序 MyFun.c，并显示了运行这些程序的结果。

通过发出以下命令来编译和链接 cobcallc.cbl， tprog.cbl和 MyFun.c:

1. gcc -m32 -c MyFun.c
2. cob2 cobcallc.cbl MyFun.o tprog1.cbl -o cobcallc

通过发出命令 cobcallc来运行程序。 结果如下:

call MyFun with n4=00123 ns4=-00567 n9=0098765432
            ns9=-0013579456 ns18=.22222000000000000E 03
MyFun got s1=123 s2=-567 k1=98765432 k2=-13579456 x=444.440000
n4=01024 and ns9= n4 times n4= 0001048576
TPROG1 got x=  .11223344000000000E 04
d1=-.35792568025000000E 09 and d2= 2.0 times d2= -.71585136050000000E 09
MyFunV got 11111 22222 33333