Get data fron DSN; ingest metaanddata list.
3691 subroutine dbasession_ingest_metaanddatarv(session,metaanddatav)
3692 class(dbasession),
intent(inout) :: session
3693 type(dbametaanddatar),
intent(inout),
allocatable :: metaanddatav(:)
3697 call session%ingest_metaanddatar()
3698 if (c_e(session%count))
then
3699 allocate(metaanddatav(session%count))
3701 do while (session%count >0)
3703 call session%ingest_metaanddatar(metaanddatav(i))
3706 allocate(metaanddatav(0))
3708 end subroutine dbasession_ingest_metaanddatarv
3713 subroutine dbasession_ingest_metaanddatac(session,metaanddata)
3714 class(dbasession),
intent(inout) :: session
3715 type(dbametaanddatac),
intent(inout),
optional :: metaanddata
3718 character(len=9) :: btable
3719 character(len=255) :: value
3721 if (.not.
present(metaanddata))
then
3722 ier = idba_voglioquesto(session%sehandle, session%count)
3724 ier = idba_dammelo(session%sehandle, btable)
3725 ier = idba_enq(session%sehandle, btable,
value)
3726 metaanddata%dbadatac=dbadatac(btable,
value)
3727 call metaanddata%metadata%dbaenq(session)
3728 session%count=session%count-1
3730 end subroutine dbasession_ingest_metaanddatac