libsim  Versione6.3.0

◆ dbasession_close_message()

subroutine dballe_class::dbasession_close_message ( class(dbasession), intent(in)  session,
character(len=*), intent(in), optional  template 
)
private

dballe close_message

Definizione alla linea 1313 del file dballe_class.F03.

1313 if (optio_log(attronly).or. .not. data%dbadc%dat%c_e() .or. code ==13 ) then
1314 
1315  !! those hare required?
1316  ierr = idba_set(session%sehandle,"var",data%dbadc%dat%btable)
1317  !!
1318 
1319  ierr = idba_voglioquesto(session%sehandle, count)
1320 
1321  ! with missing data to extrude and missing data in DB we have nothing to delete
1322  ! with attronly and missing data in DB we have nothing to do
1323  ierr=idba_unsetb(session%sehandle)
1324  if (count ==0) return
1325 
1326  if (c_e(count)) then
1327  if (optio_log(attronly))then
1328  ierr=idba_dammelo(session%sehandle, btable)
1329  !ierr=idba_enqi(session%sehandle, "context_id", id)
1330  else
1331  !remove data from db if data is missing
1332  ierr=idba_dimenticami(session%sehandle)
1333  endif
1334  endif
1335 else
1336  call session%prendilo()
1337  ierr=idba_unsetb(session%sehandle)
1338 end if
1339 
1340 if (optio_log(noattr)) return
1341 
1342 !write attributes in dsn
1343 if (allocated(data%attrv%dcv)) then
1344  if (size(data%attrv%dcv) > 0 )then
1345  critica = .false.
1346  do i = 1, size(data%attrv%dcv)
1347  if (present(filter))then
1348  if (filter%contextana) then
1349  if (.not. filter%anastarvars == data%attrv%dcv(i)%dat) cycle
1350  else
1351  if (.not. filter%starvars == data%attrv%dcv(i)%dat) cycle
1352  end if

Generated with Doxygen.