%MACRO htmlstyle;       /* HTML 出力を有効にするマクロ */
  ODS _ALL_ CLOSE;
  ODS HTML PATH="%SYSFUNC(PATHNAME(work))";
  %PUT NOTE: HTML 形式が有効になりました ;
%MEND;

%MACRO liststyle;	/* リスト出力を有効にするマクロ */
  ODS _ALL_ CLOSE;
  ODS LISTING;
  %PUT NOTE: リスト形式が有効になりました ;
%MEND;

	/* htmlstyle マクロをショートカットキー F11 に登録 */
DM "KEYDEF 'F11' GSUBMIT '''%NRSTR(%%htmlstyle)'''";

	/* liststyle マクロをショートカットキー F12 に登録 */
DM "KEYDEF 'F12' GSUBMIT '''%NRSTR(%%liststyle)'''";