libsim  Versione 7.2.4

◆ 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 1292 del file dballe_class.F03.

1293  end if
1294 endif
1295 
1296 !write data in dsn
1297 
1298 !print *,"extrude dati:"
1299 !call data%dbadc%display()
1300 
1301 ! missing on file do nothing
1302 if (.not. data%dbadc%dat%c_e() .and. session%file) return
1303 
1304 call data%dbadc%dbaset(session)
1305 
1306 code = idba_error_code() !! 13 for Value is outside the range
1307 
1308 if (optio_log(attronly).or. .not. data%dbadc%dat%c_e() .or. code ==13 ) then
1309 
1310  !! those hare required?
1311  ierr = idba_set(session%sehandle,"var",data%dbadc%dat%btable)
1312  !!
1313 
1314  ierr = idba_voglioquesto(session%sehandle, count)
1315 
1316  ! with missing data to extrude and missing data in DB we have nothing to delete
1317  ! with attronly and missing data in DB we have nothing to do
1318  ierr=idba_unsetb(session%sehandle)
1319  if (count ==0) return
1320 
1321  if (c_e(count)) then
1322  if (optio_log(attronly))then
1323  ierr=idba_dammelo(session%sehandle, btable)
1324  !ierr=idba_enqi(session%sehandle, "context_id", id)
1325  else
1326  !remove data from db if data is missing
1327  ierr=idba_dimenticami(session%sehandle)
1328  endif
1329  endif
1330 else
1331  call session%prendilo()
1332  ierr=idba_unsetb(session%sehandle)

Generated with Doxygen.