#DefineSubroutine udsTry(expr,errstr,cancelstr)IntControl(73,1,1,0,0)Return %expr%:wberrorhandlerReturn errstr:cancelReturn cancelstr#EndSubroutine