---

１．ＩＬＥＲＰＧとは

ＩＬＥとは、Integrated　Language　Environment（統合化言語環境）の略です。
異なる言語間に対して、共通の統合化したインターフェースを提供します。
これにより、ＲＰＧ、ＣＯＢＯＬ、Ｃなどの言語を使用して、共通のアプリケーションを
作成することが出来ます。

---

２．ＲＰＧ�Vとの主な相違点

２−１．全般

ＩＬＥＲＰＧは、ＲＰＧ�Vの後継の言語です。ＲＰＧ�Vの機能は、すべて継承しています。
大きな変更点は、次の項目です

• Ｅ仕様書の代わりに、Ｄ仕様書が出来た。
• フィールド名が１０桁になった。

２−２．Ｆ仕様書

• データベースのフィールド名に、任意のPrefix文字をつけて、プログラム内で使えます。
  　これにより、フィールド名の重複を回避する事が出来ます。

２−３．Ｅ仕様書

• なくなりました。代わりに、Ｄ仕様書が出来ました。

　

２−４．Ｄ仕様書

• Ｄ仕様書が新しく出来ました。変数、配列の定義を行います。
• 配列の定義　ＤＩＭ（Dimension）を使って定義します。
  　　　　１０桁の長さで要素数１００個の配列の定義は、
  　　　　　　　ＡＲＲＡＹ　　　Ｓ　　　１０　　ＤＩＭ（１００）
  　　　　のように定義します。
• 変数の定義　初期値を設定できます。
  　　　　１０桁の変数の中身を、’ＡＸＥＬ’で初期設定して定義します
  　　　　　　　ＦＩＥＬＤ　　　Ｓ　　　１０　　ＩＮＺ（’ＡＸＥＬ’）

２−５．Ｃ仕様書

• 条件標識が１行に１つしか書けなくなりました。
  　ただ、ＩＬＥＲＰＧでは標識をあまり使わなくてもよくなっています。
  　【ＲＰＧ�V】　　　ＫＥＹ　　　ＣＨＡＩＮＦＩＬＥ　　　９０
  　　　　　　　　　＊ＩＮ９０　　　ＩＦ　　　＊ＯＮ
  　【ＩＬＥＲＰＧ】　ＫＥＹ　　　ＣＨＡＩＮＦＩＬＥ
  　　　　　　　　　　　　　　　　　ＩＦ　　　ＮＯＴ　ＦＯＵＮＤ
  
  
• 演算命令も１０桁可能になったので、命令が少し変更になりました。
  　（英語そのものの表記に近くなりました。）
  　ＳＥＴＯＦ→ＳＥＴＯＦＦ、ＵＰＤＡＴ→ＵＰＤＡＴＥなど
  
  
• ＩＦなどの条件の書き方が、柔軟になりました。（従来の書き方も可能です）
  　【ＲＰＧ�V】　　　ＨＩＮＢＡＮ　　ＩＦＥＱ　’１２３４５’
  　【ＩＬＥＲＰＧ】　　　　　　　　　 ＩＦ　ＨＩＮＢＡＮ＝”１２３４５”
  　【ＲＰＧ�V】　　　ＨＩＮＢＡＮ　　ＩＦＥＱ　’１２３４５’
  　　　　　　　 　　ＨＩＮＢＡＮ　　ＯＲＥＱ ’５６７８７９’
  　【ＩＬＥＲＰＧ】　　　　　　　　　 ＩＦ　ＨＩＮＢＡＮ＝”１２３４５”　ＯＲ
  　　　　　　　　　　　　　　　　　　　　　ＨＩＮＢＡＮ＝”５６７８９”　
  　【ＲＰＧ�V】　　　＊ＩＮ９０　　　ＩＦＥＱ　’１’
  　【ＩＬＥＲＰＧ】　　　　　　　　　 ＩＦ　＊ＩＮ９０
  
  
• 配列の指標の書き方が変わりました
  　【ＲＰＧ�V】　　　ＡＲ，１　　　　ＣＯＭＰ　’Ａ’
  　【ＩＬＥＲＰＧ】　ＡＲ（１）　　　ＣＯＭＰ　’Ａ’
  
  
• ＥＶＡＬ命令が出来ました。
  　【ＲＰＧ�V】　　　　　　　　　　　ＭＯＶＥ　’１’　　　　ＦＩＥＬＤ
  　【ＩＬＥＲＰＧ】　　　　　　　　　ＥＶＡＬ　ＦＩＥＬＤ＝’１’
  
  

次のようなＩＬＥＲＰＧを作成し、これをＲＰＧ�VでＣＡＬＬすれば、
i-webＲＰＧの機能をＲＰＧ�Vから利用できます。

ただし、Ｗｅｂプログラミングは、文字列を操作することが頻繁に発生するので、
ＲＰＧ�Vでプログラミングすることは非常に労力を要しますので、
ＩＬＥＲＰＧでのプログラム作成を強くお勧めいたします。

【＃ＧＥＴ＿ＦＯＲＭ】

  * prototype of #GET_FORM  （変数の読み込み）                        
 D #GET_FORM       PR          2000    EXTPROC('#GET_FM')             
 D                               10    VALUE                          
 D                                1                                   
 C     *ENTRY        PLIST                                            
 C                   PARM                    #GF_nam          10      
 C                   PARM                    #GF_opt           1      
 C                   PARM                    #GF_val        2000      
  *                                                                   
 C                   EVAL      #GF_val=#GET_FORM(#GF_nam:#GF_opt)     
  *                                                                   
 C                   SETON                                        LR  
  *                                                                   

【＃ＯＵＴ＿ＨＴＭＬ】

 C     *ENTRY        PLIST                                             
 C                   PARM                    LIB              10       
 C                   PARM                    FILE             10       
 C                   PARM                    MBR              10       
 C                   PARM                    RPL_DATA          1       
  *                                                                    
 C                   CALLB     '#OUT_HTML'                             
 C                   PARM                    LIB              10       
 C                   PARM                    FILE             10       
 C                   PARM                    MBR              10       
 C                   PARM                    RPL_DATA       2000       
  *                                                                    
 C                   SETON                                        LR   
  *