COBOL ソースの変更

TemperatureConverter プロジェクトの COBOL ソース コードを、SQL Server データベースにアクセスするための新しいコードに変更します。

ここでは、TemperatureConverter.cbl ファイルの COBOL ソースを SQL Server データベースにアクセスする COBOL ソースに置き換えます。

  1. プロジェクト エクスプローラーの [TemperatureConverter > src > com.microfocus.converter] で、TemperatureConverter.cbl をダブルクリックしてファイル エディターで開きます。
  2. ファイルのすべての内容を次のコードに置き換えます。
    $set sql(dbman=jdbc)      
      class-id com.microfocus.converter.TemperatureConverter public.
      01 text1 pic x(10). *> to force implements IObjectControl
      exec sql include sqlca end-exec.
      method-id toCelsius.
      procedure division using by value fahrenheit as float-short returning celsius as float-short.
      exec sql connect to pubs end-exec.
          exec sql
               select (:fahrenheit - 32) * 5 / 9 into :celsius
          end-exec.
          exec sql disconnect pubs end-exec.
          goback.
     end method.
     method-id toFahrenheit.
     procedure division using by value celsius as float-short returning fahrenheit as float-short.
          exec sql connect to pubs end-exec.             
          exec sql
               select (:celsius * 9 / 5) + 32 into :fahrenheit
          end-exec.
          exec sql disconnect pubs end-exec.
          goback
     end method.       
     end class.
  3. [File > Save] をクリックして変更内容を保存します。