示例:C 程序调用 COBOL 程序

下面的示例展示了如何编写由 C 程序调用的 COBOL 程序。

COBOL 程序 tprog1 由程序 MyFun 中的 C 函数 MyFunD 调用 (参见示例:被 COBOL 调用和调用 COBOL C 程序。 被调用的 COBOL 程序包含以下源代码:



*
 IDENTIFICATION DIVISION.
 PROGRAM-ID. TPROG1.
*
 DATA DIVISION.
 LINKAGE SECTION.
*
 01 X                USAGE COMP-2.
*
 PROCEDURE DIVISION USING X.
     DISPLAY "TPROG1 got x= " X
     GOBACK.