メソッド

コンテキスト：

クラス ValueType インターフェイス 型メンバー

method-specification

本トピックの内容：

• 静的メソッドおよびインスタンス メソッド
• インスタンス メソッドの修飾子
• 抽象メソッド
• オーバーライド メソッド
• 再定義メソッド
• 最終メソッド
• 拡張メソッド
• 同期メソッド
• 明示的なインターフェイスの実装
• 非同期メソッド

method-header

例

method-id methodA static.
01 s string value "Hello".
procedure division.
   display s
end method.

method-id methodB (paramA AS binary-short paramB AS binary-short) RETURNING paramC AS binary-short.
set paramC = paramA * paramB
end method.

コアのサンプルも参照してください。このサンプルは、[スタート > すべてのプログラム > Micro Focus Visual COBOL > Samples]、 の場合JVM COBOL 言語リファレンスの場合 (Windows) または $COBDIR/demo (UNIX)。 に用意されています。

静的メソッドおよびインスタンス メソッド

メソッドは、静的メソッドまたはインスタンス メソッドのいずれかになり、デフォルトでインスタンスになります。インスタンス メソッドは、クラスの指定インスタンスで機能し、静的メソッドは指定インスタンスでは機能しません。

静的メソッドは、そのクラスの静的メソッドおよび静的フィールドにアクセスできます。また、そのクラスまたはその他のクラスのインスタンス メソッドおよびインスタンス フィールドにもアクセスできます。そのためには、必要なクラスのオブジェクトを作成し、そのオブジェクトを介してメソッドまたはフィールドにアクセスします。

たとえば、次のクラスには、静的メソッドとインスタンス メソッド、および静的フィールドとインスタンス フィールドが含まれます。

       class-id MyCounter.

       01 totalCount binary-long static. 
       01 myCount binary-long.
       
       method-id New.
       procedure division.
           set myCount to totalCount
           set totalCount to totalCount + 1
       end method.

       method-id GetCount.
       procedure division returning returnItem as binary-long.
           set returnItem to myCount
       end method.          

       method-id GetTotalCount static.
       procedure division returning returnItem as binary-long.
           set returnItem to totalCount
       end method.          

       method-id SetCount static.
       procedure division using by value aCount as binary-long.
           set totalCount to aCount 
       end method.
       end class.
       

次に、上記のコードを呼び出すプログラムを示します。

       program-id StaticInstanceProgram.
       01 myInstance1 type MyCounter.
       01 myInstance2 type MyCounter.
             
       procedure division.
           invoke type MyCounter::SetCount(10)
           set myInstance1 to new type MyCounter
           set myInstance2 to new type MyCounter
           display myInstance1::GetCount()         *> displays 10
           display myInstance2::GetCount()         *> displays 11
           display type MyCounter::GetTotalCount() *> displays 12
                      
       end program.
       

静的メソッドおよびインスタンス メソッドを使用するには、次のようにします。

• 静的メソッドを宣言するには、STATIC キーワードを使用します。メソッドが静的クラスにある場合、STATIC を指定してください。
• インスタンス メソッドを宣言するには、キーワード STATIC は使用しないでください。
• 静的メソッドにアクセスするには、クラスの型指定子の後に :: を続けてメソッド名を使用します。たとえば、上記のコードのように「MyCounter::GetTotalCount()」と入力します。静的メソッドが現在のクラスにある場合、型指定子およびコロンは省略できます。
• インスタンス メソッドにアクセスするには、インスタンス オブジェクトの名前の後に :: を続けてメソッドを使用します。たとえば、上記のコードのように「myInstance1::GetCount()」と入力します。

拡張メソッド

EXTENSION キーワードは、メソッドを拡張メソッドとして宣言します。

拡張メソッドを使用すると、コードの編集や再コンパイルを行わずにメソッドを既存の型に追加できます。拡張メソッドは、オブジェクト インスタンスで利用可能な追加メソッドとして表示されますが、別の場所に実装されます。

       class-id MyCount static.
       method-id CountWords extension. *> extension method is implicitly static
       procedure division using by value str as string 
                          returning wordCount as binary-long.
            set wordCount to str::Split(' ')::Length
       end method.
       end class.

拡張メソッドを宣言するには、次のようにします。

• メソッド ヘッダーで EXTENSION キーワードを使用します。
• メソッドは、ネストでも汎用でもない静的クラス内になければなりません。メソッドは暗黙的に静的になります。
• メソッドの本文では、最初のパラメーターは拡張する型になります。これは、常に値パラメーターになります。

JVM COBOL から拡張メソッドを呼び出すための特別な構文はありません。拡張メソッドは、他のメソッドと同様に使用されます。ただし、最初のパラメーターを、メソッドが呼び出されるインスタンスであるかのように指定する点を除きます。

parameter-1::method-name(more parameters)

JVM COBOL では、コンパイルの前にあらかじめロードされる拡張が 2 つあります。

• 文字列同一の拡張演算子
• 従属文字列の拡張メソッド

この 2 つの拡張により、JVM COBOL または .NET COBOL のどちらにコードがコンパイルされるかにかかわらず、同じ結果が生成されるようになります。詳細は、「拡張メソッドおよび演算子」を参照してください。

同期メソッド

SYNC 修飾子は、メソッドに送られる引数の値をロックするため、メソッドの処理中に引数の値が変わることはありません。

引数がメソッドに送られ、参照パラメーターとして受け取られると、パラメーターの値およびその対応する送信引数が更新されることがあります。SYNC 修飾子を使用しない場合、メソッドの処理中に送信引数の値が不明になります。

メソッドに対する SYNC 修飾子は、SYNC 文のメソッド全体のラッピングに相当します。

次に例を示します。

       01 a binary-long value 20.
       ...
       invoke Adjust(a)
       display a                 *> displays 93
   
       method-id Adjust sync (reference x as binary-long).
           set x to x + 73
       end method. 
       end class.

上記の例では、SYNC 修飾子はメソッド Adjust() に適用されます。これにより、メソッド内の変数 (この場合、ローカルでは変数 x、呼び出しコード内では変数 a) には、メソッドの処理が終わるまでアクセスできません。

明示的なインターフェイスの実装

FOR 句を指定すると、このメソッドは明示的なインターフェイス メンバーの実装になります。このメソッドを明示的に呼び出すことはできません。このメソッドは、インターフェイス型にキャストされているこのクラスのインスタンスで対応するメソッドが呼び出された際に暗黙的に呼び出されます。

interface-id. "IAlarm1".
method-id checkAlarm.
procedure division using atime as binary-long.
end method.
end interface.

interface-id. "IAlarm2".
method-id checkAlarm.
procedure division using atime as binary-long.
end method.
end interface.

class-id BasicAlarm implements type IAlarm1 type IAlarm2.

method-id checkAlarm for type IAlarm1.
procedure division using atime as binary-long.
...
end method.

method-id checkAlarm for type IAlarm2.
procedure division using atime as binary-long.
...
end method.
end class.

非同期メソッド

.NET COBOL では、.NET async および await 構文を使用して、応答性の高いアプリケーションを記述できます。

非同期プログラミングにより、アプリケーションで、メイン アプリケーション スレッドから独立して実行されるタスクを作成できます。つまり、タスクはビジー状態の場合には別のスレッドで実行されるため、アプリケーションの応答性が維持されます。完了後、タスクの結果には呼び出し元からアクセスできます。

非同期プログラミングは、完了までに長時間かかる操作を実行するアプリケーションで特に役立ちます。具体的には、インターフェイスの応答性を保つ必要がある、Web 要求を処理するアプリケーションや、ビッグ データまたは複数のリソースを処理するデスクトップ アプリケーションなどが挙げられます。

非同期アプリケーションは、メソッドおよび待機する対象の非同期操作を示す ASYNC および AWAIT 構文を使用して作成できます。アプリケーションの実行をメイン スレッドで継続しながら非同期操作を別のスレッドで実行するための複雑な作業は、すべてコンパイラーによって処理されるため、プログラマーにとっては非常に単純です。また、コンパイラにより、待機中のメソッドに制御が返された際に正しい操作を実行できます。

次の例では、ASYNC キーワードはメソッドが非同期メソッドであることを示しています。実行が AWAIT の呼び出しに到達すると、1000 ms の遅延を実行する .NET Task メソッドに制御が渡されます。遅延後、制御は呼び出し元メソッドに戻されます。

method-id ProcessItemsAsync async (#type as string,
                                   #count as binary-long)
                            yielding items as string occurs any.
     invoke await type Task::Delay(1000)
     set items to table of ("a", "b", "c")
 end method.

非同期操作を開始し、その完了後にメソッドの実行を継続するには、AWAIT キーワードを使用します。下記のコードでは、非同期操作は、Task スレッド クラスの Delay メソッドによって実行される遅延です。

invoke await type Task::Delay(1000)

Task は、非同期コードを記述するための型を含む System.Threading.Tasks ネームスペースに属しています。Task には、コードを非同期的に実行するうえで役立つメソッドが複数含まれています。

下記の例では、完了後に ProcessItemsAsync の結果が items に移動されることになります。

declare items = await ProcessItemsAsync("user", 8)

await 文を使用するイベント ハンドラーを含む async-void を使用します。次の例では、意図的な遅延により、ボタンは無効になっています。非同期の操作であるため、コードの残りの部分は、UI スレッドをブロックすることなく、1000 ms の遅延後に実行が継続されます。

method-id button1_Click async-void (sender as object,
                                    e as type EventArgs).
     set button1::Enabled to false
     invoke await type Task::Delay(1000)
     set button1::Enabled to true
 end method.

次の例は、結果を返さない async メソッドを示しています。

method-id Task ProcessAsync() async.
     invoke await type Task::Yield()
     invoke type Console::WriteLine("async...")
 end method.

次の async メソッドは結果を返します。

method-id ProcessItemsAsync async (#type as string,
                                   #count as binary-long)
                            yielding items as string occurs any.
     invoke await type Task::Delay(1000)
     set items to table of ("a", "b", "c")
 end method.

メソッドでタスクの値を返す必要がある場合は、async-value キーワードを使用します。

method-id AProcess async-value (x as condition-value)
                   yielding result as string.
     if x
         invoke await type Task::Delay(1000)
         set result to "x"
     else
         set result to "y"
     end-if
 end method.