強化されたデバッグ・オプション

プログラマとしては負けている様で、デバッガーには頼りたくないと常日頃思っていますが、それでも使う機会はあるもので、そんなRPGのデバッガーが V7R5(V7R3 +PTF以上) で強化された模様。
追加されたオプションが ①DEBUG(*CONSTANTS) と ②DEBUG(*RETVAL)。

• ①DEBUG(*CONSTANTS) はデバッグ中に名前付き定数の中身が参照出来る
• ②DEBUG(*RETVAL)はプロシージャの戻り値が参照できる。上書き出来る

個人的に①は「出来てなかったんだー」と思うくらいで、「D仕様書」を見れば判るからと言えばそうだが、いちいちソースを移動する手間を考えるとそれはそれで便利。
②は以前から「出来ない事が不便だと」思っていました。戻り値を変数で受けて、DUMP したりする事を考えるとコレは便利！

以下、使用例

QII0190R

H DFTACTGRP(*NO) ACTGRP(*NEW)
H*- *CONSTANTS …定数ををデバッグ時参照する
H*- *RETVAL    …プロシージャの戻り値を「 _QRNU_RETVAL 」で表示／変更する
H DEBUG(*CONSTANTS : *RETVAL)
D*- ---<< 変数定義    >>-----*
D MSG             S             40A
C*- ***************************************************************
C*- *  メインロジック                                            **
C*- ***************************************************************
C                   EVAL       MSG        = SUBPROC1()
C     MSG           DSPLY
C*
C                   SETON                                        LR
C                   RETURN
P*- ***************************************************************
P*- *  サブプロシージャ                                          **
P*- ***************************************************************
P SUBPROC1        B
D SUBPROC1        PI            40A
D*
D*- ---<< 定数定義    >>-----*
D C#STR           C                         ' 名前付き定数 '
D*- ---<< 変数定義    >>-----*
D RET             S             40A
C*
C                   EVAL      RET         = ' 【変更前】 '
C                                         + C#STR
C*
C                   RETURN                  RET
C*
P                 E

デバッグする場合は、コンパイル時のオプションに DEBGVIEW(*ALL) 等を付与して下さい。

定数の参照

まず、上記PGMの実行結果は DSPLY命令で「**【変更前】名前付き定数 **」と表示されます。

次に STRDBG でデバッグを開始して、適当な停止点で 名前付き定数 を「F11」で参照すると中身を確認することが出来ます。

戻り値の参照及び変更

更に、プロシージャの最終地点に停止点を追加します。すると戻り値を返却する直前で停止し、特殊変数
「_QRNU_RETVAL」を介して、プロシージャの戻り値を確認することが出来ます。

この特殊変数「_QRNU_RETVAL」をEVALで値変更すると、プロシージャの戻り値が変更されます。

プロシージャの戻り値が見られるのは便利なのですが、この特殊変数名「_QRNU_RETVAL」は絶対に忘れそうなので、IMEにでも登録しておきましょう！