CALL 文

一般規則

星印 (*) の付いている一般規則は CALL 文および CHAIN 文に共通である。これらの規則で「CALL 文または CHAIN 文」と指定されていた場合、それらの規則を CALL 文に適用する際には「CALL 文」として、CHAIN 文に適用する際には「CHAIN 文」として読む必要がある。

1. literal-1、または identifier-1 によって参照されるデータ項目の内容は、呼び出し先プログラム

    または呼び出し先手続きの名前である。

   CALL 文を含むプログラムは呼び出し元プログラムである。呼び出し先プログラムが COBOL プログラムである場合、literal-1、または identifier-1 によって参照されるデータ項目の内容はプログラム名であって、呼び出し先プログラムのプログラム名段落に記述されているものでなければならない (「プログラム名段落」を参照、特に大文字と小文字の区別について)。

    あるいは、literal-1、または identifier-1 によって参照されるデータ項目の内容はエントリ名であって、呼び出し先プログラムの ENTRY 文中に記述されているものでなければならない。しかも、呼び出し先プログラムはすでに呼び出されており、その後で取り消されていてはならない。別の方法として、呼び出し先プログラムの名前はそのプログラムの実行可能プログラム コードが収められているファイルを指す名前であってもよい。2 つの CALL 文の間でまたは CALL 文と CANCEL 文の間で同じファイルを指す別の名前を指定した場合にどのような結果になるかは、オペレーティング システムによって異なる。事前に呼び出されたプログラム、プログラム ファイル名、またはライブラリ ファイル内のプログラムと指定された名前の照合方法の詳細については、COBOL システムのドキュメントを参照。

    呼び出されるプログラムが COBOL プログラムではない場合のプログラム名または手続き名の構成に関する規則が、インターフェイスに関する COBOL システムのドキュメントに記載されている。

2.  procedure-pointer-1 によって参照されるデータ項目の内容は呼び出し先プログラムのアドレスであり、そのプログラムはすでにメモリにロードされていなければならない。呼び出されるプログラムが COBOL プログラムである場合は、呼び出し先プログラムのアドレスが当初に ENTRY 指定を伴う SET 文を用いて導出されており、その後でそのプログラムに対して CANCEL 文が実行されていてはならない。呼び出されるプログラムが COBOL プログラムではない場合は、呼び出し先プログラムのアドレスが当初に COBOL 以外のプログラムまたは手続きへの CALL を通じて導出されていなければならない。アドレスが NULL であるプログラムを CALL しようとすると、エラーとなる。
3. CALL 文が実行された際に、その対象のプログラムが実行可能な状態になると、そのプログラムに制御が移される。呼び出し先プログラムから制御が戻ると、ON OVERFLOW

    または ON EXCEPTION

   指定があっても無視され、制御は CALL 文の末尾に移される。

    あるいは、NOT ON EXCEPTION が指定されていると、制御は imperative-statement-2 に移される。制御が imperative-statement-2 に移されると、その imperative-statement-2 の中に指定されている各文に関する規則に従って、プログラムの実行が続けられる。制御の明示移行を引き起こす手続き分岐文または条件文が実行されると、その文に関する規則に従って制御が移される。これ以外の場合は、imperative-statement-2 の実行が終了すると制御は CALL 文の末尾に移される。

4. CALL 文が実行された際に、対象のプログラムがすでにメモリにロードされていると、そのプログラムは実行可能な状態にされる。そのプログラムがまだメモリにロードされていないと、そのプログラムを動的にロードする試みがなされる (インターフェイスに関する COBOL システムのドキュメントを参照)。対象のプログラムの所在を動的に把握でき、メモリに連続した十分な空き領域があると、そのプログラムは動的にロードされて実行可能な状態にされる。

   CALL 文に指定されたプログラムがメモリにロードされていないか、動的ロードに利用できないか、あるいは動的なロードに利用できるがメモリに十分な空き領域がない場合には、その時点ではそのプログラムを実行可能にすることはできない。その場合、次の 2 つのうちのどちらかの措置が取られる。

   1. CALL 文の中に ON OVERFLOW

       または ON EXCEPTION

      指定がある場合には、imperative-statement-1 に制御が移される。その後、imperative-statement-1 で指定した各文に関する規則に従って、処理が継続する。制御を明示的に移す手続き分岐文または条件文が実行されると、その文の規則に応じて制御が移される。それ以外の場合には、imperative-statement-1 の実行が完了すると、CALL 文の最後に制御が移され、

       NOT ON EXCEPTION 指定はあっても無視される。

   2.  ON OVERFLOW 指定または ON EXCEPTION 指定がない場合、NOT ON EXCEPTION 指定はあっても無視される。

       実行単位中の開かれているファイルに関して、暗黙的な CLOSE 文なしにプログラムの実行が停止され、実行時エラーが表示される。

5.  実行単位内の 2 つ以上のプログラムに、同じプログラム名を持たせることができる。CALL 文でこのようなプログラム名を参照した場合、どちらのプログラムを指すかは、プログラム名の範囲の適用規則に従う。「COBOL 言語の概念」の章の「プログラム名の規則」のトピックを参照。たとえば、CALL 文の中に指定されたプログラム名と同じ名前のプログラムが、実行単位中に 2 つあるとする。
   1. それらの 2 つのプログラムのうちの 1 つは、その CALL 文が含まれる独立のプログラムに直接的または間接的に含まれるか、あるいはその CALL 文が含まれるプログラム自体が、直接的または間接的に含まれる独立のプログラムに直接的または間接的に含まれなければならない。かつ、
   2. もう 1 つのプログラムは、別の独立したプログラムでなければならない。

   この例で、参照するプログラムを見つける仕組みは、次のとおり。

   1. CALL 文中に指定された名前を持つ 2 つのプログラムの一方が、その CALL 文が含まれるプログラム中に直接的に含まれるならば、そのプログラムが呼び出される。
   2. CALL 文中に指定された名前を持つ 2 つのプログラムの一方が共通属性を持ち、その CALL 文が含まれるプログラムが直接的または間接的に含まれる独立のプログラムに直接的に含まれるならば、その共通プログラムが呼び出される。ただし、呼び出し元プログラムがその共通プログラムに含まれる場合は例外である。
   3. それ以外の場合は、別のプログラムが呼び出される。
6. 呼び出し先プログラムが COBOL プログラムで、初期属性を持たない場合、そのプログラムおよびその中に直接的または間接的に含まれる各プログラムは、実行単位の中で最初に呼び出された際、および呼び出し先プログラムが取り消された後で初めて呼び出された際に、初期状態に置かれる。

   呼び出し先プログラムが COBOL プログラムでない場合、実行単位の中で最初に呼び出された際にだけ初期状態に置かれる。このようなプログラムの取り消しは効果がない。

   それ以外の場合に呼び出された際は、呼び出し先プログラムおよびその中に直接的または間接的に含まれる各プログラムの状態は、前回に呼び出された際のままである。COBOL 以外の言語の処理系の中には、意味合いが違っているものがある。可能な場合には、インターフェイスに関する COBOL システムのドキュメントに、その詳細が記載されている。

7.  呼び出し先プログラムが初期属性を持つ場合、そのプログラムおよびその中に直接的または間接的に含まれる各プログラムは、実行単位の中で呼び出されるたびに初期状態に置かれる。呼び出し先プログラムが初期状態にあるか使用され終わった状態にあるかは、DYNAM コンパイラ指令の設定に左右される。
8.  呼び出し先プログラムの内部ファイル結合子に関連するファイルは、プログラムが初期状態にある場合は、まだオープンされていない。前述の「プログラムの初期状態」のトピックを参照。それ以外の場合に呼び出された際は、それらのすべてのファイルの状態および位置指定は、前回に呼び出された際のままである。
9.  プログラムを呼び出す過程または呼び出し先プログラムから戻る過程で、外部ファイル結合子に関連するファイルの状態および位置指定が変えられることはない。
10. 呼び出されるプログラムが COBOL プログラムである場合、その手続き部の見出し

     または ENTRY 文

    の中に USING 指定がある場合にのみ、CALL 文に USING 指定が含められる。その場合、各 USING 指定内の作用対象の数は同じでなければならない。

     作用対象の数が同じである必要はない。

11.  呼び出されるプログラムが COBOL プログラムではない場合、そのプログラムに 1 つ以上のパラメーターが宣言されているときにのみ、CALL 文に USING 指定が含められる。その場合、USING 指定内の作用対象の数は呼び出し先プログラム内のパラメーターの数と同じでなければならない。COBOL 以外の言語の処理系の中には、作用対象の数が同じでなくともよいものがある。COBOL 言語では、データ項目のアドレスの桁寄せに制約はない。他方、COBOL 以外の言語では、通常はアドレスについて前提があり、桁寄せされていないデータ項目が参照されると何らかのエラーを起こす。桁寄せは次の措置のうちのいくつかを用いて実現される。
    • 集団項目に無名項目を追加する
    • ALIGN コンパイラ指令を使用するとともに、USING 指定中の作用対象を 01 レベルまたは 77 レベルのデータ項目にする
    • SYNCHRONIZED 句と IBMCOMP コンパイラ指令を併用する
12. * CALL 文

     または CHAIN 文

    の USING 指定、および呼び出し先プログラムの手続き部見出しの対応する USNIG 指定で、

     あるいは呼び出し先プログラムが COBOL でない場合は ENTRY 文の対応する USNIG 指定またはパラメーター リストで、

    作用対象が配置されている順番によって、呼び出し元プログラムおよび呼び出し先プログラムで使用されているデータ名の対応関係が決まる。この対応は位置によって決まり、名前が等しいことによって決まるのではない。CALL 文

     または CHAIN 文

    の USING 指定内の最初の作用対象は、呼び出し先プログラムの USNIG 指定、またはパラメーター リストの最初の作用対象に対応し、2 番目同士も同様に対応する (以降も同様)。

     両方の作用対象の数が異なるために、完全には対応がとれないことがある。その場合、対応する相手がなくて残っている作用対象が CALL 文または CHAIN 文の側にある場合、それらは無視される。残っている作用対象が手続き部の見出しまたは ENTRY 文またはパラメーター リストの側にある場合、それらは呼び出し先プログラムの中で参照されてはならない。位置による対応は、呼び名によって暗黙的に示される呼び出し規則によって変わることがある。

    指標名の場合は、そのような対応関係は確立されない。呼び出し先プログラムおよび呼び出し元プログラムの指標名は常に別々の指標を参照する。

13.  * CALL 文の USING 指定の中で参照されるパラメーターの値は、その CALL 文が実行された時点で、呼び出し先プログラムにとって利用可能になる。
14. パラメーターに BY REFERENCE identifier-4 指定を

     明示的または

    暗黙的に指定すると、プログラムは、呼び出し先プログラム中の対応するデータ項目が、呼び出し元プログラム中のデータ項目と同じ記憶領域を占めるかのように動作する。呼び出し先プログラム中のデータ項目のデータ記述には、呼び出し元プログラム中の対応するデータ項目と同じ文字数を指定する。

     BY REFERENCE ADDRESS OF 指定を明示的または暗黙的に指定すると、プログラムの動作は次のようになる。具体的には、USAGE POINTER を用いて追加のデータ項目が指定され、「SET データ項目 TO ADDRESS OF identifier-5」文によって取得された値が BY REFERENCE によってそのデータ項目に渡されたかのように動作する。

     identifier-5 が連絡節にあってそのレベル番号が 01 または 77 以外であるか、または作業場所節にある場合、BY CONTENT によってそのデータ項目を渡すことに等しく、identifier-5 のアドレスは、呼び出し先サブプログラムで変更できない。

     「BY REFERENCE literal-3」を明示的または暗黙的に指定すると、オブジェクト プログラムは literal-3 を literal-4 のために記述されたものとして処理する。

15.  * BY CONTENT 指定を明示的または暗黙的に指定すると、CALL 文の USING 指定の中で参照されているこのパラメーターの値を、呼び出し先プログラムは変更できない。それにもかかわらず、呼び出し先プログラムはその手続き部の見出しの中の対応するデータ名によって参照されるデータ項目の値を変更することはできる。CALL 文の BY CONTENT 指定中の各パラメーターに関するデータ記述は、手続き部の見出しの中の USING 指定の中の対応するパラメーターに関するデータ記述と同じにする。つまり、変換も拡張も切り捨てもあってはならない。

     パラメーターに関して BY CONTENT 指定を明示的または暗黙的に指定すると、オブジェクト プログラムの動作は次のようになる。具体的には、追加のデータ項目が宣言され、そのデータ項目が BY REFERENCE 指定の中でパラメーターとして使用されるかのように動作する。identifier-6 を指定すると、追加データ項目の暗黙的なデータ記述とその内容の両方が、identifier-6 のものと同じとなる。literal-4 を指定すると、追加データ項目の暗黙的なデータ記述は、サイズおよび内容が literal-4 と同じ英数字データ項目に等しくなる。「LENGTH OF identifier-7」を指定すると、追加データ項目のデータ記述は、PIC S9(n) USAGE BINARY に等しい。ここで、n の値は 9 以上であり、COBOL システムのデータ項目の最大長を保持できるサイズのデータ項目を定義する。追加データ項目の内容は、identifier-7 に割り当てられた記憶領域のバイト数に設定される。

16.  * BY VALUE 指定を明示的または暗黙的に指定すると、CALL 文の USING 指定の中で参照されているこのパラメーターの値を、呼び出し先プログラムは変更できない。それにもかかわらず、呼び出し先プログラムはその手続き部の見出しの中の対応するデータ名によって参照されるデータ項目の値を変更することはできる。概念的には、システム領域 (通常は「スタック」) に追加のデータ項目が宣言され、それがパラメーターを渡すために COBOL 以外の言語に利用可能であり、その記憶領域が呼び出し先プログラム中のデータ項目と同じであるかのように、オブジェクト プログラムは動作する。

    identifier-8 が指定されており、BINARY、COMP-4、COMP-5、COMP-X のいずれかである場合、追加データ項目のデータ記述は、用途が COMP-5 となる以外は identifier-8 の記述と等しくなる。追加データ項目の内容は、identifier-8 の内容の COMP-5 表現と等しくなる。この変換および表現により、COBOL 以外のプログラムの呼び出しが容易になる。

    それ以外の場合は、identifier-8 を指定すると、追加データ項目の暗黙的なデータ記述およびその内容は、identifier-8 のものと等しくなる。

    literal-5 を指定すると、追加データ項目の暗黙的なデータ記述は、符号付き数値項目 USAGE BINARY に等しくなる。その記憶領域内でのバイト数は、integer-1 の指定があればその値によって示され、指定がなければシステム領域のサイズ (通常はシステム上の POINTER のサイズ) となる。

    「LENGTH OF identifier-9」を指定すると、追加データ項目のデータ記述は、PIC S9(n) USAGE COMP-5 に等しい。ここで、n の値は 9 以上であり、COBOL システムのデータ項目の最大長を保持できるサイズのデータ項目を定義する。追加データ項目の内容は、identifier-9 に割り当てられた記憶領域のバイト数に設定される。

    呼び出されるプログラムが COBOL プログラムである場合、CALL 文の BY VALUE 指定中の各パラメーターに対応するパラメーターが手続き部の見出しの USING 指定中に存在し、それに BY VALUE 指定が明示的または暗黙的に指定されていなければならない。

    上記の CALL 文の結果として生成された追加データ項目は、呼び出し先プログラム中のこの対応するパラメーターと次のような関係を持つ。

    追加データ項目が、BINARY、COMP-4、COMP-5、または COMP-X から COMP-5 への変換の対象であった場合、呼び出し先プログラム中の対応するパラメーターのデータ記述は、追加データ項目のデータ記述と同じでなければならない。ただし、対応するパラメーターの USAGE は、BINARY、COMP-4、COMP-5、COMP-X のいずれでもよい。呼び出し先 COBOL プログラムの開始時に、追加データ項目の USAGE COMP-5 から、呼び出し先プログラム中の対応するパラメーターの USAGE への変換が実行される。

    追加データ項目が COMP-5 への変換の対象ではなかった場合、呼び出し先プログラム中の各パラメーターのデータ記述は、対応する追加データ項目のデータ記述と同じでなければならない。これは、追加データ項目に対し、呼び出し先プログラム中の対応するパラメーターと一致させるための変換、拡張、および切り捨てのいずれも行われないことを意味する。

    呼び出されるプログラムが COBOL プログラムでない場合、追加データ項目のサイズはシステム領域の最大サイズ (通常はシステム上の POINTER のサイズ) を超えないものとする。それ以外の場合は、システムで深刻な障害が発生する可能性がある。

17.  呼び出し先プログラムから呼び出し元プログラムにデータを渡す手段には、呼び出し元プログラムの USING 指定中に宣言されているパラメーターを使用する方法と、返却値を使用する方法とがある。呼び出し先プログラムは EXIT GIVING 文または GOBACK GIVING 文によって値を戻す。呼び出し先プログラムから呼び出し元プログラムに制御が戻されると、返却値がシステム領域に収められる。その領域は一般に、値を戻すために、COBOL 以外のプログラムによって利用可能である。

    システム領域のサイズ (通常はシステム上の POINTER のサイズ) は COBOL システムの外で決定され、返却値が取りうる最大値の制約要因となる。ただし、返却値がシステム領域の最大サイズに満たないことがある。制御が戻された後で、呼び出し元プログラムで返却値を利用できるようになる。それは、暗黙的に特殊なレジスタである RETURN-CODE に収められていることもあれば、GIVING 指定に指定したデータ項目に明示的に収められていることもある。

18.  GIVING 指定を書かず、呼び出し規則に特殊レジスタの RETURN-CODE (「特殊名段落」を参照) を更新するように指定されている場合、オブジェクト プログラムの動作は次のようになる。具体的には、システム領域がそのサイズのまま COBOL の数値データ項目で USAGE COPM-5 が指定されているものとして定義され、そのシステム領域を送り出し側とし特殊レジスタの RETURN-CODE を受け取り側として、MOVE 文を実行したかのように動作する。
19.  呼び出し元プログラム中に GIVING INTO 指定を書いた場合には、返却値をシステム領域に収めるのに必要なのと同じ長さを identifier-10 に指定しなければならない。また、identifier-10 の型および用途は、呼び出し先プログラムからの値の返され方によって暗黙的に示される型および用途に等しくなければならない。呼び出し元プログラムに制御が戻されると、返却値が identifier-10 に収められている。
20.  呼び出し元プログラムに GIVING ADDRESS OF 指定を書いた場合、呼び出し先プログラムが返す値は明示的または暗黙的に USAGE POINTER と指定されたものでなければならない。オブジェクト プログラムの動作は次のようになる。具体的には、システム領域が USAGE POINTER と指定された COBOL のデータ項目として宣言され、そのシステム領域を最初の作用対象とし「ADDRESS OF identifier-11」を 2 番目の作用対象として、SET 文を実行したかのように動作する。
21.  呼び出し先プログラムが値を返さない場合に GIVING 指定を書くと、エラーとなる。
22. 呼び出し先プログラムの中に、CALL 文が含まれていてもよい。しかし、局所記憶節が宣言されていない場合、

     呼び出し先プログラムは、呼び出し元プログラムを直接的または間接的に呼び出す CALL 文を実行しない。

23. 宣言部分の範囲内で CALL 文が実行される際、その CALL 文は、制御が移されたがまだ実行を終了していない呼び出し先プログラムを直接的にも間接的にも参照できない。
24.  END-CALL 指定は CALL 文の範囲を区切る。
25.  USAGE POINTER、

     または USAGE POINTER-32、

     または USAGE PROCEDURE-POINTER

    が明示的または暗黙的に指定されており、呼び出し先プログラム中のデータ項目

     または手続き

    のアドレスから当初に導出された値は、その呼び出し先プログラムに対して CANCEL 文が実行された後では無効になるため、使用してはならない。

26.  使用されないパラメーターをサブプログラムに渡すために、OMITTED 指定を使用できる。その場合、ダミーのデータ項目を宣言する必要はない。
27.  OMITTED パラメーターは BY REFERENCE パラメーターであり、呼び出し元サブプログラムに null アドレスを渡すことに相当する。それは BY VALUE 0 と指定するのと同じであるが、BY REFERENCE パラメーターとして呼び出しプロトタイプの型チェックを受ける。
28.  OMITTED の直前に BY REFERENCE を指定しないと、以降のパラメーターはその前に有効であった呼び出し規則に従って渡される。省いたパラメーターは BY VALUE 0 と指定したかのように扱われる。
29. 数値 literal-3 または literal- は、その定数が整数であるかどうかにかかわらず、負でない場合には整数 32 ビット comp-x 項目として、負の場合には整数 32 ビット comp (バイナリ) 項目として渡される。数値定数内の小数点は無視される。
30.   呼び名は、呼び出し先プログラムを呼び出す際にこのプログラムで使用する呼び出し規則を識別する。呼び出し先プログラムで想定されている呼び出し規則が呼び名で示されるものと異なると、COBOL システムは障害を起こす可能性がある。
31.  呼び出し先プログラムを実行できるようにする際に、その所在が把握されるまで、呼び出し先プログラムが COBOL プログラムであるのかないのか、または手続きであるのかは、実行単位にはわからない。一般には、プログラム名の形式から、COBOL プログラムであるか否かを判定することはできない。COBOL プログラムと COBOL でないプログラムの間、または COBOL でない 2 つのプログラムの間で、プログラム名が同じであるとエラーとなる。
32.  * BY CONTENT、BY REFERENCE、

     BY VALUE

    の各指定はその後ろに続くパラメーターに効力を及ぼすが、別の BY CONTENT、BY REFERENCE、

     または BY VALUE

    の指定が出てきたところでその効力は停止する。

    最初のパラメーターの前に BY CONTENT、BY REFERENCE、

     または BY VALUE

    のどの指定もないと、BY REFERENCE 指定があるものと想定される。

33.  AS FIXED LENGTH を指定すると、動的長基本項目のアドレスは、長さが integer-2 バイトである同等の固定長英数字または UTF-8 字類のデータ項目の場合と同様に呼び出し先に渡される。integer-2 が動的長基本項目の現在の長さを超える場合、項目は拡張され、右側の部分に空白が埋め込まれる (integer-2 バイトまで)。CALL 文の実行後、動的長基本項目の現在の長さは、CALL 文の実行前のまま変わらない。