RPGソースの中で CASxx、DOxx、IFxx や SELECT を階層的に多用している場合、
どれが対応する ENDxx であるかを調べるのは手間がかかる。
コンパイル・リストを追っていくのも大変である。
このようなときに SEU で階層構造を調べる方法をご紹介しよう。
SEU で RPGソースをオープンして次のようなソースであったとする。
0203.00 C A001 IFGT B001 0204.00 C A002 IFGT B001 0205.00 C Z-ADD A001 BB 0206.00 C Z-ADD A002 BB 0207.00 C Z-ADD A003 BB 0208.00 C END 0209.00 C Z-ADD A004 BB 0210.00 C END
最下位の 204.00
から 208.00
の行番号の位置に文字'XX' を打鍵して実行キーを押すと
0203.00 C A001 IFGT B001 - - - - ------------- 5 除外データ・レコード ------------------- 0209.00 C Z-ADD A004 BB 0210.00 C END
のような表示となる。
XX - XX
はプロック単位の除外(非表示)を行うコマンドである。
SEU上で見えなくなったからといって削除された訳ではなく、単に非表示となっているだけである。
上記の例では -- 5 除外データ・レコード --
となっているので、5行のレコードが
除外されていることがわかる。
このように XX - XX を繰り返していくと対応する ENDxx を見つけることができる。
なお、除外を元に戻すには -- 5 除外データ・レコード --
の行に SF5 というように
元に戻す行数とともに指定する必要がある。
構造化プログラムと称してあまりIF-END などの構造を深くしてしまうと後々でのソースの解析が大変となる。
この方法は他人が作成したソースなどの解析にも役立つはずである。