ユーザー定義関数の呼び出し

ユーザー定義関数は、組み込み関数を呼び出すことができるほとんどの場所で呼び出すことができます。

このタスクについて

FUNCTIONキーワードを指定せずにユーザー定義関数を呼び出すには、REPOSITORY段落に関数名を指定します。詳細については、Enterprise COBOL for z/OS®Language Referenceの REPOSITORY段落を参照のこと。

以下の例は、「docalc」というユーザー定義関数定義と、関数呼び出しを含むプログラムを含むコンパイル・グループを示しています。

   Identification division.
     Function-id. docalc.
   Data division.
    Linkage section.
     1 kind pic x(3).
     1 argA pic 999.
     1 argB pic v999.
     1 res pic 999v999.
   Procedure division
       using by reference kind argA argB
       returning res.
       if kind equal "add" then
         compute res = argA + argB
       end-if
       goback.
   End function docalc.
   Identification division.
     Program-id. 'mainprog'.
   Environment division.
    Configuration section.
     Repository.
        function docalc.
   Data division.
    Working-storage section.
     1 result pic 999v999 usage display.
   Procedure division.
       compute result = docalc("add" 10 0.23)
       display "hello from mainprog, result=" result
       goback.
   End program 'mainprog'.

このプログラムの実行後、出力は以下のようになります。

hello from mainprog, result=010230