1、定义一个外部、 类消息,like CommandLineMsg
   define external class message clShutMsg like CommandLineMsg;
2、将新消息attach到指定类上面去:
   attach class message clShutMsg to PdmSessn in server bbksvr;
3、写消息方法体,这里只是简单调用一下PdmSessn的ShutDownWarnningMsg
message PdmSessn:clShutMsg
(
input : string className ::
input : SetOfStrings parameterSet ::
output: SetOfStrings* outputSet ::
output: integer* mfail
) code
{
MODNAME("PdmSessn:clShutMsg");
   
status dstat = OKAY;
   
*mfail = USC_OKAY;
   
dstat = ShutDownWarnningMsg(className, mfail);
   
   
CLEANUP:
(
input : string className ::
input : SetOfStrings parameterSet ::
output: SetOfStrings* outputSet ::
output: integer* mfail
) code
{
MODNAME("PdmSessn:clShutMsg");
status dstat = OKAY;
*mfail = USC_OKAY;
dstat = ShutDownWarnningMsg(className, mfail);
CLEANUP:
EXIT:
if (dstat)
{
uiShowFatalError(dstat, WHERE);
}
return dstat;
}
;
if (dstat)
{
uiShowFatalError(dstat, WHERE);
}
return dstat;
}
;
4、测试使用
   打开命令行,输入以下命令
   omfcl PdmSessn clShutMsg
   回车
                    
                
                
            
        
浙公网安备 33010602011771号