libsim Versione 7.2.0

◆ dbasession_close_message()

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

dballe close_message

Definizione alla linea 1282 del file dballe_class.F03.

1283if (session%file .and. optio_log(attronly))then
1284 call l4f_category_log(session%category,l4f_error,"attronly writing on file not supported")
1285 CALL raise_fatal_error()
1286end if
1287
1288if (present(filter))then
1289 if (filter%contextana) then
1290 if (.not. filter%anavars == data%dbadc%dat) return
1291 else
1292 if (.not. filter%vars == data%dbadc%dat) return
1293 end if
1294endif
1295
1296!write data in dsn
1297
1298!print *,"extrude dati:"
1299!call data%dbadc%display()
1300
1301! missing on file do nothing
1302if (.not. data%dbadc%dat%c_e() .and. session%file) return
1303
1304call data%dbadc%dbaset(session)
1305
1306code = idba_error_code() !! 13 for Value is outside the range
1307
1308if (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

Generated with Doxygen.