Get data from DSN.
3763 character(len=512) :: a_name,quidsn
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)
3775 if (.not. c_e(optio_i(idbhandle)))
then 3778 IF (
PRESENT(dsn))
THEN