Get data from DSN.
3760 integer,
INTENT(in),
OPTIONAL :: idbhandle
3765 if (
present(categoryappend))
then
3766 call l4f_launcher(a_name,a_name_append=trim(subcategory)//
"."//trim(categoryappend
3768 call l4f_launcher(a_name,a_name_append=trim(subcategory))
3770 dbaconnection_init%category=l4f_category_get(a_name)
3773 ier=idba_error_set_callback(0,c_funloc(dballe_error_handler), &
3774 dbaconnection_init%category,dbaconnection_init%handle_err)