RPG

533. デバッグのフィールド条件による停止

RPGのデバッグ命令で「F13= モジュール停止点の処理」を選択すると
指定したフィールドの値が指定した値になったときに停止させるという
裏技を使うことができる。
単なるF16キーによる停止より一歩踏み込んだ条件による停止の指定である。
対話式デバッグでソースが表示されたときにF13キー
押せば次のように指定することができる。


                           モジュール停止点の処理                     
                                                         システム :   
プログラム . . :   AS400EGN              ライブラリー . :   PYTHON.400
  モジュール . :     AS400EGN            タイプ . . . . :   *SRVPGM   
                                                                      
オプションを入力して,実行キーを押してください。                      
  1= 追加   4= 消去                                                   
                                                                      
OPT      行         条件                                              
 1      4587       FLD='DSPREC'                                       
                                                                      
  ( 停止点が存在しない。 )                                            

この指定はステートメント:4587で FLDという名前のフィードの値が
‘DSPREC’になったときだけに停止させることを指示している。
これによってあるフィールドがエラーになったときだけに停止させるとか
効率の良いデバッグを行うことができるようになる。
もちろんRPGだけでなくCOBOLやCLPにも同じデバッグ指示が可能である。