libsim Versione 7.2.6
|
◆ dbasession_messages_open_output()
dballe messages_open_output
Definizione alla linea 1353 del file dballe_class.F03. 1354 critica=.true.
1355 else if(optio_log(attronly)) then
1356 !ierr=idba_seti(session%sehandle, "*context_id", id)
1357 !call session%var_related(data%dbadc%dat%btable) ! If I have made a prendilo I do not need this
1358 !call data%attrv%dcv(i)%dat%dbaset(session)
1359 ierr = idba_set(session%sehandle,"*var",data%attrv%dcv(i)%dat%btable)
1360 !print *,"scusa attributi:"
1361 !call data%attrv%dcv(i)%dat%display()
1362 call session%scusa()
1363 endif
1364 end do
1365 if (critica) then
1366 !ierr=idba_seti(session%sehandle, "*context_id", id)
1367 !call session%var_related(data%dbadc%dat%btable) ! If I have made a prendilo I do not need this
1368 call session%critica()
1369 end if
|