RPG

519. RPGのダンプ・リストを印刷するには?

RPGの実行中に深刻なエラーが発生したときに
そのプログラムのINFDS の内容をダンプ・リストとして
印刷することができる。
_

方法は簡単なように見えるが

[例] 固定式フォーマットの記述

C     'DSPDMP'      DUMP  

[例]フリー・フォーマットでの記述

 DUMP 'EXFMT で発生したエラーのダンプリスト '; 

[解説]

固定フォーマットの場合の見出しのテキストは10文字程度しか
出力できないがフリー・フォーマットであると
このように長い文字列を見出しのテキストとして使用することができる。

さて、ところがこれだけではいずれの場合でもダンプ・リストは
出力されない。
ダンプ・リストを出力するには H-仕様書にも次の記述の
追加が必要である。

H DEBUG(*DUMP)

この記述が無いと演算仕様書でいくら DUMP命令を実行しても
ダンプ・リストが出力されることはない。
注意喚起のためにテクニックとして公開した。
_