libsim Versione 7.2.0
|
◆ dbasession_ingest_metaanddatav()
get data from DSN
Definizione alla linea 3636 del file dballe_class.F03. 3637 ier = idba_voglioquesto(session%sehandle, session%count)
3638else
3639 ier = idba_dammelo(session%sehandle, btable)
3640 ier = idba_enq(session%sehandle, btable,value)
3641 metaanddata%dbadatad=dbadatad(btable,value)
3642 call metaanddata%metadata%dbaenq(session)
3643 session%count=session%count-1
3644end if
3645end subroutine dbasession_ingest_metaanddatad
3646
3647
3649subroutine dbasession_ingest_metaanddatadv(session,metaanddatav)
3650class(dbasession), intent(inout) :: session
3651type(dbametaanddatad), intent(inout),allocatable :: metaanddatav(:)
3652
3653integer :: i
3654
3655call session%ingest_metaanddatad()
3656if (c_e(session%count)) then
3657 allocate(metaanddatav(session%count))
3658 i=0
3659 do while (session%count >0)
3660 i=i+1
3661 call session%ingest_metaanddatad(metaanddatav(i))
3662 end do
3663else
3664 allocate(metaanddatav(0))
3665end if
3666end subroutine dbasession_ingest_metaanddatadv
3667
3668
3670subroutine dbasession_ingest_metaanddatar(session,metaanddata)
3671class(dbasession), intent(inout) :: session
3672type(dbametaanddatar), intent(inout),optional :: metaanddata
3673
3674integer :: ier
3675character(len=9) :: btable
3676real :: value
3677
3678if (.not. present(metaanddata)) then
3679 ier = idba_voglioquesto(session%sehandle, session%count)
|