$ SET NOON
$ ON CONTROLY THEN GOTO ENDITALL
$ IF P1 .EQS. "" THEN P1 = "/FRAMED"
$ SDM2HTM = "$HT_EXE:SDM2HTM"
$ DEFAULT = F$ENVIRONMENT("DEFAULT")
$ SET DEFAULT WASD_ROOT:[DOC.CONFIG]
$ SDM2HTM 'P1' CONFIG
$ PURGE /NOLOG
$ SET DEFAULT WASD_ROOT:[DOC.FEATURES]
$ SDM2HTM 'P1' FEATURES
$ PURGE /NOLOG
$ SET DEFAULT WASD_ROOT:[DOC.ENV]
$ SDM2HTM 'P1' ENV
$ PURGE /NOLOG
$ SET DEFAULT WASD_ROOT:[DOC.SDM2HTM]
$ SDM2HTM 'P1' SDM2HTM
$ PURGE /NOLOG
$ SET DEFAULT WASD_ROOT:[DOC.SCRIPTING]
$ SDM2HTM 'P1' SCRIPTING
$ PURGE /NOLOG
$ ENDITALL:
$ SET DEFAULT 'DEFAULT'