常用COBOL函数

最新推荐文章于 2024-05-21 10:11:11 发布
最新推荐文章于 2024-05-21 10:11:11 发布
阅读量2.5k 收藏 17
点赞数 3
原文链接：http://www.cnblogs.com/nliao/p/6245348.html
版权

本文来自（http://refer.it-manual.com/cobol.html）

　COBOL関数（JIS-COBOL規格標準）の一覧表を掲載しています。 COBOL関数一覧表は、各項目での並べ替えが可能です。 一般的なCOBOL関数（FUNCTION　関数名(引数)という書式）を掲載しています。

　使用例の引数「WK-VALUE」は単独値、「WK-TABLE」は値リストを意味します。 引数が値リストの場合は、「SUM(1 2 3 4 5 6)」の様に、値を半角スペースで区切って指定することも可能です。 使用例は便宜上1行で記載していますが、実際のソースコードには、対応する領域に記載する必要があります。

 

 

関数戻り値使用例備考
LENGTH(引数)データ項目の大きさCOMPUTE WK-AFTER = FUNCTION LENGTH(WK-VALUE).戻り値は整数
データ型により結果が異なる
MAX(引数)値リストの最大値COMPUTE WK-AFTER = FUNCTION MAX(WK-TABLE(ALL)).戻り値の型は、引数により決定
MIN(引数)値リストの最小値COMPUTE WK-AFTER = FUNCTION MIN(WK-TABLE(ALL)).戻り値の型は、引数により決定
ORD-MAX(引数)値リストの最大値の要素番号（整数）COMPUTE WK-AFTER = FUNCTION ORD-MAX(WK-TABLE(ALL)).対象が複数の場合は、最初の要素番号を返す
ORD-MIN(引数)値リストの最小値の要素番号（整数）COMPUTE WK-AFTER = FUNCTION ORD-MIN(WK-TABLE(ALL)).対象が複数の場合は、最初の要素番号を返す
SUM(引数)値リストの合計値COMPUTE WK-AFTER = FUNCTION SUM(WK-TABLE(ALL)).引数は数値型
MEAN(引数)値リストの平均値COMPUTE WK-AFTER = FUNCTION MEAN(WK-TABLE(ALL)).戻り値は小数を含む数値型
MEDIAN(引数)値リストの中間値COMPUTE WK-AFTER = FUNCTION MEDIAN(WK-TABLE(ALL)).戻り値は小数を含む数値型
MIDRANGE（引数）値リストの最大・最小の平均値COMPUTE WK-AFTER = FUNCTION MIDRANGE(WK-TABLE(ALL)).戻り値は小数を含む数値型
RANGE(引数)値リストの最大から最小を減算した値COMPUTE WK-AFTER = FUNCTION RANGE(WK-TABLE(ALL)).戻り値は小数を含む数値型
SQRT(引数)値の平方根COMPUTE WK-AFTER = FUNCTION SQRT(WK-VALUE).引数は0以上の数値
FACTORIAL(引数)値の階乗（整数）COMPUTE WK-AFTER = FUNCTION FACTORIAL(WK-VALUE).引数は0以上の整数
LOG(引数)値の対数COMPUTE WK-AFTER = FUNCTION LOG(WK-VALUE).底をeとした場合の対数
LOG10(引数)値の対数COMPUTE WK-AFTER = FUNCTION LOG10(WK-VALUE).底を10とした場合の対数
COS(引数)値の余弦COMPUTE WK-AFTER = FUNCTION COS(WK-VALUE).引数の単位はラジアン
ACOS(引数)値の逆余弦COMPUTE WK-AFTER = FUNCTION ACOS(WK-VALUE).戻り値の単位はラジアン
SIN(引数)値の正弦COMPUTE WK-AFTER = FUNCTION SIN(WK-VALUE).引数の単位はラジアン
ASIN(引数)値の逆正弦COMPUTE WK-AFTER = FUNCTION ASIN(WK-VALUE).戻り値の単位はラジアン
TAN(引数)値の正接COMPUTE WK-AFTER = FUNCTION TAN(WK-VALUE).引数の単位はラジアン
ATAN(引数)値の逆正接COMPUTE WK-AFTER = FUNCTION ATAN(WK-VALUE).戻り値の単位はラジアン
MOD(引数1 引数2)値のモジュローCOMPUTE WK-AFTER = FUNCTION MOD(WK-VALUE-1 WK-VALUE-2).引数1は被除数、引数2は除数
モジュローとは、被除数と除数で割り切れる被除数に最も近い値の差
REM(引数1 引数2)値の除算の余りCOMPUTE WK-AFTER = FUNCTION REM(WK-VALUE-1 WK-VALUE-2).引数1は被除数、引数2は除数
戻り値は小数を含む数値型
VARIANCE(引数)値リスト分散の近似値COMPUTE WK-AFTER = FUNCTION VARIANCE(WK-TABLE(ALL)).戻り値は小数を含む数値型
STANDARD-DEVIATION(引数)値リスト標準偏差の近似値COMPUTE WK-AFTER = FUNCTION STANDARD-DEVIATION(WK-TABLE(ALL)).戻り値は小数を含む数値型
INTEGER(引数)値を超えない整数COMPUTE WK-AFTER = FUNCTION INTEGER(WK-VALUE).戻り値は整数
INTEGER-PART(引数)値の整数部COMPUTE WK-AFTER = FUNCTION INTEGER-PART(WK-VALUE).戻り値は整数
RANDOM（引数）乱数COMPUTE WK-AFTER = FUNCTION RANDOM(WK-VALUE).戻り値は小数を含む数値型
引数は省略可
ANNUITY(引数1 引数2)均等払い額COMPUTE WK-AFTER = FUNCTION ANNUITY(WK-VALUE-1 WK-VALUE-2).引数1は利率、引数2は支払回数
戻り値は小数を含む数値型
NUMVAL(引数)変換された数値型COMPUTE WK-AFTER = FUNCTION NUMVAL(WK-VALUE).戻り値は小数を含む数値型
引数は英数字型の数値データを文字定数や英数字型でセット
NUMVAL-C(引数)変換された数値型COMPUTE WK-AFTER = FUNCTION NUMVAL-C(WK-VALUE).戻り値は小数を含む数値型
引数は数値編集形式の数値データを文字定数や英数字型でセット
REVERSE（引数）反転した文字列MOVE FUNCTION REVERSE(WK-VALUE) TO WK-AFTER.引数、戻り値は英数字型
CHAR(引数)文字コードに対応する文字MOVE FUNCTION CHAR(WK-VALUE) TO WK-AFTER.引数に指定する文字コードは実際のコード+1を指定
ORD（引数）文字の文字コードSUBSTRACT 1 FROM FUNCTION ORD(WK-VALUE) GIVING WK-AFTER.戻り値の文字コードは実際のコード-1を返す
NATIONAL(引数)変換された全角文字MOVE FUNCTION NATIONAL(WK-VALUE) TO WK-AFTER.引数は半角数値型、半角英数字型
CAST-ALPHANUMERIC(引数)変換された英数字型データ項目MOVE FUNCTION CAST-ALPHANUMERIC(WK-VALUE) TO WK-AFTER.戻り値を受け取るデータ項目の長さは、引数に指定した文字列の2倍
UPPER-CASE(引数)大文字に変換された文字列MOVE FUNCTION UPPER-CASE(WK-VALUE) TO WK-AFTER.戻り値は英数字型
LOWER-CASE(引数)小文字に変換された文字列MOVE FUNCTION LOWER-CASE(WK-VALUE) TO WK-AFTER.戻り値は英数字型
CURRENT-DATE現在日時MOVE FUNCTION CURRENT-DATE TO WK-AFTER.日時を21桁の情報として返す
DATE-OF-INTEGER(引数)通日をYYYYMMDD形式に変換した値COMPUTE WK-AFTER = FUNCTION DATE-OF-INTEGER(WK-VALUE).戻り値は整数
基準日は1601/01/01
INTEGER-OF-DATE(引数)YYYYMMDD形式を通日に変換した値COMPUTE WK-AFTER = FUNCTION INTEGER-OF-DATE(WK-VALUE).戻り値は整数
基準日は1601/01/01
DAY-OF-INTEGER(引数)通日を年日形式に変換した値COMPUTE WK-AFTER = FUNCTION DAY-OF-INTEGER(WK-VALUE).戻り値は整数
基準日は1601/01/01
INTEGER-OF-DAY(引数)年日形式を通日に変換した値COMPUTE WK-AFTER = FUNCTION INTEGER-OF-DAY(WK-VALUE).戻り値は整数
基準日は1601/01/01
WHEN-COMPILEDコンパイルされた日MOVE FUNCTION WHEN-COMPILED TO WK-AFTER.日時を21桁の情報として返す

转载于:https://www.cnblogs.com/nliao/p/6245348.html

weixin_34392843
关注
  • 3
    点赞
  • 踩
  • 17
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
oracle function cobol,COBOL字符串的操作（四）-字符串的转换FUNCTION语句
weixin_29539039的博客
04-05 958
字符串的转换是以原字符串的字符为基础进行的格式上的转换，并不对原字符进行替换。主要有两种转换方式：一种是对于由字母组成的字符串中字母大小写的转换方式；另一种是将由数字组成的字符串转换为具体数值。1.FUNCTION 语句实现字符串中字母大小写的转换。其关键之处是在该语句后加上LOWER-CASE,或者UPPER-CASE选项。下面的代码使用LOWER-CASE选项，将字符串中的字母全部转换为小写格...
cobol简易教程
10-01
mainframe，cobol，
COBOL介绍及常用命令
05-29
介绍了COBOL的发展及概括，对COBOL常用命令进行了细致的说明。
COBOL语言基础总结
最新发布
linmeng022的博客
05-21 1461
如果自行车的某个零件坏了，可以在五金商店买到相同规格的零件更换，恢复自行车的功能。程序中没有用到外部文件，文件节是可以省略的，但是工作存储节都是会存在的。作用：程序中涉及到的全部数据(输入，输出，中间)都要在此定义，对它们的属性进行说明。子程序概述：PERFORM语句只能在同一程序中多次调用某一语句序列，如果被调用部分较复杂或需要被其他程序使用时，可以将其编写为单独的一个程序，即子程序，调用子程序的为主程序。至于VSAM文件的创建，复制，删除等操作是通过JCL中的IDCAMS实用程序实现的。
COBOL call C function
程序员码工的专栏
10-19 1104
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 uns
cobol - 字符串操作
大道至简
05-02 2211
STRING 用来分割字符串 UNSTRING
mod函数详解
飘的梦客厅
10-12 8119
 我们知道，mod函数是一个求余函数，其格式为： mod(nExp1,nExp2)，即是两个数值表达式作除法运算后的余数。那么：两个同号整数求余与你所知的两个正数求余完全一样(即两个负整数与两个正整数的算法一样)。 一、两个异号整数求余 1.函数值符号规律(余数的符号) mod(负,正)=正 mod(正,负)=负 结论：两个整数求余时，其值的符号为除数的符号。 2.取值规律 先将两个整数看作是正数
COBOL.rar_AS400_cobol
09-21
"第五章 字符串及其操作.pdf"详细讨论了COBOL中的字符串处理，包括字符串赋值、字符串函数如INSPECT、REPLACE、TRIM等，这对于处理文本数据至关重要。 "第六章 基本运算.pdf"会涉及COBOL中的算术运算、比较运算和...
editplus COBOL 语法文件
10-22
1. `cobol.acp`：这个文件是EditPlus的自动完成文件，它包含了COBOL关键字、常用语句和函数的列表，当你在编辑COBOL代码时，可以提供自动补全功能，提高编码效率。当你输入部分关键字时，它会自动列出可能的完整...
《COBOL简易教程》
09-16
最后，教程还会对常用的COBOL语句进行总结，并简要介绍子程序的概念，包括调用和返回过程，这在大型程序设计中不可或缺。 通过这个简易教程，读者可以系统地学习到COBOL语言的基本要素，为编写商业应用打下坚实基础...
Linux GCC常用命令
08-18
【Linux GCC常用命令详解】 GCC，全称GNU Compiler Collection，最初是GNU的C语言编译器，但现在已发展成为一个强大的编译器集合，支持多种编程语言，如C、C++、Ada、Java、Objective-C、Pascal、COBOL以及Mercury...
cobol 字符串处理
01-17
cobol关于字符串 常见处理 function length max min，inspect，length of
精通cobol－－9.10.3 计算中位数
COBOL
04-28 1136
　　所谓中位数，就是一列数据从小到大排列正中间的数据。对于一列数据中的中位数而言，比它大的数和比它小的数应该是一样多的。这里，若要求取该生所有考试成绩的中位数，仍然可以分两种方法进行。一种是不使用FUNCTION子句，另一种是使用FUNCTION子句。对于不使用FUNCTION子句的方法而言，涉及到较复杂的算法设计，此处不加讨论。下面，只看使用FUNCTION子句如何完成操作。若使用F
精通cobol－－9.10.4 统计计算小结
COBOL
04-28 1012
　　通过前面的例子可以看到，对表中数据进行统计计算的代码主体结构基本相似。主要都是使用的COMPUTER语句中的FUNCTION子句完成的。其基本结构如下。COMPUTER required-data=           FUNCTION option (data (ALL)).其中“required-data”表示要计算的统计数据类型，如总和，平均数或是中位数。“option”
精通COBOL－－16.3.7 获取CICS的日期信息
COBOL
04-29 2381
　　获取CICS的日期信息同获取时间信息比较类似。日期信息也是依次通过CICS的命令ASKTIME和FORMATTIME得到的。不过在FORMATTIME中，需要指明获取的为日期信息，同时设置日期信息的相应输出格式。例如，以下程序将用于获取日期信息：IDENTIFICATION  DIVISION.PROGRAM-ID.  DATEPGM.* ENVIRONMENT  DIVI
精通cobol－－9.10.2 计算平均数
COBOL
04-28 1018
　　仍然是针对上面的学生成绩表，这次要求取该生各门功课的平均成绩。依然分两种情况进行讨论，即不使用FUNCTION子句的情况和使用该语句的情况。若不使用FUNCTION子句，仍然可以直接进行计算，代码如下。COMPUTE  AVERAGE-MARK  =（ MARK  (1) + MARK  (2)  + MARK  (3)  +MARK  (4) + MARK  (5)  + M
全角、半角字符相互转换
学无止境的专栏
09-24 689
C#版本： /// 转全角的函数(SBC case)         ///          /// 任意字符串         /// 全角字符串         ///         ///全角空格为12288，半角空格为32         ///其他字符半角(33-126)与全角(65281-65374)的对应关系是：均相差65248         ///            
内部函数
LB 的专栏
01-23 581
 
9型转x型 cobol_如何在COBOL中重新定义和执行PIC X子句的算术运算
weixin_39621044的博客
12-21 1408
你可以看一下内部函数NUMVAL。你需要有“好”的数据显示，截至NUMVAL，大型机上，无论如何，失败，如果给定的无效数据(文本是不是有效的“编辑”编号)COMPUTE X-TO-NUMERIC = FUNCTION NUMVAL (text-data)你可以这样定义：01 TEXT-NUMBER PIC X(10).01 EDITED-NUMBER REDEFINES TEXT-NUMBER P...
cobol function函数的用法
06-02
COBOL中的函数是一种可重复使用的代码块，用于执行特定任务并返回一个值。COBOL提供了许多内置函数，包括字符串操作、数学运算、日期和时间操作等等。以下是COBOL函数的一般用法： 1. 函数名称必须以关键字`FUNCTION`开始。 2. 函数可以有一个或多个参数，这些参数必须由逗号分隔，并放在括号中。 3. 函数可以返回一个值，该值由函数名定义的数据类型指定。 4. 函数必须以`END FUNCTION`结束。 例如，以下是一个将两个数字相加的函数： ``` FUNCTION ADD-TWO-NUMBERS USING NUM1, NUM2 COMPUTE RESULT = NUM1 + NUM2 RETURN RESULT END FUNCTION ``` 在上面的示例中，`ADD-TWO-NUMBERS`是函数的名称，`NUM1`和`NUM2`是函数的参数，`RESULT`是函数返回的结果。该函数将两个数字相加，并将结果存储在`RESULT`变量中，然后将该结果返回。 在COBOL程序中，可以通过以下语句调用该函数： ``` MOVE 10 TO NUM1 MOVE 20 TO NUM2 COMPUTE TOTAL = ADD-TWO-NUMBERS(NUM1, NUM2) ``` 在上面的示例中，`ADD-TWO-NUMBERS`函数使用`NUM1`和`NUM2`作为参数进行调用，并将结果存储在`TOTAL`变量中。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值