MENU

RPG ⅢとRPG Ⅳのコーディングの違い　 ～連載｜RPG Ⅳの魅力と可能性◎第1回　

RPG Ⅳって、簡単 !

　RPG Ⅳをまだ使用したことのない方のために、RPG Ⅳのコーディング・スタイルについて簡単にご紹介してみたいと思います。

　RPG ⅣはRPG Ⅲより言語のバージョンが1つ新しいというだけで、同じ言語です。従来のRPGとほとんど同じ感覚でプログラミングできるのはもちろんですが、よりプログラミングしやすく改良されています。RPG ⅣはRPG Ⅲと比べて構造化プログラミングを強く意識しているため、より自然で読みやすいコーディングができるようになっています。

 

コーディング・スタイルの変化

　具体的に見てみましょう。たとえばREAD命令やCHAIN命令でファイル読み取りを行うとき、従来は結果の標識で読み取り結果を判断していました。標識の使用はコーディングを簡潔にするRPGの特長ですが、標識の多用により、プログラムの保守性が低下する問題も抱えていました。RPG Ⅳでは標識を使わずに結果を判断できます。結果の標識を1つも使わずにコーディングを行うことが可能です。図表1を見てください。

 

 

　このコーディング例では、CHAIN命令でHINMSPというファイルの読み取りを行っていますが、結果の標識は指定していません。その代わりにIF命令で%FOUNDという組み込み関数を使用して結果を判断しています。%FOUND組み込み関数は直前CHAIN命令の結果を判断して、読み取れれば’1′(真)を返します。*IN99などの予約語も使用する必要がなくなるため、「99は何だっけ？」などと考えなくても済み、プログラムを自然に記述し読むことができます。

　それでは今度は図表2を見てください。

 

「 （A + B + C） ÷ D」という演算を行うとき、従来のRPGでは図表2のようなコーディングを行っていたと思います。しかしRPG Ⅳでは演算で式を使用できるため、これを図表3のように1ステートメントで記述できます。

 

式は、IF命令やDOW、DOU命令でも使用できます。式を使用すると図表4のように、複数の条件を簡単に記述することが可能です。

図表4は「標識03がオンか、標識12がオンになるまで繰り返す」という意味です。「*IN03」「*IN12」と標識だけを書いていますが、これはそれぞれ「*IN03がオンのとき」、「*IN12がオンのとき」という意味で、図表4の条件は「*IN03 = *ON　or *IN12 = *ON」と書いても同じ意味です。しかし、図表4の方が簡潔なコーディングだと言えるでしょう。

「標識*IN03がオフのとき」という条件であれば、「*IN03 = *OFF」と書くか、または簡潔に「NOT *IN03」とコーディングすることができます。なお、式を書いている演算仕様書の項目名は、拡張演算項目2といい、従来の演算項目2よりも記述できる桁数が長くなっています。

 

フリーフォーマットのコーディング

図表3でEVALという命令が出てきましたが、これは式を評価するための命令でRPG Ⅳから追加された命令です。四則演算を式で書くときには演算命令としてEVAL命令を書きます。しかし、この命令はなくてもいいような気がするかもしれません。式だけで十分意味はわかります。

そこで、EVAL命令も省略する方法があります。そのためには、フリーフォーマットのコーディングというものを行います。これは従来のRPGが定位置記入方式といって、何桁目に何を書くかが細かく決められていたのに対して、ステートメントを何桁目から書き始めてもよい、という自由な演算仕様書のコーディング方法です。プログラマーが見やすいようにインデントしてコーディングできる方法です。

フリーフォーマットのコーディングでは、まず最初に演算命令を書きます。その後に演算項目１、演算項目２、結果のフィールド、という順序でコーディングします。図表5を見てください。

 

図表5は、図表1のコーディングをフリーフォーマットでコーディングしたものです。CHAIN命令が最初に記述されていること、演算項目1のHINBANがCHAIN命令の後にあることに注意してください。また、各ステートメントの終わりにはセミコロン(;)が記述されています。IF命令の中のコーディングがインデントされていることにも注意してください。

このフリーフォーマットを使用するとき、EVAL命令は省略してもよいという決まりがあります。図表3のコーディングは図表6のようになります。

もう１つ例を見てみましょう。図表7を見てください。

オーバーフロー標識OFがオンだったら見出しを書き出す、というコーディングです。次に図表8を見てください。

 

OVERFLOWという記述が出てきましたが、これは名前付き標識です。RPG Ⅳではオーバーフロー標識に任意の名前を付けることができます。ここでは省略しますがファイル仕様書でオーバーフロー標識の名前を自由に指定できるのです。標識OFを使うよりも、自然な言語としてプログラムを読めるのではないでしょうか。

図表9は、フリーフォーマットでコーディングした対話型プログラムの演算仕様書の例です。インデントが効果的に使用されている点や、コメントが演算命令と同じ行に入れられる点などに注意してください。また、「NOTFOUND」という記述がありますが、これは名前付き標識です。ここでは省略していますが、定義仕様書（D仕様書）でエラーを画面に表示するために表示装置ファイルのDDSで定義した標識に名前を付けています。

 

演算命令の桁数の変更

RPG Ⅲでは演算命令が5桁だったため、演算命令のもとになる英語単語が不自然に短く縮められていました。RPG Ⅳでは桁数が10桁になったため、図表10のように自然な命令になりました。

RPG制限の変更

桁数が増えたのは演算命令だけではありません。図表11のように扱うことのできるファイル名、レコード様式名、フィールド名なども桁数が拡張されています。

 

ILE RPGとRPG Ⅳは同じもの?

「ILE RPGとRPG Ⅳは同じものですか？」という質問をよくいただきます。この質問には「同じものです」と答えるようにしています。しかし、厳密に言えば「ILEに対応したRPGのバージョンがRPG Ⅳである」ということで、意味するところは少し違います。

ILE RPGとは、ILE（統合言語環境）という言語環境に対応したRPGを意味しています。IBM iはILEという言語環境を持っていて、この環境に対応した言語では、異なる言語で書かれたモジュールを組み合わせて、1つのプログラムとして実行できます。ILE RPG、ILE COBOL、ILE C、ILE CLがILEに対応した言語です。さまざまな言語のプログラマー、あるいは、さまざまなベンダーが開発したプログラムを、1つのアプリケーションで同時に容易に利用できる、便利で柔軟で強力な環境がILEです。

RPG ⅣのⅣ（フォー）とは、RPGという言語のバージョンです。ⅢよりⅣの方がバージョンが新しいので、機能が多く、またコーディングの仕方が今回一部をご紹介したように異なるところがあります。

今回はRPG Ⅳの部分に焦点を当てました。ILEについては、また機会がありましたらご紹介させていただきたいと思います。なお、ILE に対して従来の環境をOPM（オリジナル・プログラム・モデル）と呼んでいます。ILEとOPMはともに1つのIBM iシステムに共存できるので、RPG Ⅳのプログラムも、RPGⅢのプログラムも、同時に1つのシステムで使用できます。一度にすべてのアプリケーションをRPG Ⅳに変更する必要はなく、新しいアプリケーションから徐々にRPG Ⅳで開発していくことが可能です。

 

まとめ

ここまで見てきた例で、従来の書き方と新しい書き方のどちらがコーディングしやすく、読みやすいと思われたでしょうか。RPGのベテランプログラマーの方は、従来の書き方が馴染み深く、好まれる方も多いかもしれません。しかしRPGを初めて学ぶ方であれば、新しい書き方のほうが簡単で、わかりやすいと思われるでしょう。そしてRPGのベテランの方でも、慣れると新しい書き方のほうが書きやすくなってくるのではないでしょうか。

つまりRPG Ⅳのコーディングについてまず言えることは、コーディングは難しくなくわかりやすいということです。RPG Ⅳにはこのほかにもさまざまな新しい機能があり、使いこなすことで、新しいアプリケーション開発の世界が広がります。ぜひRPG Ⅳのコーディングを学んでみてください。

手前味噌で恐縮ですが、株式会社アイ･ラーイングではRPG Ⅲをご存じの方のためのRPG Ⅳの入門書『RPG Ⅲ経験者のためのRPG Ⅳ—自習方式』をご提供しています（税別価格7500円。http://bit.ly/1fHhTd0）。スキルアップにご活用いただければ幸いです。

 

 

筆者｜太田 賢 氏

株式会社アイ・ラーニング
IT研修本部 IBM製品研修部
ラーニング・アドバイザー

［i Magazine 2014年2月号掲載］

････････

◎ 連載｜RPG Ⅳの魅力と可能性　目次

新着

©2000-2022 i Magazine All rights Reserved.