AS/400,iSeries
1. CRTBNDRPGのパラメータ デバッグ用ビューを*SOURCEにする。
2. STRDBGのパラメータ OPM ソース・レベル・デバッグを*YESにして下さい。
ファイル更新が有る場合、これを*YESにしてないとABENDします。
3. 止めたい場所にF6キーを押す
・ ある条件の時に止めたい方法
BREAK ステートメント WHEN 変数 条件 値
例
BREAK 30000 WHEN KOZNO = 444
上の例では,変数 KOZNO が 444 と等しくなった場合に ステートメント30000
でストップします。
・ 指定したステートメントで指定回数通過した場合に止める方法
BREAK ステートメント SKIP NNN
例
BREAK 300.2 SKIP 5
上の例では,ステートメントが 5 回出てきた場合に,停止点がステートメント300.2 でセットされます。
・ 項目のHEX表示
EVAL String:X 99
99:表示バイト数
・ 項目値の変更
EVAL 項目 = 値
4. F3で終了
5. CALL PGM
3.で指示した場所がくれば、ソースが表示され内容が見えます。
RPG400の場合
STRISDBコマンドが使用出来ます。