libsim Versione 7.2.1
|
◆ dbasession_ingest_metaanddatab()
Get data from DSN.
Definizione alla linea 3773 del file dballe_class.F03. 3774 dbaconnection_init%category,dbaconnection_init%handle_err)
3775if (.not. c_e(optio_i(idbhandle))) then
3776
3777 quidsn = "test"
3778 IF (PRESENT(dsn)) THEN
3779 IF (c_e(dsn)) quidsn = dsn
3780 ENDIF
3781
3782 ier=idba_presentati(dbaconnection_init%dbhandle,quidsn)
3783else
3784 dbaconnection_init%dbhandle=optio_i(idbhandle)
3785end if
3786
3787end function dbaconnection_init
3788
|