$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