libsim  Versione 7.2.6

◆ dbasession_ingest_ana()

subroutine dballe_class::dbasession_ingest_ana ( class(dbasession), intent(inout)  session,
type(dbaana), intent(out), optional  ana 
)
private

get data from DSN

Definizione alla linea 3326 del file dballe_class.F03.

3327  end select
3328 
3329  end if
3330  end do
3331  end do
3332  end if
3333  else
3334  if (c_e(session%count) .and. session%count > 0) then
3335  ier = idba_voglioancora(session%sehandle, acount)
3336 
3337  allocate (metaanddata%dataattrv%dataattr(i)%attrv%dcv(acount))
3338  do j =1,acount
3339  ier = idba_ancora(session%sehandle, btable)
3340  ier = idba_enq(session%sehandle, btable,value)

Generated with Doxygen.