libsim  Versione6.3.0

◆ dbaconnection_init()

type(dbaconnection) function dballe_class::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 3974 del file dballe_class.F03.

3974  lattrflag = "read"
3975  end if
3976 end if
3977 
3978 
3979 !!$print*,"---------------- call session_init --------------------------------"
3980 !!$print *,"session_init,lformat,ltemplate,lmemdb,lfile,lloadfile,lanaflag,ldataflag,lattrflag"
3981 !!$print *,"session_init",lformat,ltemplate,lmemdb,lfile,lloadfile,lanaflag,ldataflag,lattrflag
3982 !!$print*,"------------------------------------------------"
3983 
3984 if (lfile) then
3985 
3986  if (present(anaflag).or.present(dataflag).or.present( attrflag)) then
3987  call l4f_category_log(dbasession_init%category,l4f_error,"option anaflag, dataflag, attrflag defined with filename access")
3988  CALL raise_error()
3989  end if
3990 
3991 else
3992 
3993  if(.not. present(connection)) then
3994  call l4f_category_log(dbasession_init%category,l4f_error,"connection not present accessing DBA")
3995  CALL raise_error()
3996  end if
3997 
3998  if (present(mode).or.present(format).or.present(template).or.present(simplified)) then
3999  call l4f_category_log(dbasession_init%category,l4f_error,&
4000  "option mode or format or template or simplified defined without filename")
4001  CALL raise_error()
4002  end if
4003 
4004 end if
4005 
4006 
4007 ! check filename for recursive call
4008 if (present(filename))then
4009  if (lmemdb)then
4010  if (.not. present(connection)) then
4011  ! connect to dsn type DBA
4012  dbasession_init%memconnection=dbaconnection(dsn="mem:")
4013  !call self with memconnection without filename
4014  dbasession_init=dbasession(dbasession_init%memconnection,&
4015  write=.true.,wipe=lwrite,repinfo=lrepinfo,&
4016  memdb=lmemdb,loadfile=lloadfile) ! without categoryappend
4017 
4018  else
4019  dbasession_init%memconnection=connection
4020  !call self with memconnection without filename
4021  dbasession_init=dbasession(dbasession_init%memconnection,&
4022  write=.true.,wipe=lwrite,repinfo=lrepinfo,&

Generated with Doxygen.