【FAQ_742】マクロが途中で止まる際のデバッグ方法
印刷時の用紙縦横を自動判定して切り替えるマクロを組んだところ、正常に動作せずプリンタ設定ウィンドウが開かず印刷ができません。マクロのどこまで処理が進んでいるかを確認する方法はありますか。
マクロの各所にDISPLAY('トークン')という記述を追記し、どこまで処理が実行されているかを確認する方法があります。DISPLAYはトークンの内容をメッセージラインに表示し、ユーザーが何らかのキーを押すまで処理を待機させます。
例えば以下のように、条件分岐の前後にDISPLAYを挿入することで、パーツリストの検索処理や用紙の向き判定処理がどこで止まっているかを特定できます。
DEFINE PLOT_TCS
DISPLAY('1')
LET ALL_PARTS 'all_parts_list'
LET FIND_PARTS 'find_parts_list'
CREATE_LTAB ALL_PARTS
CREATE_LTAB FIND_PARTS
DISPLAY('2')
PARTS_LIST TREE LTAB ALL_PARTS
SELECT_FROM_LTAB ALL_PARTS COLUMN 1='*WAKU_A4_R20*' FIND_PARTS
DISPLAY('3')
IF (LTAB_ROWS FIND_PARTS)
DISPLAY('4')
WIN_PRT_MGR ORIENTATION PORTRAIT END
ELSE
DISPLAY('5')
WIN_PRT_MGR ORIENTATION LANDSCAPE END
END_IF
DISPLAY('6')
...
（従来のプリント指示のマクロ部）
...
END_DEFINE
例えば以下のように、条件分岐の前後にDISPLAYを挿入することで、パーツリストの検索処理や用紙の向き判定処理がどこで止まっているかを特定できます。
DEFINE PLOT_TCS
DISPLAY('1')
LET ALL_PARTS 'all_parts_list'
LET FIND_PARTS 'find_parts_list'
CREATE_LTAB ALL_PARTS
CREATE_LTAB FIND_PARTS
DISPLAY('2')
PARTS_LIST TREE LTAB ALL_PARTS
SELECT_FROM_LTAB ALL_PARTS COLUMN 1='*WAKU_A4_R20*' FIND_PARTS
DISPLAY('3')
IF (LTAB_ROWS FIND_PARTS)
DISPLAY('4')
WIN_PRT_MGR ORIENTATION PORTRAIT END
ELSE
DISPLAY('5')
WIN_PRT_MGR ORIENTATION LANDSCAPE END
END_IF
DISPLAY('6')
...
（従来のプリント指示のマクロ部）
...
END_DEFINE