RPG

304. SEU は 27*132 サイズで開発しよう

多くの経験豊かな IBM i 開発者は既にご存知であろうが
入門者の人に知って欲しいテクニックをこのシリーズで紹介する。

まず最初に SEU の使用方法であるが
5250 エミュレータで SEU を使用するには 24*80 *DS3 モードではなく

27*132 *DS4 モードで開発する。

理由は横幅が大きく見やすいという理由ではない。

*DS4 27*132 での SEU
0120.00 C                   END                                                    CF04                     070809
0121.00 C*                                                                                                  070809
0122.00 C*( CF12 )- 前画面                                                                                  070809
0123.00 C     *IN12         IFEQ      *ON                                          CF12                     070809
0124.00 C                   SETOFF                                       12                                 070809
0125.00 C                   EXSR      SFLDLT                                                                070809
0126.00 C                   EXSR      CLEAR                                                                 070809
0127.00 C                   GOTO      START                                                                 070809
0128.00 C                   END                                                    CF12                     070809
0129.00 C*                     |                                                                            070809
0130.00 C*( ROLL UP )- 次ページ                                                                             070809
0131.00 C     *IN14         IFEQ      *ON                                          ROLLUP                   070809
0132.00 C                   EXSR      ROLLUP                                                                070809
0133.00 C                   GOTO      DSPLY                                                                 070809
0134.00 C                   END                                                    ROLLUP                   070809
0135.00 C*-( ROLL DOWN )- 前ページ                                                                          070809
0136.00 C     *IN15         IFEQ      *ON                                          ROLLDOWN                 070809
0137.00 C                   Z-ADD     1             DSPREC                                                  070809
0138.00 C                   SETON                                        6299      ERRMSG                   070809
0139.00 C                   GOTO      DSPLY                                                                 070809
0140.00 C                   END                                                    ROLLDOWN                 070809
0141.00 C*                     |                                                                            070809
0142.00 C     TOPRRN        IFNE      *ZEROS                                                                070809
0143.00 C                   Z-ADD     TOPRRN        DSPREC                                                  070809
*DS3 24*80 での SEU
0189.00 C                   MOVE      MIB005        TKNAME                      
0190.00 C                   MOVE      MIB006        JUSHOR                      
0191.00 C                   MOVE      MIB006        JSNAME                      
0192.00 C  N23              EXSR      MIDCHK                                    
0193.00 C*                     |                                                
0194.00 C*---------------------+                                                
0195.00 C* 入力明細行のチエック                                                 
0196.00 C*---------------------+                                                
0197.00 C                   MOVEL     GYO           FLD1              1         
0198.00 C     FLD1          IFNE      'D'                                       
0199.00 C     *IN23         ANDNE     '1'                                       
0200.00 C                   MOVE      RRN1          DSPREC            4 0       
0201.00 C                   EXSR      CHECK                                     
0202.00 C   99              GOTO      SFLWRT                                    
0203.00 C                   END                                                 
0204.00 C*                     |                                                
0205.00 C*---------------------+                                                
0206.00 C* データ・ベース更新                                                   
0207.00 C*---------------------+                                                
0208.00 C*                     |                                                
0209.00 C     *IN10         IFEQ      *ON                                       

これでおわかりかも知れないが横 80 桁では右方向にあるコメントが見えない。
何より見えないのがソースの変更日である。
これは非常に重要であり SEU で編集するときに、このステートメントは
xx 年 xx 月 xx 日に修正されたものであることが 132 桁表示であれば
ひとめで把握することができる。
もちろん 80 桁でも F20 キーを押せば横方向にスライドさせて見ることも
できるが、一目でわかるのとスライドさせなければ確認できないのとでは
大きな違いとなり厳しくチェックするには 132 桁表示のほうが
はるかに優っていることがおわかりであろう。

わずかな違いに思えるが 132 桁の表示に慣れれば 80桁での
編集には非常に不便さを感じることになる。
SEU で編集して開発するにはまず 132 桁表示を使うことから始めよう。