COBOL call C function

COBOL调用C函数示例
最新推荐文章于 2024-05-21 10:11:11 发布
原创 最新推荐文章于 2024-05-21 10:11:11 发布 · 1.2k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一个具体的示例，展示了如何从COBOL程序中调用C语言函数，包括C函数定义、参数传递等内容。示例中包含了通过指针传递字符串、整数类型的数据以及空指针的使用。

Give a sample on how COBOL call C function.


Including:

1. C function definition

2. parameter passing, char * pointer, int, null pointer


1. Define C function (myfun.c)

void myfun(const unsigned char mapping[], unsigned char buffer[], unsigned int len)

{

     /* put your codes here*/

}


2. Compile C function into a shared library.

gcc -o myfun.so -shared -fpic myfun.c


3. COBOL caller codes


...

WORKING-STORAGE SECTION.

       01 PARAM1     PIC X(4) VALUES 'AAAA'.

       01 PARAM2     PIC X(4) VALUES 'BBBB'.

       01 PARAM3     PIC 9(4) COMP-5.

       ...

PROCEDURE DIVISION.


       MOVE 4 TO PARAM3.


       MOVE "ABCD" TO PARAM2.

       CALL 'myfun'  USING PARAM1

                                             PARAM2

                        BY VALUE PARAM3.


       MOVE "abcd" TO PARAM2.

       CALL 'myfun'  USING BY VALUE 0     *> pass null pointer

                         BY REFERENCE PARAM2

                         BY VALUE 4.


           STOP RUN.

           EXIT.

cobol和java_现代化历险：策略+将COBOL转换为Java的示例
最佳 Java 编程
06-29 2046
cobol和java 在Keyhole Software，我们在很大程度上是一家现代化公司。 我们有一些顾问，专门研究将旧的代码迁移到新的，翻新的残旧代码库，并为大多数已经被供应商锁定的企业设计更光明的未来。 作为这些经验的一个有趣的副作用，我们遇到了一些重复的模式和策略，以了解如何实现遗留系统的现代化。 在此博客中，我们将介绍一种看起来非常流行的策略，即Re-Platforming ...
精通cobol－－9.10.4 统计计算小结
COBOL
04-28 1135
　　通过前面的例子可以看到，对表中数据进行统计计算的代码主体结构基本相似。主要都是使用的COMPUTER语句中的FUNCTION子句完成的。其基本结构如下。COMPUTER required-data=           FUNCTION option (data (ALL)).其中“required-data”表示要计算的统计数据类型，如总和，平均数或是中位数。“option”
cobol 中call的功能测试总结
gchqf的专栏
03-31 3690
cobol中 call的功能类似于c众的函数调用，其调用方式有以下三种：                  （1）  by  reference                    （2） by    content                  （3） by  value其中by reference 和by value  可以改变主函数的所传参数的值，而by  conten
常用COBOL函数
weixin_34392843的博客
01-03 2783
本文来自（http://refer.it-manual.com/cobol.html） 　COBOL関数（JIS-COBOL規格標準）の一覧表を掲載しています。 COBOL関数一覧表は、各項目での並べ替えが可能です。 一般的なCOBOL関数（FUNCTION　関数名(引数)という書式）を掲載しています。 　使用例の引数「WK-VALUE」は単独値、「WK-TABLE」は値リストを意味します。...
oracle function cobol,COBOL字符串的操作（四）-字符串的转换FUNCTION语句
weixin_29539039的博客
04-05 1134
字符串的转换是以原字符串的字符为基础进行的格式上的转换，并不对原字符进行替换。主要有两种转换方式：一种是对于由字母组成的字符串中字母大小写的转换方式；另一种是将由数字组成的字符串转换为具体数值。1.FUNCTION 语句实现字符串中字母大小写的转换。其关键之处是在该语句后加上LOWER-CASE,或者UPPER-CASE选项。下面的代码使用LOWER-CASE选项，将字符串中的字母全部转换为小写格...
COBOL动态与静态调用
Simon's Tech Book
04-06 4144
转自http://www.mainframer.cn/tech.mrqa?action=view&id=2965
COBOL子程序调用
张铖@南通
12-16 3649
内部子程序    IDENTIFICATION DIVISION.    PROGRAM-ID. PROC-A.    ENVIRONMENT DIVISION.    ...    DATA DIVISION.    ...    PROCEDURE DIVISION.    ...       IDENTIFICATION DIVISION.       PROGRAM-ID. PROC-B.
cobol 语法 各关键字 介绍
02-16
Cobol（Common Business Oriented Language）是一种古老但仍然广泛使用的编程语言，尤其在金融、保险和政府领域。它的设计初衷是为了处理商业数据处理任务，因此其语法和结构非常适合处理大量结构化的数据。 1. **...
cobol经典教程
08-22
- **字符串**：通过使用PIC (Picture) X(n)定义，提供SUBSTRING和MOVE FUNCTION进行操作。 5. **报表生成** - **格式化输出**：使用REPORT编写报表结构，包括页眉、页脚、行和列的布局。 - **计算与总计**：内置...
cobol for os390
06-26
COBOL提供了许多内建函数来处理字符串，如`FUNCTION LEFT`、`FUNCTION RIGHT`等。 #### 八、程序流程控制 控制程序的执行流程对于编写高效程序至关重要。 ##### 8.1 编码决策结构 使用`IF`、`EVALUATE`等语句来...
THINKING IN COBOL
11-24
- **FUNCTION**：内置函数，如字符串处理、数学运算等。 - **CALL**：调用子程序或外部程序。 **文件操作与数据库：** - **OPEN/CLOSE**：文件操作的基本指令。 - **READ/WRITE**：读写文件数据。 - 数据库操作...
COBOL介绍及常用命令
05-29
介绍了COBOL的发展及概括，对COBOL常用命令进行了细致的说明。
cobol 字符串处理
01-17
cobol关于字符串 常见处理 function length max min，inspect，length of
c 调用 cobol_从COBOL角度看C
编程故事的地方
09-17 1391
c 调用 cobol 我最初是在1986年为一家印刷杂志写这篇文章的。我23岁，从事COBOL已有四年，最初是在打Kong卡上做的。 我开始听有关C的知识并将其教给自己，然后将一些COBOL重写为C（请注意，C是COBOL的可怕替代品），我将此内容作为其他COBOL程序员入门的入门，以了解C。大约10年前更新了该介绍的博客文章，但在过去的两周中，我最终与六位​​不了解COBOL的人分享了该介绍，...
cobol - 字符串操作
大道至简
05-02 2668
STRING 用来分割字符串 UNSTRING
精通cobol－－9.10.3 计算中位数
COBOL
04-28 1251
　　所谓中位数，就是一列数据从小到大排列正中间的数据。对于一列数据中的中位数而言，比它大的数和比它小的数应该是一样多的。这里，若要求取该生所有考试成绩的中位数，仍然可以分两种方法进行。一种是不使用FUNCTION子句，另一种是使用FUNCTION子句。对于不使用FUNCTION子句的方法而言，涉及到较复杂的算法设计，此处不加讨论。下面，只看使用FUNCTION子句如何完成操作。若使用F
COBOL语言基础总结
linmeng022的博客
05-21 5944
如果自行车的某个零件坏了，可以在五金商店买到相同规格的零件更换，恢复自行车的功能。程序中没有用到外部文件，文件节是可以省略的，但是工作存储节都是会存在的。作用：程序中涉及到的全部数据(输入，输出，中间)都要在此定义，对它们的属性进行说明。子程序概述：PERFORM语句只能在同一程序中多次调用某一语句序列，如果被调用部分较复杂或需要被其他程序使用时，可以将其编写为单独的一个程序，即子程序，调用子程序的为主程序。至于VSAM文件的创建，复制，删除等操作是通过JCL中的IDCAMS实用程序实现的。
精通cobol－－9.10.2 计算平均数
COBOL
04-28 1119
　　仍然是针对上面的学生成绩表，这次要求取该生各门功课的平均成绩。依然分两种情况进行讨论，即不使用FUNCTION子句的情况和使用该语句的情况。若不使用FUNCTION子句，仍然可以直接进行计算，代码如下。COMPUTE  AVERAGE-MARK  =（ MARK  (1) + MARK  (2)  + MARK  (3)  +MARK  (4) + MARK  (5)  + M
cobol function trim
最新发布
08-13
在 COBOL 编程语言中，去除字符串的前导空格和后缀空格可以通过多种方法实现。COBOL 本身并没有提供一个直接的 `TRIM` 函数，但可以通过内置的函数或逻辑来达到类似的效果。 ### 使用 `FUNCTION TRIM` 去除空格 COBOL 提供了 `FUNCTION TRIM` 来去除字符串末尾的空格。例如： ```cobol IDENTIFICATION DIVISION. PROGRAM-ID. TRIM-EXAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 INPUT-STRING PIC X(50) VALUE " Hello World ". 01 TRIMMED-STRING PIC X(50). PROCEDURE DIVISION. MOVE FUNCTION TRIM(INPUT-STRING) TO TRIMMED-STRING DISPLAY "TRIMMED STRING: " TRIMMED-STRING STOP RUN. ``` 上述代码中的 `FUNCTION TRIM` 会移除字符串末尾的空格，但不会处理字符串前面的空格[^5]。 ### 去除前导和后缀空格 为了去除字符串前导和后缀空格，可以结合 `FUNCTION TRIM` 和 `INSPECT` 语句。例如： ```cobol IDENTIFICATION DIVISION. PROGRAM-ID. TRIM-LEADING-TRAILING. DATA DIVISION. WORKING-STORAGE SECTION. 01 INPUT-STRING PIC X(50) VALUE " Hello World ". 01 TEMP-STRING PIC X(50). 01 TRIMMED-STRING PIC X(50). PROCEDURE DIVISION. MOVE INPUT-STRING TO TEMP-STRING INSPECT TEMP-STRING LEADING SPACE OMITTING SPACE INTO TRIMMED-STRING DISPLAY "TRIMMED STRING: " TRIMMED-STRING STOP RUN. ``` 上述代码中的 `INSPECT ... LEADING SPACE` 用于去除字符串前导的空格，而 `FUNCTION TRIM` 可以用于去除后缀空格。 ### 使用 `UNSTRING` 和 `STRING` 去除空格 另一种方法是通过 `UNSTRING` 和 `STRING` 组合来去除空格。这种方法通过分割字符串并重新组合来去除多余的空格。例如： ```cobol IDENTIFICATION DIVISION. PROGRAM-ID. REMOVE-SPACES. DATA DIVISION. WORKING-STORAGE SECTION. 01 INPUT-STRING PIC X(50) VALUE " Hello World ". 01 WORD PIC X(50). 01 OUTPUT-STRING PIC X(50) VALUE SPACES. PROCEDURE DIVISION. UNSTRING INPUT-STRING DELIMITED BY SPACE INTO WORD STRING WORD DELIMITED BY SIZE INTO OUTPUT-STRING DISPLAY "OUTPUT STRING: " OUTPUT-STRING STOP RUN. ``` 此方法通过 `UNSTRING` 分割字符串并忽略空格，然后通过 `STRING` 重新组合字符串[^2]。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值