一歩先を行くCOBOL言語のユーザ定義関数について｜応用ガイド

COBOL(コボル)言語のユーザ定義関数を使った関数の記述方法とは

応用-関数-イメージ

COBOL(コボル)言語におけるユーザ定義関数

COBOLでは組み込み関数を使用して、演算処理や表操作などを行うことができますが、COBOL2002で実装されたユーザ定義関数（利用者定義関数）ではユーザーが関数を定義して利用することが可能になりました。

ユーザ定義関数を使用するには関数名段落（FUNCTION-ID）を指定し、ユーザーが任意に関数を作成することができます。ユーザ定義関数を使用すれば、プログラムにおいて引数を指定して関数を呼出して、定められた処理を実行して結果を返す関数を繰り返し利用することができます。

以下はユーザ定義関数の使用イメージです。
応用-関数-使用例1
ユーザ定義関数の詳細については次項で解説いたします。

ユーザ定義関数の定義と使い方

ユーザ定義関数は以下のように定義します。

■ユーザ定義関数の書式
IDENTIFICATION DIVISION.
FUNCTION-ID ユーザ定義関数名1 [ AS 定数 ].
[ オプション段落 ]
[ 環境部 ]
[ データ部 ]
[ 手続き部 ]
END FUNCTION ユーザ定義関数名1
ユーザ定義関数の定義はプログラムの定義と似ていますが、PROGRAM-IDの記述がFUNCTION-IDになります。
また、手続き部（PROCEDURE DIVISION ）には関数の実行結果を返すための「RETURNING」を指定する必要があります。
PROCEDURE DIVISION [ USING BY VALUE又はREFERENCE] データ名-1 RETURNING データ名-2
関数終了時の「END FUNCTION」は省略できません。

■ユーザ定義関数の宣言
IDENTIFICATION DIVISION.
…
CONFIGURATION SECTION.
REPOSITORY.
FUNCTION ユーザ定義関数名1 [AS 定数].
ユーザ定義関数を使用するためには、リポジトリ段落（REPOSITORY）で指定したユーザ定義関数名を指定する必要があります。

■ユーザ定義関数の呼出し
ユーザ定義関数はRETURNINGで結果を返すため、以下のように計算式として使用することができます。

1)計算式で使用
応用-関数-使用例2

また、返り値の結果をそのまま条件式として使用することも可能です。

2)条件式で使用
応用-関数-使用例3

■ユーザ定義関数の記述例
ご紹介する記述例ではユーザ定義関数に渡された引数の値を条件式で精査し、値が0だったら1を返却し、それ以外の値だったら0を返却しています。

1)ユーザ定義関数の宣言

 IDENTIFICATION                DIVISION.
 PROGRAM-ID.                   FUNCTION_SAMPLE01.
 ENVIRONMENT                   DIVISION.
 CONFIGURATION                 SECTION.
 
*>----------------------------------------------------
*> 使用する関数の宣言
*>----------------------------------------------------
 REPOSITORY.
 FUNCTION FUNC.
 
 DATA                          DIVISION.
 WORKING-STORAGE               SECTION.
 
*>----------------------------------------------------
*> データ項目の定義
*>----------------------------------------------------
   01 NUM                      PIC 9.
   01 SUM                      PIC 9.
         
 PROCEDURE                     DIVISION.
 
   MOVE 10 TO NUM.
*>----------------------------------------------------
*> 関数の呼出し
*>----------------------------------------------------
   COMPUTE SUM = FUNCTION FUNC (NUM).
 
  ...省略...
  
END PROGRAM FUNCTION_SAMPLE01.

2)ユーザ定義関数の定義

 IDENTIFICATION                DIVISION.
 FUNCTION-ID.                  FUNC.
 DATA                          DIVISION.
 LINKAGE                       SECTION.
 
*>----------------------------------------------------
*> データ項目の定義
*>----------------------------------------------------
   01 NUM                      PIC 9.
   01 RET                      PIC 9.
 
*>----------------------------------------------------
*> 関数の処理
*>----------------------------------------------------
 PROCEDURE                     DIVISION 
                               USING BY VALUE NUM
                               RETURNING RET.
 
   IF NUM = 0 THEN
     COMPUTE RET = 1
   ELSE
     COMPUTE RET = 0
   END-IF.
   EXIT FUNCTION.
 
END FUNCTION FUNC.