ＲＰＧ

66. RPGサイクルとは

RPGの最初の学習で「RPGサイクル」に悩まされる人が多いようである。
これはレコード処理のメイン・ロジックを「RPGサイクル」が制御するためにメイン・ロジックが
隠蔽されてしまうため理解が困難になるようである。

しかしC言語の開発過程においても、C および C++ はWindowsメッセージの処理は
ユーザー自身が記述していたが VisualC++ではメッセージ処理は Microsoft社提供の
MFC(Microsoft Foundation Class)によって隠蔽されている。
MFCの開発者は今さらC++に戻る気はしないであろう。

「RPGサイクル」もこれと同じことでお決まりの処理は「RPGサイクル」に任せてしまってユーザーは
必要な最小限の処理だけを記述すれば良い。
RPGサイクルを使うことによってユーザー・プログラムはあたかもRPGサイクルのサブ・ルーチンで
あるかのような処理となる。
IBMが最近、RPGサイクルを推薦しなくなったのは他言語から移行した開発者にとって
理解する時間が必要だからであって、連続したバッチ処理や特に帳票印刷には
RPGサイクルはシンブルでかつバグの発生率を抑える効果を最大限に発揮する。

それではRPGサイクルを使わない場合とRPGサイクルを使った場合の比較の例をご紹介しよう。

例は	1. RPGサイクルを使わない初歩的な方法 2. RPGサイクルは使わないが最適化された手法 3. RPGサイクルを使った例

の3つの場合を紹介する。
プログラムは品種コード, 商品コードをアクセス・パス (キー) とする論理ファイルを読んで、
品種コード毎に改ページを行い、商品単価を品種コード毎に小計して、最後には
すべての単価の合計も印刷するプログラムである。

1. RPG005 : RPGサイクルを使わない初歩的な方法

0001.00      H            Y/                                                   
0002.00      F**********  品種別商品一覧表            *************************
0003.00      FLSHOHNS IF  E           K        DISK                            
0004.00      FHINSHU  IF  E           K        DISK                            
0005.00      FQPRINT  O   F     132     OF    LPRINTER                         
0006.00      F*****************************************************************
0007.00      E                    HDR     1   1 32                見出し       
0008.00      E                    DAR         2 10                             
0009.00      LQPRINT   66FL 62OL                                               
0010.00      C******************************************************           
0011.00      C*            明　　細　　演　　算                                
0012.00      C******************************************************           
0013.00      C                     MOVE *LOVAL    BEFHNS                       
0014.00      C           *LIKE     DEFN SHSCOD    BEFHNS                       
0015.00      C                     DO   *HIVAL                                 
0016.00      C                     SETOF                     50                
0017.00      C                     READ LSHOHNS                  50            
0018.00      C   50                LEAVE                                       
0019.00      C*( 品種コードの切れ目 )                                          
0020.00      C           SHSCOD    IFNE BEFHNS                                 
0021.00      C*    ( 小計印刷 )                                              
0022.00      C           BEFHNS    IFNE *LOVAL                               
0023.00      C*----------------------------------------------------+         
0024.00      C                     SETON                     43    |         
0025.00      C                     EXSR OUTPUT                     | 小計印刷
0026.00      C*----------------------------------------------------+         
0027.00      C                     ADD  SHOKEI    GOKEI   90                 
0028.00      C                     Z-ADD0         SHOKEI                     
0029.00      C                     MOVE SHSCOD    BEFHNS                     
0030.00      C                     END                                       
0031.00      C                     SETOF                     99              
0032.00      C           SHSCOD    CHAINHINSHU               99              
0033.00      C*    ( 見出し印刷 )                                            
0034.00      C*----------------------------------------------------+         
0035.00      C                     SETON                     41    |         
0036.00      C                     EXSR OUTPUT                     | 見出印刷
0037.00      C*----------------------------------------------------+         
0038.00      C                     ADD  SHTANK    SHOKEI  90                 
0039.00      C                     END                                       
0040.00      C*( 明細印刷 )                                                  
0041.00      C*----------------------------------------------------+         
0042.00      C                     SETON                     42    |          
0043.00      C                     EXSR OUTPUT                     | 明細印刷 
0044.00      C*----------------------------------------------------+          
0045.00      C                     ADD  1         KENSU   70        件数      
0046.00      C                     END                                        
0047.00      C*( 合計印刷 )                                                   
0048.00      C*----------------------------------------------------+          
0049.00      C                     SETON                     49    |          
0050.00      C                     EXSR OUTPUT                     | 合計印刷 
0051.00      C*----------------------------------------------------+          
0052.00      C                     SETON                     LR               
0053.00      C******************************************************          
0054.00      C           OUTPUT    BEGSR                                      
0055.00      C******************************************************          
0056.00      CSRN40                SETON                     4041             
0057.00      CSR                   EXCPT                                      
0058.00      CSR OF                SETOF                     40OF             
0059.00      CSR                   SETOF                     414243           
0060.00      CSR                   SETOF                     444546           
0061.00      CSR                   SETOF                     474849           
0062.00      CSR                   ENDSR                                      
0063.00      OQPRINT  E  206   41                                       
0064.00      O                         UDATE Y    8                     
0065.00      O                                   14 ' 作成 '            
0066.00      O                         HDR,1     82                     
0067.00      O                                  128 'PAGE.'             
0068.00      O                         PAGE  Z  131                     
0069.00      O        E  1     41                                       
0070.00      O                                   10 ' 品種 ｺｰﾄﾞ'        
0071.00      O                         SHSCOD    14                     
0072.00      O                                   22 ' 品種名 '          
0073.00      O                         HNSNAM    36                     
0074.00      O        E  1     41                                       
0075.00      O                                   10 ' 商品 ｺｰﾄﾞ'        
0076.00      O                                   34 ' 商品名 '          
0077.00      O                                   68 ' 単価 '            
0078.00      O        E  2     42                                       
0079.00      O                         SHCODE    11                     
0080.00      O                         SHNAME    46                     
0081.00      O                         SHTANKJ   70                     
0082.00      O        E  3     42                                       
0083.00      O                                   50 '* 小計 *'          
0084.00      O                         SHOKEIJ   70                      
0085.00      O        E  1     49                                        
0086.00      O                                   50 '** 合計 **'         
0087.00      O                         GOKEI J   70                      
0088.00      O        E  1     49                                        
0089.00      O                                   40 ' 処理件数 '         
0090.00      O                                   57 '. . . . . . . . .'  
0091.00      O                         KENSU 2   65                      
0092.00 **  HDR                                                          
0093.00  品種別商品一覧表

[ 解説 ]

READ でファイル LSHOHNS を LOOPして読み取って品種コードSHSCOD が前に読んだ
レコードの SHSCOD と異なるかどうかを絶えず検査して、異なっていてしかも、最初でない
場合だけに小計を出力するように自己制御しているCOBOL的な記述となっている。

これは例が品種コードだけの切れ目を検査するという簡単なものであるがレベルが
置き場コード、担当者コード、品種コード、... のように深い階層であれば大変な作業となる。
しかも小計と改ページが同時に起こるような場合とかの例外事項までをすべて考慮すると
なると、気が遠くなるばかりである。

演算の順序を見ても

となっており、これは素直は思考回路とは一致しないであろう。
メイン・アルゴリズムがこのようになっていると、ほんの少しを修正するだけでもたちまちバグの
発生要因となる。最初に記述する開発者にとって一見、わかりやすいものと写るのかも
知れないが、将来に渡る多くの危険分子を秘めているプログラムであると言わざるを得ない。

2. RPG006 : RPGサイクルは使わないが最適化された手法

0001.00      H            Y/                                                   
0002.00      F**********  品種別商品一覧表            *************************
0003.00      FLSHOHNS IF  E           K        DISK                            
0004.00      FHINSHU  IF  E           K        DISK                            
0005.00      FQPRINT  O   F     132     OF    LPRINTER                         
0006.00      F*****************************************************************
0007.00      E                    HDR     1   1 32                見出し       
0008.00      E                    DAR         2 10                             
0009.00      LQPRINT   66FL 62OL                                               
0010.00      C******************************************************           
0011.00      C*            明　　細　　演　　算                                
0012.00      C******************************************************           
0013.00      C                     DO   *HIVAL                                 
0014.00      C                     SETOF                     50                
0015.00      C                     READ LSHOHNS                  50            
0016.00      C   50                LEAVE                                       
0017.00      C*----------------------------------------------------+           
0018.00      C           SHOKEY    KLIST                           |           
0019.00      C                     KFLD           SHSCOD           |           
0020.00      C                     KFLD           SHCODE           |           
0021.00      C*----------------------------------------------------+           
0022.00      C           SHOKEY    SETLLLSHOHNS                                
0023.00      C*----------------------------------------------------+           
0024.00      C           HNSKEY    KLIST                           |           
0025.00      C                     KFLD           SHSCOD           |           
0026.00      C*----------------------------------------------------+           
0027.00      C                     SETOF                     99                
0028.00      C           SHSCOD    CHAINHINSHU               99                
0029.00      C*    ( 見出し印刷 )                                              
0030.00      C*----------------------------------------------------+           
0031.00      C                     SETON                     41    |           
0032.00      C                     EXSR OUTPUT                     | 見出印刷  
0033.00      C*----------------------------------------------------+           
0034.00      C                     DO   *HIVAL                                 
0035.00      C                     SETOF                     50                
0036.00      C           HNSKEY    READESHSCOD                   50            
0037.00      C   50                LEAVE                                       
0038.00      C*( 明細印刷 )                                                    
0039.00      C*----------------------------------------------------+           
0040.00      C                     SETON                     42    |           
0041.00      C                     EXSR OUTPUT                     | 明細印刷  
0042.00      C*----------------------------------------------------+         
0043.00      C                     END                                       
0044.00      C*    ( 小計印刷 )                                              
0045.00      C*----------------------------------------------------+         
0046.00      C                     SETON                     43    |         
0047.00      C                     EXSR OUTPUT                     | 小計印刷
0048.00      C*----------------------------------------------------+         
0049.00      C                     ADD  SHOKEI    GOKEI   90                 
0050.00      C                     Z-ADD0         SHOKEI                     
0051.00      C           SHOKEY    SETGTLSHOHNS                              
0052.00      C                     END                                       
0053.00      C*( 合計印刷 )                                                  
0054.00      C*----------------------------------------------------+         
0055.00      C                     SETON                     49    |         
0056.00      C                     EXSR OUTPUT                     | 合計印刷
0057.00      C*----------------------------------------------------+         
0058.00      C                     SETON                     LR              
0059.00      C******************************************************         
0060.00      C           OUTPUT    BEGSR                                     
0061.00      C******************************************************         
0062.00      CSRN40                SETON                     4041            
0063.00      CSR                   EXCPT                                   
0064.00      CSR OF                SETOF                     40OF          
0065.00      CSR                   SETOF                     414243        
0066.00      CSR                   SETOF                     444546        
0067.00      CSR                   SETOF                     474849        
0068.00      CSR                   ENDSR                                   
0069.00      OQPRINT  E  206   41                                          
0070.00      O                         UDATE Y    8                        
0071.00      O                                   14 ' 作成 '               
0072.00      O                         HDR,1     82                        
0073.00      O                                  128 'PAGE.'                
0074.00      O                         PAGE  Z  131                        
0075.00      O        E  1     41                                          
0076.00      O                                   10 ' 品種 ｺｰﾄﾞ'           
0077.00      O                         SHSCOD    14                        
0078.00      O                                   22 ' 品種名 '             
0079.00      O                         HNSNAM    36                        
0080.00      O        E  1     41                                          
0081.00      O                                   10 ' 商品 ｺｰﾄﾞ'           
0082.00      O                                   34 ' 商品名 '             
0083.00      O                                   68 ' 単価 '               
0084.00      O        E  2     42                                      
0085.00      O                         SHCODE    11                    
0086.00      O                         SHNAME    46                    
0087.00      O                         SHTANKJ   70                    
0088.00      O        E  3     42                                      
0089.00      O                                   50 '* 小計 *'         
0090.00      O                         SHOKEIJ   70                    
0091.00      O        E  1     49                                      
0092.00      O                                   50 '** 合計 **'       
0093.00      O                         GOKEI J   70                    
0094.00      O        E  1     49                                      
0095.00      O                                   40 ' 処理件数 '       
0096.00      O                                   57 '. . . . . . . . .'
0097.00      O                         KENSU 2   65                    
0098.00 **  HDR                                                        
0099.00  品種別商品一覧表

[ 解説 ]

このプログラムはキー・リストによる READE を効果的に使って上から下へと構造化された
処理をしているということでは評価に値するものである。
分類の数が増えたとしてもキー・リストの項目が増えるだけであって処理の構造はほとんど
変わることがないような拡張性のあるロジックに仕上がっている。
二重LOOPになっているので最初は違和感があるかも知れないが SFL の出力にも
応用範囲が広い。
覚えておけば役に立つ手法である。

3. RPG007 : RPGサイクルを使った例

0001.00      H            Y/                                                   
0002.00      F**********  品種別商品一覧表            *************************
0003.00      FLSHOHNS IP  E           K        DISK                            
0004.00      FHINSHU  IF  E           K        DISK                            
0005.00      FQPRINT  O   F     132     OF    LPRINTER                         
0006.00      F*****************************************************************
0007.00      E                    HDR     1   1 32                見出し       
0008.00      E                    DAR         2 10                             
0009.00      LQPRINT   66FL 62OL                                               
0010.00      I@SHOHIN     01                                                   
0011.00      I                                              SHSCODL1           
0012.00      C******************************************************           
0013.00      C           *INL1     IFEQ '1'                        *INL1       
0014.00      C******************************************************           
0015.00      C                     SETOF                     99                
0016.00      C           SHSCOD    CHAINHINSHU               99                
0017.00      C*    ( 見出し印刷 )                                              
0018.00      C*----------------------------------------------------+           
0019.00      C                     SETON                     41    |           
0020.00      C                     EXSR OUTPUT                     | 見出印刷  
0021.00      C*----------------------------------------------------+         
0022.00      C                     END                                       
0023.00      C******************************************************         
0024.00      C*            明　　細　　演　　算                              
0025.00      C******************************************************         
0026.00      C*( 明細印刷 )                                                  
0027.00      C*----------------------------------------------------+         
0028.00      C                     SETON                     42    |         
0029.00      C                     EXSR OUTPUT                     | 明細印刷
0030.00      C*----------------------------------------------------+         
0031.00      C                     ADD  SHTANK    SHOKEI  90                 
0032.00      C           END       TAG                                       
0033.00      C*    ( 小計印刷 )                                              
0034.00      C*----------------------------------------------------+         
0035.00      CL1                   SETON                     43    |         
0036.00      CL1                   EXSR OUTPUT                     | 小計印刷
0037.00      CL1                   ADD  SHOKEI    GOKEI   90       |         
0038.00      C*----------------------------------------------------+         
0039.00      C*( 合計印刷 )                                                  
0040.00      C*----------------------------------------------------+         
0041.00      CLR                   SETON                     49    |         
0042.00      CLR                   EXSR OUTPUT                     | 合計印刷  
0043.00      C*----------------------------------------------------+           
0044.00      C******************************************************           
0045.00      C           OUTPUT    BEGSR                                       
0046.00      C******************************************************           
0047.00      CSRN40                SETON                     4041              
0048.00      CSR                   EXCPT                                       
0049.00      CSR OF                SETOF                     40OF              
0050.00      CSR                   SETOF                     414243            
0051.00      CSR                   SETOF                     444546            
0052.00      CSR                   SETOF                     474849            
0053.00      CSR                   ENDSR                                       
0054.00      OQPRINT  E  206   41                                              
0055.00      O                         UDATE Y    8                            
0056.00      O                                   14 ' 作成 '                   
0057.00      O                         HDR,1     82                            
0058.00      O                                  128 'PAGE.'                    
0059.00      O                         PAGE  Z  131                            
0060.00      O        E  1     41                                              
0061.00      O                                   10 ' 品種 ｺｰﾄﾞ'               
0062.00      O                         SHSCOD    14                            
0063.00      O                                   22 ' 品種名 '            
0064.00      O                         HNSNAM    36                       
0065.00      O        E  1     41                                         
0066.00      O                                   10 ' 商品 ｺｰﾄﾞ'          
0067.00      O                                   34 ' 商品名 '            
0068.00      O                                   68 ' 単価 '              
0069.00      O        E  2     42                                         
0070.00      O                         SHCODE    11                       
0071.00      O                         SHNAME    46                       
0072.00      O                         SHTANKJ   70                       
0073.00      O        E  3     42                                         
0074.00      O                                   50 '* 小計 *'            
0075.00      O                         SHOKEIJ   70                       
0076.00      O        E  1     49                                         
0077.00      O                                   50 '** 合計 **'          
0078.00      O                         GOKEI J   70                       
0079.00      O        E  1     49                                         
0080.00      O                                   40 ' 処理件数 '          
0081.00      O                                   57 '. . . . . . . . .'   
0082.00      O                         KENSU 2   65                       
0083.00 **  HDR                                                           
0084.00  品種別商品一覧表

[ 解説 ]

ファイル仕様書の記述が IF ではなく IP (Input Primary) であることに注意。
RPGサイクルを使用する場合は IP と指定すると READ しなくても自動的に IP として
指定したファイルが順に読み込まれてくる。
IS (Input Secondary) としての指定した別のファイルがあれば IP のファイルのレコードを
すべて読み終えると次に IS のファイルのレコードが読み込まれる。
マッチングを指定すると IP, IS を交互に読むことも可能である。

0010.00      I@SHOHIN     01                                                   
0011.00      I                                              SHSCODL1

によって SHSCOD の内容に変化があれば、標識 L1 が ON になる。
これは別の例で

　　　　　　 I                                              CODE01 L3
             I                                              CODE02 L2
             I                                              CODE03 L1

が指定されたとすると CODE02 や CODE03 に変化がなくても CODE01 にさえ変化が
あれば L3, L2, L1 はすべて ON になる。
つまり Ln が ON になれば下位の Ln-1, Ln-2, .... は すべてON になる。
このことがプログラマーが余計な例外データの場合を考慮しなくても済むようになっている
スグレモノであるといえる。

0033.00      C*    ( 小計印刷 )                                              
0034.00      C*----------------------------------------------------+         
0035.00      CL1                   SETON                     43    |         
0036.00      CL1                   EXSR OUTPUT                     | 小計印刷
0037.00      CL1                   ADD  SHOKEI    GOKEI   90       |         
0038.00      C*----------------------------------------------------+         
0039.00      C*( 合計印刷 )                                                  
0040.00      C*----------------------------------------------------+         
0041.00      CLR                   SETON                     49    |         
0042.00      CLR                   EXSR OUTPUT                     | 合計印刷  
0043.00      C*----------------------------------------------------+

に見られる制御レベルに L1, L2, ... LR で記述した行はレコードを最初に読み込んだときは
実行されない。次に読み込もうとしたデータが異なる品種コードであった場合に、はじめて
合計処理つまり一群のまとまりの終わりの処理としての記述を行うことになる。

このように演算をRPGサイクルでは 合計演算 と呼ぶが、合計演算では次のレコードの内容
はまだ読み込まれていない。例えば小計行に品種コードを印刷する必要がある場合であれば
最初の例であれば BEFHNS という前のレコードのフィールド値を保管しておいて、これを印刷
する必要があるが、RPGサイクルでの合計演算ではまだフィールド値は次のレコードの
フィールド値には変わっていないので SHSCOD の値をそのまま印刷するだけでよい。

この結構便利な機能が最初は感覚的になかなか理解することができない。
処理自身は見ておわかりのとおりにRPGサイクルでは大変スマートでまとまりの良いものに
仕上がっている。
将来への拡張に備えても信頼性の高いプログラムになっている。