関数

パブリック・カタログ API で使用できる関数について説明します。

mfpubcat.cpy コピーブックには、API 関数の呼び出しに使用できる、78 レベルのフィールドが複数含まれています。これらは、コピーブック自体 (functions というラベルの付いたセクション) に記述されています。各フィールドの名前が、その関数の説明になっています。

次に、mfpubcat.cpy のリストの一部を示します。

...
      *=================================================================
      *    functions
      *=================================================================

           03  ()-FUNC                       PIC X(4).
                78  78-CAT-FUNC-ALLC         VALUE 'ALLC'.
                78  78-CAT-FUNC-DLET         VALUE 'DLET'.
                78  78-CAT-FUNC-GU           VALUE 'GU  '.
...

COBOL プログラムから関数を呼び出すには、これらのフィールドのいずれか 1 つにある値を、mfpubcat.cpy で定義されている 03 ()-FUNC フィールドに移動します。例えば、プログラムに mfpubcat.cpy をインクルードした場合、() を WS に置き換えて、次のように記述します。

move 78-CAT-FUNC-GU to WS-FUNC