Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


例: ゲット・メソッドのコーディング

次の例は、インスタンス・メソッド getBalance の Account クラスの定義を示しており、これによってインスタンス変数 AccountBalance の値をクライアントに戻します。 Account クラス定義の OBJECT 段落で、getBalance および AccountBalance が定義されます。

 Identification Division.
 Class-id. Account inherits Base.
*  (ENVIRONMENT DIVISION not shown)
*  (FACTORY paragraph not shown)
*
 Identification division.
 Object.
  Data division.
  Working-storage section.
  01 AccountBalance pic S9(9) value zero.
*   (Other instance data not shown) 
*
  Procedure Division.
*
   Identification Division.
   Method-id. “getBalance”.
   Data division.
   Linkage section.
   01 outBalance pic S9(9) binary.
*
   Procedure Division returning outBalance.
     Move AccountBalance to outBalance.
   End method “getBalance”.
*
*  (Other instance methods not shown)
 End Object.
*
 End class Account.

ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)