程序名长度报警

snowa*

由于法兰克系统能读取最长8个字符的文件名，超过会显示星号。可能会造成选错程序在开头加入一个判断，超过8个字符弹窗提醒

global mom_output_file_basename
if {[string length $mom_output_file_basename] > 8 } {
    set msg1 [MOM_display_message 程序名太长！请检查！ 后处理消息： W 继续后处理 中止后处理]
    switch $msg1 {
        1 {
            set offset_flag1 1
        }
        2 {
            MOM_abort 中止
        }
    }
}