Q5/ws_objects/ew_uo_com.pbl.src/f_init_regcom.srf

$PBExportHeader$f_init_regcom.srf
global type f_init_regcom from function_object
end type

forward prototypes
global subroutine f_init_regcom (ref string arg_msg)
end prototypes

global subroutine f_init_regcom (ref string arg_msg);uo_comhelper uo_com
uo_com = create uo_comhelper

arg_msg = ''

RegCom = uo_com.uf_get_regcom(ref arg_msg)

destroy uo_com
end subroutine