libsim Versione 7.2.0

◆ dbaconnection_init()

type(dbaconnection) function dbaconnection_init ( character (len=*), intent(in), optional  dsn,
character (len=*), intent(in), optional  user,
character (len=*), intent(in), optional  password,
character(len=*), intent(in), optional  categoryappend,
integer, intent(in), optional  idbhandle 
)
private

Constructor Without parameter it is initialized to missing.

Parametri
[in]dsnDSN (dballe/ODBC definition)
[in]userusername to use
[in]passwordpassword to use
[in]categoryappendappennde questo suffisso al namespace category di log4fortran
[in]idbhandledsn connection; if present it will be used

Definizione alla linea 3943 del file dballe_class.F03.

3944 ldataflag = "write"
3945 else
3946 ldataflag = "read"
3947 end if
3948end if
3949
3950call optio(attrflag,lattrflag)
3951if (.not. c_e(lattrflag))then
3952 if (lwrite) then
3953 lattrflag = "write"
3954 else
3955 lattrflag = "read"
3956 end if
3957end if
3958
3959
3960!!$print*,"---------------- call session_init --------------------------------"
3961!!$print *,"session_init,lformat,ltemplate,lmemdb,lfile,lloadfile,lanaflag,ldataflag,lattrflag"
3962!!$print *,"session_init",lformat,ltemplate,lmemdb,lfile,lloadfile,lanaflag,ldataflag,lattrflag
3963!!$print*,"------------------------------------------------"
3964
3965if (lfile) then
3966
3967 if (present(anaflag).or.present(dataflag).or.present( attrflag)) then
3968 call l4f_category_log(dbasession_init%category,l4f_error,"option anaflag, dataflag, attrflag defined with filename access")
3969 CALL raise_error()
3970 end if
3971
3972else
3973
3974 if(.not. present(connection)) then

Generated with Doxygen.